Перейти к содержанию
Fire Monkey от А до Я

vovanse

Пользователи
  • Постов

    15
  • Зарегистрирован

  • Посещение

Посетители профиля

6 937 просмотров профиля
  1. Можно как-то узнать, включена ли точка доступа WiFi? Через ConnectivityManager могу определить включение WiFi как клиента, а интересует именно точка доступа.
  2. vovanse

    Serial port

    Добавлю сюда свой вопрос. Собрал 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 ?
  3. Еще бы попасть в ту ветку Не затруднит сюда прикрепить?
  4. Delphi 10.4 При попытки компиляции под Android выдает такое сообщение "Unit FMXTee.Canvas was compiled with a different version of System.SysUtils.FreeAndNil", под Windows все нормально. Что может быть? Куда копать? Причем такая ошибка только в Debug конфигурации, в Release все нормально.
  5. vovanse

    TBluetoothLE, Android

    Есть некое приложение под Android, TTimer по мере необходимости вызывает TBluetoothLE WriteCharacteristic, в этот момент все приложение "подвисает" на время записи (2..4 сек). ReadCharacteristic происходит без таких проблем. Что это может быть и как-то можно побороть?
  6. Есть некая программа, под Android, TListBox, свой стиль для TListBoxItem куда добавил необходимое количество TLabel. При запуске приложения все это заполняется. Есть необходимость изменить некоторые значение в определенных TListBoxItem во время работы. Изменения вношу: ListActive.BeginUpdate; в цикле ListBoxActive.ItemByIndex(i) .StylesData['info.Text']:=yyy меняю данные ListBoxActive.EndUpdate; И на экране ничего не изменяется. Как заставить обновится? Refresh какой-то или еще что-то существует?
  7. 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;
  8. Пробовал на XE6 Update1 Version 20.0.16277.1276. Есть уже что-то новее?
  9. Тоже это обошел, но несколько подругому - использовал обработчики procedure DragOver и DragDrop формы, соответственно смотря попадаю ли на нужный компонент и пересчитывая координаты.
  10. Собственно так я и делал. Но только не работает. Не вызывается 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.
  11. 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 и без них. В чем может быть проблема? Или это пока не совсем работает? Как можно обойти?
  12. Спасибо, нашел решение тут http://ginne.ru/node/59
  13. Можно ли как-то снять скриншот с TMediaPlayerControl? MakeScreenshot не помогает - возравращает черный прямоугольник, на сколько понимают из-за DirectDraw. Вообще смысл - сделать эскизы для видеофайлов, как-то выдрать из середины кадр.. TMediaPlayer открыл, показал, но вот со скриншотом проблема.
×
×
  • Создать...