Перейти к содержанию
  • Регистрация

vovanse

Пользователи
  • Публикаций

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

  • Посещение

Информация о vovanse

  • Звание
    Пользователь

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

483 просмотра профиля
  1. vovanse

    TBluetoothLE, Android

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