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

vovanse

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

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

  • Посещение

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

  • Звание
    Новичок

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

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