OnePeople

1.Ну смотрите можно его не прятать, а использовать свойство locked, тогда оно в design перестанет нажиматься пока в инспекторе его не найдете и не выключите эту опцию 2. Можно использовать клавишу ESC для перехода к родительским компонентам объекта

Ответ есть, что вы хотите, для чего вам?

А зачем?

1622 ну так правильно вы слушатель не создали 1639 Androidapi.JNI.Provider

1.Так попробуйте 2. provider := locationManager.getBestProvider(criteria, true); location := LocationManager.getLastKnownLocation(provider); if location <> nil then begin dLatitude := location.getLatitude; dLongitude := location.getLongitude; dBearing := location.getBearing; Это вообще отдельно можете хоть в кнопку вставить 3.Androidapi.JNI.Location 4.Вы вообще не хотите ни чего делать, это же глупый вопрос LocationManager := TJLocationManager.Wrap((LocationManagerNative as ILocalObject).GetObjectID); Соответственно JLocationManager criteria := TJCriteria.JavaClass.init; Соответственно JCriteria LocationManagerNative := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.LOCATION_SERVICE); Соответственно JObject 5. Вообще Ctrl + space вам в помощь

Конечно я же вам писал код 2 вариант, в таймере или потоке делаете provider := locationManager.getBestProvider(criteria, true); location := LocationManager.getLastKnownLocation(provider); Конечно не хватает, вы либо устанавливаете всю библиотеку alcinoe, а она устанавливается просто копированием файлов, т.к. вам не нужны визуальные компоненты, либо открываете исходник и копируете код с некоторыми правками под fmx

Вообще бы не парились https://github.com/MagicFoundation/Alcinoe/tree/master/Demos/ALGeoPositionSensor/_Source

TMyLocatioListner = class(TJavaLocal, JLocationListener) private [weak] FParent : TForm1; public constructor Create(AParent : TForm1); Destructor Destroy; Override; procedure onFlushComplete(requestCode: Integer); cdecl; procedure onLocationChanged(Location: Jlocation); overload; cdecl; procedure onLocationChanged(Location: JList); overload; cdecl; procedure onProviderDisabled(Provider: JString); cdecl; procedure onProviderEnabled(Provider: JString); cdecl; procedure onStatusChanged(provider: JString; status: Integer; extras: JBundle); cdecl; end; constructor TMyLocatioListner.Create(AParent : TForm1); begin inherited Create; FParent := AParent; end; destructor TMyLocatioListner.Destroy; begin // inherited; end; procedure TMyLocatioListner.onFlushComplete(requestCode: Integer); begin // end; procedure TMyLocatioListner.onLocationChanged(Location: JList); begin // end; procedure TMyLocatioListner.onLocationChanged(Location: Jlocation); begin // end; procedure TMyLocatioListner.onProviderDisabled(Provider: JString); begin // end; procedure TMyLocatioListner.onProviderEnabled(Provider: JString); begin // end; procedure TMyLocatioListner.onStatusChanged(provider: JString; status: Integer; extras: JBundle); begin // end; try LocationListner:= TMyLocatioListner.Create(Self); LocationManagerObject := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.LOCATION_SERVICE); if LocationManagerObject <> nil then LocationManager := TJLocationManager.Wrap((LocationManagerObject as ILocalObject).GetObjectID); if LocationManager <> nil then LocationManager.requestLocationUpdates(TJLocationManager.JavaClass.GPS_PROVIDER, 0, 0, LocationListner, TJLooper.JavaClass.getMainLooper); except LogCAAdd('LocationListner except '); end; 2 способ try LocationListner:= TMyLocatioListner.Create(Self); LocationManagerNative := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.LOCATION_SERVICE); if LocationManagerNative <> nil then LocationManager := TJLocationManager.Wrap((LocationManagerNative as ILocalObject).GetObjectID); if LocationManager <> nil then LocationManager.requestLocationUpdates(TJLocationManager.JavaClass.GPS_PROVIDER, 0, 0, LocationListner, TJLooper.JavaClass.getMainLooper); except LogCAAdd('LocationListner except '); end; if LocationManager <> nil then begin criteria := TJCriteria.JavaClass.init; criteria.setSpeedAccuracy(TJCriteria.JavaClass.ACCURACY_HIGH); criteria.setAccuracy(TJCriteria.JavaClass.ACCURACY_FINE); criteria.setAltitudeRequired(true); criteria.setBearingRequired(true); criteria.setSpeedRequired(true); if locationManager.isProviderEnabled(TJLocationManager.JavaClass.GPS_PROVIDER) = false then begin Intent := TJIntent.Create; Intent := TJIntent.JavaClass.init(TJSettings.JavaClass.ACTION_LOCATION_SOURCE_SETTINGS); TAndroidHelper.Activity.startActivity(Intent); end; end; provider := locationManager.getBestProvider(criteria, true); location := LocationManager.getLastKnownLocation(provider); if location <> nil then begin dLatitude := location.getLatitude; dLongitude := location.getLongitude; dBearing := location.getBearing;

