Hallo zusammen,
hat jemand "diese" Lösung auch für ein Android-
OS? Ich habe das Beispiel verwendet und da wird mein Bildschirm verwurschtelt. Steht ja auch oft Android ToDo....
Hier habe ich die uses angepasst:
Delphi-Quellcode:
uses
{$IFDEF IOS}
iOSApi.Foundation, iOSApi.UIKit, FMX.Platform.iOS,
{$ENDIF}
{$IFDEF ANDROID}
Androidapi.Jni.GraphicsContentViewText, FMX.Platform.Android,
{$ENDIF}
System.SysUtils, FMX.Memo;
In der
Unit "ControlMover" habe ich ToDo Android wie folgt ergänzt:
Delphi-Quellcode:
function TControlMover.GetViewRect: TRectF;
{$IFDEF IOS}
var
ARect: NSRect;
begin
ARect := WindowHandleToPlatform(FForm.Handle).View.bounds;
Result := RectF(ARect.origin.x, ARect.origin.y, ARect.size.width - ARect.origin.x, ARect.size.height - ARect.origin.y);
end;
{$ELSE}
var
ARect: TRectF;
begin
// TODO - Android
ARect := WindowHandleToPlatform(FForm.Handle).Bounds; // View.bounds;
Result := RectF(ARect.Ceiling.Location.x, ARect.Location.y, ARect.size.width - ARect.Location.x, ARect.size.height - ARect.Location.y);
end;
{$ENDIF}
Aber irgendwie schiebt sich es sich nicht hoch. Ich habe das Beispiel mal angehängt. Vielleicht sieht hier jemand für Android den Fehler, welchen ich wohl übersehe.
Hier habe ich das Beispiel her:
http://delphi.radsoft.com.au/category/code-tips/
Danke.
Gruß
Axel