vovanse
Пользователи-
Постов
15 -
Зарегистрирован
-
Посещение
-
Победитель дней
1
vovanse стал победителем дня 2 июня
vovanse имел наиболее популярный контент!
Посетители профиля
6 997 просмотров профиля
Достижения vovanse
-
Sergey S отреагировал на ответ на вопрос: Не удается перетащить (Drag and Drop) итем TListBoxItem между двумя TListBox
-
Можно как-то узнать, включена ли точка доступа WiFi? Через ConnectivityManager могу определить включение WiFi как клиента, а интересует именно точка доступа.
-
Добавлю сюда свой вопрос. Собрал jar библиотеку из последней версии usb-serial-for-android сделал обертку, добавляю в проект и при компиляции получаю такую ошибку: "[Exec Error] EXEC(1): com.android.dx.cf.code.SimException: ERROR in сom.hoho.android.usbserial.driver.ProlificSerialDriver$ProlificSerialPort.getStatus:()I: invalid opcode ba - invokedynamic requires --min-sdk-version >= 26 (currently 13)" Пишут, для Gradle можно указатьsourceCompatibility JavaVersion.VERSION_1_8targetCompatibility JavaVersion.VERSION_1_8 Но как победить ее в Rad Studio 10.4.2 ?
-
Есть некое приложение под Android, TTimer по мере необходимости вызывает TBluetoothLE WriteCharacteristic, в этот момент все приложение "подвисает" на время записи (2..4 сек). ReadCharacteristic происходит без таких проблем. Что это может быть и как-то можно побороть?
-
Есть некая программа, под Android, TListBox, свой стиль для TListBoxItem куда добавил необходимое количество TLabel. При запуске приложения все это заполняется. Есть необходимость изменить некоторые значение в определенных TListBoxItem во время работы. Изменения вношу: ListActive.BeginUpdate; в цикле ListBoxActive.ItemByIndex(i) .StylesData['info.Text']:=yyy меняю данные ListBoxActive.EndUpdate; И на экране ничего не изменяется. Как заставить обновится? Refresh какой-то или еще что-то существует?
-
Alex7wrt отреагировал на ответ на вопрос: Не удается перетащить (Drag and Drop) итем TListBoxItem между двумя TListBox
-
shershen отреагировал на ответ на вопрос: Не удается перетащить (Drag and Drop) итем TListBoxItem между двумя TListBox
-
private .... procedure DragOver(const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation); override; procedure DragDrop(const Data: TDragObject; const Point: TPointF); override; .... procedure TMainForm.DragOver(const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation); begin inherited; Operation:=TDragOperation.Link; end; procedure TMainForm.DragDrop(const Data: TDragObject; const Point: TPointF); begin ... свой код... inherited; end;
-
Собственно так я и делал. Но только не работает. Не вызывается ListBoxDestinationDragDrop. unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls, FMX.ListBox, FMX.Layouts; type TForm1 = class(TForm) ListBox1: TListBox; ListBox2: TListBox; ListBoxItem1: TListBoxItem; ListBoxItem2: TListBoxItem; ListBoxItem3: TListBoxItem; ListBoxItem4: TListBoxItem; ListBoxItem5: TListBoxItem; ListBoxItem6: TListBoxItem; procedure ListBox1DragOver(Sender: TObject; const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation); procedure ListBox1DragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.ListBox1DragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF); begin if Data.Source is TFmxObject then TFmxObject(Data.Source).Parent := ListBox1; end; procedure TForm1.ListBox1DragOver(Sender: TObject; const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation); begin Operation := TDragOperation.Copy; end; end.
-
Delphi XE6. Пытаюсь реализовать Drag and Drop между двумя TListBox, но как-то безуспешно. А TTreeView, работает. У принимающего TListBox вызываются только OnDragOver, OnDragEnter, OnDragLeave. А события OnDragChange, OnDragDrop - нет. DragMode установлен в dmManual, AllowDrag пробовал и True и False. В обработчике DragOver Operation:=TDragOperation.Copy (другие варианты тоже пробовал) Использовал в качестве принимающего TText, OnDragDrop прекрасно работает. Пробовал и с созданными ListBoxItem и без них. В чем может быть проблема? Или это пока не совсем работает? Как можно обойти?
-
TMediaPlayerControl Как сделать скриншот с TMediaPlayerControl?
vovanse опубликовал вопрос в TMediaPlayer
Можно ли как-то снять скриншот с TMediaPlayerControl? MakeScreenshot не помогает - возравращает черный прямоугольник, на сколько понимают из-за DirectDraw. Вообще смысл - сделать эскизы для видеофайлов, как-то выдрать из середины кадр.. TMediaPlayer открыл, показал, но вот со скриншотом проблема.