Так и есть, используй слушатель (LocationListener) или по таймеру запрашивайте местоположение по java.

ShowWindow(ApplicationHWND, SW_MINIMIZE); procedure TForm1.Maximize; var r : TRect; begin r := TRect.Create(0,0,0,0); FS := not FS; if FS then begin StandartRect := Form1.Bounds; SystemParametersInfo (SPI_GETWORKAREA, 0, @r,0) ; SetBounds (r.Left + 50, r.Top + 50, r.Right-r.Left - 100, r.Bottom-r.Top - 100) ; imgalWindowSize.Visible := false; r1.YRadius := 0; r1.XRadius := 0; r3.YRadius := 0; r3.XRadius := 0; r4.YRadius := 0; r4.XRadius := 0; end else begin r:= StandartRect; SetBounds (r.Left - 50, r.Top - 50, r.Right-r.Left + 100, r.Bottom-r.Top + 100) ; imgalWindowSize.Visible := true; r1.YRadius := 5; r1.XRadius := 5; r3.YRadius := 5; r3.XRadius := 5; r4.YRadius := 5; r4.XRadius := 5; end; TAnimator.AnimateInt(Form1, 'ClientHeight', r.Height, 0.35, TAnimationType.Out, TInterpolationType.Quartic); TAnimator.AnimateInt(Form1, 'ClientWidth', r.Width, 0.35, TAnimationType.Out, TInterpolationType.Quartic); TAnimator.AnimateInt(Form1, 'Left', r.Left, 0.35, TAnimationType.Out, TInterpolationType.Quartic); TAnimator.AnimateInt(Form1, 'Top', r.Top, 0.35, TAnimationType.Out, TInterpolationType.Quartic); end; function TForm1.GetWindowColor: TAlphaColor; var Reg:TRegistry; value: TAlphaColor; begin try Reg:=TRegistry.Create; try reg.RootKey := HKEY_CURRENT_USER; reg.openKey('SOFTWARE\Microsoft\Windows\DWM',true); value := reg.ReadInteger('ColorizationColor'); finally Reg.CloseKey; Reg.Free; end; TAlphaColorRec(Value).A := 255; Result := value; except Result := $FFFFB0B0; end; end;

Canvas.lock Canvas.Unlock Помогает с мерцанием изменять размер окна - легко реализуемо перемещение с привязкой к краям экрана, когда система предлагает развернуть экран на пол экрана или в угол поместить - это да, но никаких проблем с размещение любых компонентов и рисованием любых рисунков.

Или просто сделайте borderstyle формы none. И сами сделайте рамки, кнопки закрыть, свернуть и т.д.

Так color black это имя ресурса, смотрите файл color в папке res

У меня 11, и без него размер editа зависит от размера шрифта и ни какими свойствами не правиться

type TEdit = class(FMX.Edit.TEdit) protected procedure AdjustFixedSize(const Ref: TControl); override; end; implementation {$R *.fmx} procedure TEdit.AdjustFixedSize(const Ref: TControl); begin SetAdjustType(TAdjustType.None); end; Исправление

Не по теме, но у оператора от таких цветов в конце дня нет желания кого-нибудь убить?

? TAnimator.AnimateFloatWait не устаревший, он с ремаркой "не использовать на андроид".

Что хотите) Можете переделать логику через AnimateFloatDelay Можете через потоки и синхронизацию Можете через аниматоры и событие OnFinished

В андроид не работает AnimateFloatWait, так как не работает Application.ProcessMessages;

Intent selectorIntent = new Intent(Intent.ACTION_SENDTO); selectorIntent.setData(Uri.parse("mailto:")); final Intent emailIntent = new Intent(Intent.ACTION_SEND); emailIntent.putExtra(Intent.EXTRA_EMAIL, new String[]{"address@mail.com"}); emailIntent.putExtra(Intent.EXTRA_SUBJECT, "The subject"); emailIntent.putExtra(Intent.EXTRA_TEXT, "The email body"); emailIntent.setSelector( selectorIntent ); activity.startActivity(Intent.createChooser(emailIntent, "Send email..."));

А вам к гуглу;)

В чем разница между человеком и ногой?

Все проще Target - Android - Libraries -Revert System Files to Default

И еще посмотрите на TStreamWriter logFile: TStreamWriter; logFile.WriteLine('sdrg');