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

DeviceInfo - модуль для получения информации о девайсе
Android || Windows || IOS || MAC OS
  

Intel планшет

для Андроида нужно включить разрешения (permission)
Ссылка на GitHub

TListBox - в него можно накидать компоненты и сделать в 5 секунд, то что вам нужно или использовать стиль
var    aItem:TListBoxItem; begin    aItem := TListBoxItem.Create(nil);    aItem.Text := 'Item Title'; aItem.ItemData.Bitmap.Assign(aBitmap);    aItem.Parent := aListBox; end; TListView - тоже можно создать такое и лучше, но нужно все описать ручками в событии OnUpdateObjects
with aListView.Items.Add do begin    Text := 'Item Title'; Bitmap.Assign(aBitmap); end;

если есть обработчик на UpdateObjects то в него попадают все поля ListView не зависимо от того установлен фильтр или нет. то есть если есть 100 строк из них по фильтру показаны будут только 5 то это обработка выполнится 100 раз. 

На самом деле такой компонент у меня есть, но я его не публиковал, так как не довел до релизного состояния. Постараюсь доделать и выложить.

не знаю, у меня формы с  Action=caFree нормально убиваются
то, что при этом не сразу вызывается деструктор, это описанное поведение 
 
но есть еще form.Release
кроме того пытаюсь привыкнуть к созданию форм
TMyForm.Create(NIL).Show; либо диалогов
var f:TMyDialog; begin   f:=TMyDialog.Create(NIL);   f.showModal(procedure (AResult:TModalResult) begin   case AResult of     mrOK:begin     end;   end;  end); FreeAndNil(F); end;

LowerCase(Label1.Text, TLocaleOptions.loUserLocale)

Вообще Release. Он выполняет отложенное удаление формы через н-ое количество милисекунд. Поэтому по идеи:
Вызываем Release, Очищаем ссылки на форму (обнуляем ваши переменные/поля, держащие форму) Ядерная комбинация:
FormObject.Release; FormObject.DisposeOf; FormObject := nil; Форму удаляет, но Release в этом случае не нужен. Это код метода Release.
if not (TFmxFormState.Released in FFormState) then begin FWinService.ReleaseWindow(Self); Screen.RemoveForm(Self); FFormState := FFormState + [TFmxFormState.Released]; if TFmxFormState.Engaged in FormState then begin if not (csDesigning in ComponentState) then FWinService.HideWindow(Self); end; inherited Release; TMessageManager.DefaultManager.SendMessage(Self, TFormReleasedMessage.Create); end;

общение приложение-сервис-приложение делается через Intent

Ссылка: http://yaroslavbrovin.ru/tcalendar_with_highlight_days_based_on_default_tcalendar/ Автор: Ярослав Бровин В этой статье мы рассмотрим расширение функционала стандартного календаря TCalendar и добавим поддержку раскраски требуемых дней в календаре. Расширение будет продемонстрировано с использованием нового подхода разработки компонента в FireMonkey.   В результате этой статьи вы получите готовый модуль, который будет достаточно добавить в ваш проект, чтобы использовать расширенную версию календаря с раскраской дней без необходимости создания отдельного компонента календаря.  

Попытка номер 3, еще раз обновил архив. Скачайте заново.

Немного переработан внешний вид. Теперь можно просматривать темы и посты с поддержкой форматирования. Добавлен пункт меню просмотр последних тем.  

возможно нет проблем только на XE 10,

procedure TForm22.MapView1MapClick(const Position: TMapCoordinate); begin myCoordTap.Latitude := Position.Latitude; myCoordTap.Longitude := Position.Longitude; Form1.Show; end; на кнопке, второй формы
// маркер по нажатию myDescrTap := TMapMarkerDescriptor.Create(myCoordTap, Edit1.Text); myDescrTap.Icon := TBitmap.Create; myDescrTap.Icon.Assign(Form22.ImageList1.Source[1].MultiResBitmap.Bitmaps[DeviceInfo.diScale].BitmapItem.Bitmap); {$IFDEF ANDROID} myDescrTap.Appearance := TMarkerAppearance.Billboard; {$ENDIF} // myDescrTap.Snippet := myRouteInfo.DistanceAsString + ', ' + myRouteInfo.DurationAsString; myMarkerTap := Form22.MapView1.AddMarker(myDescrTap); Close;

делал когда-то так, может что изменилось
uses {$IFDEF ANDROID}REST.Authenticator.OAuth.WebForm.FMX{$ELSE}REST.Authenticator.OAuth.WebForm.Win var WebView: Tfrm_OAuthWebForm; ... procedure TForm1.FormCreate(Sender: TObject); begin   WebView := Tfrm_OAuthWebForm.Create(self);   WebView.OnTitleChanged := self.OAuth2_GoogleTasks_BrowserTitleChanged; end; ... procedure TForm1.OAuth2_GoogleTasks_BrowserTitleChanged(const ATitle: string;   var DoCloseWebView: boolean); begin   if Pos('Success code', ATitle) > 0 then   begin     AuthCode := Copy(ATitle, 14, Length(ATitle));     if (AuthCode <> '') then     begin       Memo1.Lines.Add(AuthCode);       DoCloseWebView := true;       WebView.Release;     end;   end; end; ... WebView.ShowWithURL(LURL);

