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

я к Вашему слайдеру повесил жесты (Left,Right) и нормально так получилось.
пришлось вынести пару методов в public, ​писал вроде об этом уже

uses maskUtils
Edit1.Text :=  MaskDoFormatText('000.000.000.000;#0',Edit1.Text, #0);

создать нужно изначально
Marker.Descriptor.Icon := TBitmap.Create;

uses maskUtils
Edit1.Text :=  MaskDoFormatText('000.000.000.000;#0',Edit1.Text, #0);

я к Вашему слайдеру повесил жесты (Left,Right) и нормально так получилось.
пришлось вынести пару методов в public, ​писал вроде об этом уже

TObjectList при Free сам делает чистку своих объектов

Пока в FGX есть слайдер, но он без использования жеста прокручивания. Я подумаю, чтобы добавить в следующую версию прокрутку пальцем.

Решено Zuby и Cody71727172   , может кому пригодиться:
 
Вообщем кнопочка MyLocation на MapView цепляет данные c LOCATION_SERVICE (Androidapi.JNI.Location) 
и если отсутствует GPS датчик в телефоне, тогда:
 
Прописываем функцию:
function CheckGPSActive: Boolean; // uses Androidapi.JNIBridge, Androidapi.JNI.Location,  Androidapi.JNI.JavaTypes, Androidapi.JNI.GraphicsContentViewText, Androidapi.Helpers {$IFDEF ANDROID} var   LocManagerObj: JObject;   LocationManager: JLocationManager;   allProviders: JList;   I: Integer; begin   Result := false;   LocManagerObj := SharedActivityContext.getSystemService (TJContext.JavaClass.LOCATION_SERVICE); // запрашиваем сервис Location   if Assigned(LocManagerObj) then   begin     LocationManager := TJLocationManager.Wrap((LocManagerObj as ILocalObject).GetObjectID);     // получаем LocationManager     if Assigned(LocationManager) then     begin       allProviders := LocationManager.getProviders(true);  // запрашиваем список всех провайдеров       if Assigned(allProviders) then         with TStringList.Create do         begin           for I := 0 to allProviders.size - 1 do Add(JStringToString(allProviders.get(I).ToString));           if ((IndexOf('gps') >= 0) or (IndexOf('network') >= 0) or (IndexOf('passive') >= 0)) then                      Result := true;           Free;         end;     end;  end; {$ELSE} begin   Result := false; {$ENDIF} end; и при запуске LocationSensor например на Form.Create проверяем
procedure TForm_main.FormCreate(Sender: TObject); begin {$IFDEF ANDROID}  LocationSensor.Active:=true;  if not LocationSensor.Active then         if not CheckGPSActive then           ShowMessage('Включите GPS для определения Вашего местоположения!')         else           LocationSensor.Active := true; {$ENDIF} end; LocationSensor сам подключит источник данных, поэтому изменять в LSensor1LocationChanged ничего не нужно, например:
procedure TForm_Main.LSensor1LocationChanged(Sender: TObject; const [Ref] OldLocation, NewLocation: TLocationCoord2D); //uses Maps.Engine var   MapsEngine: TMapsEngine;  MapsLoc: TMapCoordinate;  MapsData: TMapsEngineGeoData; begin   MapsLoc := TMapCoordinate.Create(NewLocation.Latitude, NewLocation.Longitude);   MapsEngine.SetOptionsYandex('');   MapsEngine.Geocoding(NewLocation, MapsData);   Edit1.text:= MapsData.FormattedAddress; end;  

Вот кстати и подоспело решение проблемы со статусбаром под Intel аппаратами
 
https://magnumlabs.wordpress.com/2015/10/10/delphiandroid-misalignment-status-bar-on-intel-based-devices/

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

называется Bounce
TScroll.AniCalculations.BoundsAnimation := false; TScroll.AniCalculations.Animation := false;

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

На уровне формы есть методы для работы с мышью:
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single); virtual; procedure MouseMove(Shift: TShiftState; X, Y: Single); virtual; procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Single; DoClick: Boolean = True); virtual; procedure MouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean); virtual; procedure MouseLeave; virtual; Используйте их, для эмуляции нажатия мышкой или пальцем. В качестве координат нужно передавать абсолютные координаты компонента

Обновился до зефирки
приложения написанные на RX10 запускаются
режим мульти окон работает с нашими приложениями (я был удивлен)

достаточно один раз сравнить, был ли скрол
if not myFlag then myFlag := newViewportPosition <> OldViewportPosition; // типа того, нет времени проверять onMouseUp
myFlag := false;

Решил при помощи координат.
На OnMouseDown сохраняем координату Y. А в обработке igiLongTap проверку или теперешняя координата равна Y.

как вариант, Item то уже выбран
s := Listview1.Items[listview1.itemindex].text;

TFormAdd.Create

не верно!
 
как нарисуешь в OnUpdateObjects, так и будет

не верно!
 
как нарисуешь в OnUpdateObjects, так и будет

жесты использовать, LongTap есть такое

TFormAdd.Create

TFormAdd.Create

Aptem, а не проще было бы сделать сервак(web например) и тогда ваши провайдеры просто не нужны.
разработать протокол обмена данными по средствам json\xml и тогда не нужно было бы заботить о клиентских приложениях и какая бд используется
вся работа перекладывается на сервак, хоть каждый месяц меняйте БД, просто переписать сервак и все клиенты снова получают и отправляют актуальную информацию

Тема: Создание приложений в FireMonkey для Windows 10 в RAD Studio 10 Seattle Дата и время: 11 ноября 2015 года в 12:00 Участники: Денис Васильев Регистрация: ссылка Участие бесплатное Запись вебинара будет доступна здесь: http://www.youtube.com/playlist?list=PLNexYoB7XRWZv-6QviwJzdRKthKuBR_dG
На вебинаре мы разберем работу с соглашениями (Contracts) в Windows 10, используя последний релиз RAD Studio 10 Seattle. Узнаем, что такое соглашения, как этим пользоваться в своих приложениях, как отправлять данные другому приложению для Windows 10. Познакомимся с новым компонентом TSharingContract и покажем его работу на конкретных примерах.  В рамках вебинара мы познакомимся с уведомлением в Windows и правилами его использования. Ответим на вопросы: как отправить ув едомление, как отменить и как получить его, в каких версиях Windows доступны уведомления. Рассмотрим особенности применения компонента TNotificationCenter с уведомлениями в Windows. Работу уведомлений разберем на нескольких примерах.