x11

Боже упаси, править геном - это табу!

А что, просто кинуть на форму обычную кнопку - это будет не то? sbAddObjectFloating.Position.X := lvObjects.Width - sbAddObjectFloating.Width - 5; sbAddObjectFloating.Position.Y := lvObjects.Height - sbAddObjectFloating.Height - 5; Ну и задать ей якоря:

Да у меня тоже все легко и просто, если нет наполнения ListView перед переключением.

В общем, решил криво - поменял местами. procedure TfmMain.actOpenUpdateExecute(Sender: TObject); begin ChangeTab(tabRes); dm.UniConnection1.connect; LoadLV(lvObjects); end; теперь переключение, а потом только наполнение ListView

А как использовать значение по умолчанию?

хотя бы экран подсветить/включить

ОКАЗАЛОСЬ, ЧТО лично для меня это оказалось бы удобным при отладке на устройстве. Запустил из среды приложение на устройстве и приходится ждать, пока оно скомпилируется, установится и запуститься... Это ж тебе не винда Сидеть и пялиться на экран несколько минут - напрягает. А если бы приложение при запуске разблокировало устройство, можно было не пялиться. Запустил и занимаешься чем-то другим.

Не могу понять, как заполнение ListView влияет анимацию TabControl?

В общем, всё равно что-то не так с анимацией на Андроид-устройстве. Использую только GotoVisibleTab. tabRes - это переключение на следующую вкладку: procedure TfmMain.actParamsSearchShowExecute(Sender: TObject); begin if tabRes.IsSelected then begin TabControl1.GotoVisibleTab(tabParams.Index, TTabTransition.Slide, TTabTransitionDirection.Normal); exit; end; if tabParams.IsSelected then TabControl1.GotoVisibleTab(tabRes.Index, TTabTransition.Slide, TTabTransitionDirection.Normal); end; Одна и та же кнопка переключает туда или обратно (2 вкладки всего). Когда нажимаешь кнопку, то туда-сюда переключается с анимацией. А вот здесь (кнопка Вперед) переключается без анимации: procedure TfmMain.actOpenUpdateExecute(Sender: TObject); begin dm.UniConnection1.connect; LoadLV(lvObjects); TabControl1.GotoVisibleTab(tabRes.Index, TTabTransition.Slide, TTabTransitionDirection.Normal); end; А вот здесь (кнопка Назад) переключается с анимацией: procedure TfmMain.actPreviousTabActionExecute(Sender: TObject); begin ChangeTab(tabParams); end; procedure TfmMain.ChangeTab(ATab: TTabItem); begin TabControl1.GotoVisibleTab(ATab.Index, TTabTransition.Slide, TTabTransitionDirection.Normal); end;

Аааа, я неверно Вас понял. я подумал, что Вы пишите как раз про этот ChangeTabAction, т.е. там тоже есть slide и normal. Стормозил. Попробую Ваш код позже. Спасибо.

Вообще-то да, я именно про Action - ChangeTabAction и пишу.

Так в первом сообщении. Может Вы не поняли? Переключение работает. Но нет анимации.

Slide включен. Пробовал и direction менять.

Может, кому пригодится, здесь набор open-sourced компонент для FMX https://github.com/zhaoyipeng/FMXComponents

да, спасибо уже и на др. форуме подсказали... пробую довести до ума

Ещё раз код приведу. type TProcSelectRegionRef = reference to procedure(idRegion: integer; constsFullRegion: string); type TfmTree = class(TForm) ... ... private procedure CallBackProcSelect(idRegion: integer; const sFullRegion: string); procedure SelRegion2(ProcSelectRegionRef: TProcSelectRegionRef); ... ... implementation ... ... procedure TfmTree.SelRegion2(ProcSelectRegionRef: TProcSelectRegionRef); begin ProcSelectRegionRef(TreeView1.Selected.Tag, TreeView1.Selected.Text); end; procedure TfmTree.CallBackProcSelect(idRegion: integer; const sFullRegion: string); begin ... end; procedure TfmTree.actSelectExecute(Sender: TObject); begin ... SelRegion2(CallBackProcSelect); ... end;

Ну так я это уже переделал и сделал CallBackProcSelect методом класса, т.е. вставил в секцию private формы и добавил реализацию в форме выбора procedure TfmTree.CallBackProcSelect(idRegion: integer; const sFullRegion: string); begin ... ... [dcc32 Error] uTree.pas(99): E2010 Incompatible types: 'TProcSelectRegionRef' and 'Procedure of object'

ну я пока не понимаю, что мне нужно подправить

Да, это я читал и изучал. И сделал (вроде бы) так же и у себя. Но...

Уточните, что такое "описание InputQuery"? Боюсь, что я не так пойму.

Я понял ,что один из примеров реализован через события TNotifyEvent. Ок, тоже вариант. Я уже в VCL проектах в потоках использовал TNotifyEvent. Но мне хотелось бы и этим моим конкретным вопрос разобраться. Почему с анонимными методами у разработчиков работает, а меня нет. Где я просчитался.

Спасибо, конечно. Но вместо какой-то небольшой подсказки, Вы предлагает изучить кучу чужого кода?

Там 2 сообщения с этим словом и ничего полезного в них не нашёл

Я хочу сделать по принципу, как с диалогами TDialogService.InputQuery....

1. Не знаю, как правильней и проще дать пользователю что-то выбирать с возможностью вернуть результат. Ведь форма выбора одна, а форм, где вызывается форма выбора несколько. При этом форма выбора не знает, куда именно возвращать результат. 2. Вижу, но не до конца я это всё понимаю, поэтому и возникла проблема.