как-то так
Label1.Text:= floattostr(my.Descriptor.Position.latitude) + ', ' + floattostr(my.Descriptor.Position.longitude);

Обновил TMapsEngine с выходом Delphi 10 Seattle
Вырезал нативный сенсор (т.к. исправили TLocationSensor) переименовал методы, в соответствии с используемым API Добавил Yandex Locator API (определение координат по IP, WI-FI, GSM) для определения своих координат, достаточно отправить пустой IP адрес, yandex сам распознает откуда был запрос сделан
 
модуль TMapsEngine_Seattle_10.zip

пробуйте убить adb.exe и снова нажать на скан девайсов

пробуйте убить adb.exe и снова нажать на скан девайсов

Чтобы при повороте приложение не вылетало на версиях среды до XE8 включительно дополнительно нужно добавить значение screenSize для атрибута android:configChanges в манифест. Так как 14 версия требует обязательного наличия этого значения.
Начиная с XE10 правок вносить не надо.
Было:
<activity android:name="com.embarcadero.firemonkey.FMXNativeActivity" android:label="%activityLabel%" android:configChanges="orientation|keyboard|keyboardHidden" android:launchMode="singleTask"> Стало:
<activity android:name="com.embarcadero.firemonkey.FMXNativeActivity" android:label="%activityLabel%" android:configChanges="orientation|keyboard|keyboardHidden|screenSize" android:launchMode="singleTask">

делал когда-то так, может что изменилось
uses {$IFDEF ANDROID}REST.Authenticator.OAuth.WebForm.FMX{$ELSE}REST.Authenticator.OAuth.WebForm.Win var WebView: Tfrm_OAuthWebForm; ... procedure TForm1.FormCreate(Sender: TObject); begin   WebView := Tfrm_OAuthWebForm.Create(self);   WebView.OnTitleChanged := self.OAuth2_GoogleTasks_BrowserTitleChanged; end; ... procedure TForm1.OAuth2_GoogleTasks_BrowserTitleChanged(const ATitle: string;   var DoCloseWebView: boolean); begin   if Pos('Success code', ATitle) > 0 then   begin     AuthCode := Copy(ATitle, 14, Length(ATitle));     if (AuthCode <> '') then     begin       Memo1.Lines.Add(AuthCode);       DoCloseWebView := true;       WebView.Release;     end;   end; end; ... WebView.ShowWithURL(LURL);

может как-то так:
procedure TForm1.edSumKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin   case KeyChar of     #8, '0'..'9' :  ; // цифры и <Back Space>     '.', ',' :        // разделитель целой и дробной частей числа       begin         if KeyChar <> FormatSettings.DecimalSeparator then           KeyChar := FormatSettings.DecimalSeparator; // заменим разделитель на допустимый         if Pos(FormatSettings.DecimalSeparator, edDepositing_Sum.Text) <> 0 then         begin           Key := 0; // запрет ввода второго разделителя           KeyChar := Chr(0);         end;       end;     else   // остальные символы запрещены     begin       Key := 0;       KeyChar := Chr(0);     end;   end; end;

Обновил TMapsEngine с выходом Delphi 10 Seattle
Вырезал нативный сенсор (т.к. исправили TLocationSensor) переименовал методы, в соответствии с используемым API Добавил Yandex Locator API (определение координат по IP, WI-FI, GSM) для определения своих координат, достаточно отправить пустой IP адрес, yandex сам распознает откуда был запрос сделан
 
модуль TMapsEngine_Seattle_10.zip

Обновил TMapsEngine с выходом Delphi 10 Seattle
Вырезал нативный сенсор (т.к. исправили TLocationSensor) переименовал методы, в соответствии с используемым API Добавил Yandex Locator API (определение координат по IP, WI-FI, GSM) для определения своих координат, достаточно отправить пустой IP адрес, yandex сам распознает откуда был запрос сделан
 
модуль TMapsEngine_Seattle_10.zip

Обновил TMapsEngine с выходом Delphi 10 Seattle
Вырезал нативный сенсор (т.к. исправили TLocationSensor) переименовал методы, в соответствии с используемым API Добавил Yandex Locator API (определение координат по IP, WI-FI, GSM) для определения своих координат, достаточно отправить пустой IP адрес, yandex сам распознает откуда был запрос сделан
 
модуль TMapsEngine_Seattle_10.zip

Обновил TMapsEngine с выходом Delphi 10 Seattle
Вырезал нативный сенсор (т.к. исправили TLocationSensor) переименовал методы, в соответствии с используемым API Добавил Yandex Locator API (определение координат по IP, WI-FI, GSM) для определения своих координат, достаточно отправить пустой IP адрес, yandex сам распознает откуда был запрос сделан
 
модуль TMapsEngine_Seattle_10.zip

Обновил TMapsEngine с выходом Delphi 10 Seattle
Вырезал нативный сенсор (т.к. исправили TLocationSensor) переименовал методы, в соответствии с используемым API Добавил Yandex Locator API (определение координат по IP, WI-FI, GSM) для определения своих координат, достаточно отправить пустой IP адрес, yandex сам распознает откуда был запрос сделан
 
модуль TMapsEngine_Seattle_10.zip