Равиль Зарипов (ZuBy)

скорость жеста можно определить по изменению координаты этого жеста (EventInfo.Location). Запомнить предыдущее положение и сравнить с теперешним. Если разность этих положений будет выходить за вами определенную дельту, то можно считать жест резким (мне пока только такой способ видится)
а длина отрезка жеста... EventInfo.Distance?
 
П.С. Это все определяется в OnGesture

Описание
Назначение: Компонент предназначен для отображения группы TRadioButton и осуществления выбор. Поддерживает стилизацию.  Поддерживаемые платформы: Windows, OSX, iOS, Android Демо проект: Samples\RadioGroupDemo\RadioGroupDemo.dproj  
Возможности
Стилизация через указание двух картинок отображающих голос и пустой голос Настройки отображения заголовка группы TfgRadiouGroup.TextOptions.TitleTextSettings Возможность выбрать настройки отображения заголовка группы из стиля TfgRadioGroup.TextOptions.StyledTitleTextSettings Настройки отображения текста TRadioGroup TfgRadiouGroup.TextOptions.ButtonTextSettings Возможность выбрать настройки отображения текста TRadioGroup из стиля TfgRadioGroup.TextOptions.StyledButtonTextSettings Текущий выбранный вариант TfgRadioGroup.ItemIndex Возможность разбить варианты на колонки TfgRadioGroup.AlignOptions.Columns Возможность указать отступы для вариантов по вертикале и горизонател TfgRadioGroup.AlignOptions.HorzSpace, TfgRadioGroup.AlignOptions.VertSpace  Возможность узнать, когда пользователь делает выбор TfgRadioGroup.OnChanged

Я сделал вот так

Я сделал вот так

можно сделать на TListView в режиме колонок и использовать FontAwesome
получится примерно такое

попробовать изменить так
aItem.StylesData['Edit.OnKeyDown'] := TValue.From<TKeyEvent>(EditKeyDown(Self,key,KeyChar,Shift))  

procedure RttiClick(const Obj: TObject); // uses System.TypInfo; var M: TMethod; begin if Obj = nil then exit; M := GetMethodProp(Obj, 'OnClick'); if Assigned(M.Code) then TNotifyEvent(M)(Obj); end;
использовать
RttiClick(Button2);  

попробовать изменить так
aItem.StylesData['Edit.OnKeyDown'] := TValue.From<TKeyEvent>(EditKeyDown(Self,key,KeyChar,Shift))  

Вопрос: как определить, какое именно действие совершает пользователь - увеличивает или уменьшает?

 
 
Ответ: на примере сэмпла, поставляемого в комплекте с Delphi, в файле C:\Users\Public\Documents\Embarcadero\Studio\18.0\Samples\Object Pascal\Mobile Snippets\InteractiveGestures\ImageZoom\ImageZoomU.pas можно попробовать заменить одну часть процедуры:
begin { zoom the image } LImage := TImage(LObj.GetObject); LImageCenter := LImage.Position.Point + PointF(LImage.Width / 2, LImage.Height / 2); LImage.Width := LImage.Width + (EventInfo.Distance - FLastDistance); LImage.Height := LImage.Height + (EventInfo.Distance - FLastDistance); LImage.Position.X := LImageCenter.X - LImage.Width / 2; LImage.Position.Y := LImageCenter.Y - LImage.Height / 2; end; на другую:
begin { zoom the image } if EventInfo.Distance > FLastDistance then showmessage('zoom in') else showmessage('zoom out'); end;  
Что с этим делать дальше — думаю, объяснять излишне.
 
 
Если кто знает более элегантное решение, не основанное на вычислении дистанции, — смело делитесь, не стесняйтесь.

Hello Juande,
The first problem of it is a intercepting gestures/mouse events by TVertScrollBar, it's a reason why TUITabControl cannot receive events. The second problem is standard pan gesture doesn't define vertical and horizontal movement. It's a limitation of FireMonkey. 
So there are only one possible solution:
You need catch mouse and pan gesture events in TVertScrollBar. Manually define is it a horizontal movement or not? If it's horizontal movement, that transfer it into TUITabControl by direct calling methods CMGesture or MouseXXX.

можно сделать на TListView в режиме колонок и использовать FontAwesome
получится примерно такое

а я бы сделал в ListView

все юзают FGX ))

Проверил на тв-приставке. Все отлично, кроме определения сетевых параметров. На приставке wifi выключен, имеется 100Мбит ethernet подключение. Скриншот прилагаю. Прошу прощения за качество, не допер как сделать скриншот с телевизора (или приставки), так что сфотографировал экран ;-)

мы в чатике обсуждали такое поведение, решается через CopyFromBitmap
TakePhoto.zip

потому что используйте родной THttpClient

мы в чатике обсуждали такое поведение, решается через CopyFromBitmap
TakePhoto.zip

мы в чатике обсуждали такое поведение, решается через CopyFromBitmap
TakePhoto.zip

еще раз
компиляция - готовит файлы
деплой - готовит из них apk

Сделал пример приложения для работы с Microsoft Word из приложения Delphi.
Такое приложение может использоваться для обмена данными между объектами семейства Microsoft Office.
 
Исходные коды приложения помогут вам понять, как работать с объектной моделью Microsoft Word.
Чтобы лучше разобраться с нюансами Word, предлагаю ознакомиться со справочником Word VBA reference на MSDN.
Проект создан в среде FireMonkey Delphi Berlin 10.1
Протестирован в MS Word 2010, 2016, Windows 7x64 и 10x64.
Чтобы посмотреть пример, просто распакуйте zip-файл проекта и щелкайте по порядку кнопки на форме.

 
Скачать Delphi Word Test
 
WordTest.zip

"Создать" <> "Активировать".
Стиль (Который нужно загрузить в TStyleBook) - создаете сами. Что бы понять как их создавать - можете воспользоваться курсами от @Brovin Yaroslav

когда нужен срочный ответ, пишите в телеграм-чат Fire-Monkey имени Равиля ZuBy
 
frame.7z

ну вот такая есть штука у меня
 
Это нативные окошки пока только под андроид
NativeView.zip

Слева вверху студии во время отладки есть Стек вызовов методов. Сверху вниз выбирай нужный метод (2е нажатие ЛК Мыши) и студия будет показывать выбранный метод. Чуть ниже будет таблица Локальных переменных. Поочередно спускайся вниз по колл-стеку и проверяй состояния переменных. 

для IOS можно вот так (не проверял)
// uses iOSapi.UIKit; aSystemFont := TUIFont.OCClass.systemFontSize; для андроид, тот способ который выше приложил не работает. всегда выдаёт 1
в андроид студии есть sp и dp (подробней можно почитать тут)