Лидеры

попробуйте вот так procedure FontAwesomeApply(const Control: TControl); var i: Integer; begin if Control is TControl then begin FontAwesomeAssign(TControl(Control)); if Control is TStyledControl then TStyledControl(Control).ApplyStyleLookup; end; for i := 0 to Control.ControlsCount - 1 do FontAwesomeApply(Control.Controls[i]); end;

наконец все отвыкнут хранить данные на экране )) если нужно что-то сохранять, используйте переменные и структуры данных по ним восстанавливайте состояние формы

http://fontello.com Поищите здесь то что Вам нужно и скачайте себе шрифт только с необходимыми символами

Шаблон проекта с кастомным шрифтом FontAwesome Намного удобней и менее затратно использовать Шрифт с Иконками, чем заботиться о качестве картинок, скейлах, их хранении и загрузке Поэтому давно перешел на шрифты, пару скриншотов (без использования картинок) Seattle CustomFont.7z Berlin CustomFont(Berlin).zip WINDOWS/MACOS - установить шрифт в систему IOS - в деплой добавить шрифт и с помощью IOS9Fix прописать в .plist следующее: ANDROID - в деплой добавить шрифт (Remote Path -> assets\internal) и подключить к проекту измененные файлы FMX.FontGlyphs.Android.pas, FMX.FontGlyphs.pas

не за что, старайтесь меньше использовать TListBox. там в примере есть настройка для ListView с таким же отображением

в теме начали сравнивать Visual Studio, Lazarus месяц назад купил prof версию и не желею есть подписка на год , если человек занимается разработками отбить затраты не сотавит труда хотите бесплатно качайте Android Studio и x-code

кстати у меня приложение на фреймах главная форма всегда пустая и фреймы подгружаю динамически нет никаких проблем и загрузка приложения намного быстрее

Попробовал сравнивать последнюю координату и 10ую. При стоянке выдает скорость от 0.2 до 0.7км/ч, ну хоть как-то можно использовать для определения топтания на месте. function TAndroidServiceDM.GetSpeed(Lat,Lon: double; Dat:integer; LC: TList<TCoords>):double; var Speed: double; SecBetween: integer; DstBetween: real; begin Speed:=-1; if LC.Count>=10 then begin SecBetween:=Dat-LC[9].Dat; DstBetween:=GetDistance(Lat,Lon,LC[9].Lat,LC[9].Lon); if (SecBetween<>0) then Speed:=3.6*DstBetween/SecBetween; end; Result:=Speed; end; Проверил в движении, скорость получается с запазданием и долго показывает скорость когда объект уже остановился, что собственно логично, но по крайней мере скорость почти идентична той что выдает программа Статус GPS.

Написал функцию которая считает среднюю скорость по трем последним координатам... так скорость скачает от 0 до 120км/ч. Координаты выбрасываются непредсказуемо в любое время, чем меньше время между координатами, тем больше v = s / t (разброс дистанции 10-25метров). И это при том что объект стоит на месте. Допустим между двумя координатами прошла 1 секунда, а расстояние 20м. Значит скорость v=20м/сек=72км/ч Ну и как на это можно ориентироваться?

Коллеги, прошу при возможности протестировать очередную модификацию модуля. К сожалению, Santya видимо покинул форум надолго, так что отработать решение проблемы и возможные недостатки на "первом подопытном" не удалось. Основные изменения: очень многое переписал. По большому счету от исходного модуля осталась идея и два фундаментальных момента. Как обычно, спасибо Rusland за тестирование. Осталось проверить, как ведет себя модуль с ScrollBox-ами, которые не растянуты на всю форму. vkbdhelper.zip

Вам нужны координаты клавиатуры (пересчитанные из Screen в Client) и AbsoluteRect поля ввода. if vkbdRect.IntersectsWith(EditAbsoluteRect) then // пересекаются. Однако, следует обратить внимание на оба issue в комментариях - сообщенный приложению размер клавиатуры не всегда соответствует действительности.

vkbdHelper имеет весьма интересный алгоритм - если он находит scrollbox и понимает, что тот в состоянии поднять поле ввода так, чтобы оно было над клавиатурой, то собственный Layout не создается, а прокручивается имеющийся ScrollBox. Но там какой-то алгоритм работы со scrollbox-ом, который отличается от штатной демки. Не проверял этот момент и не менял его, попробую посмотреть, когда разгребусь с текущими вопросами.