Crossplatform Einstieg für Dummis gesucht

[Gyrospeter]

Here you go sehr gut erklärt wie ich finde!

https://app-entwickler-verzeichnis.d...mobilen-welten

https://app-entwickler-verzeichnis.d...iff-mit-delphi

[fabi17]

um deine 3.Frage zu beantworten.

Du kannst einen Android Emulator verwenden. Finde ich persönlich weitaus angenehmer als immer das Handy verbinden zu müssen - gerade am Anfang und bei kleinen Änderungen. Ich nutze dazu Nox. Läuft problemlos.

[holger_barntrup]

Bis hierhin funktioniert schon mal alles ganz gut.
Was ich nicht hin bekomme ist das die Form unabhängig vom Seitenverhältnis als Vollbild dargestellt wird. Ich suche schon seit gestern aber finde nichts darüber.
Meine Elemente auf der Form sind mit Ancors so platziert das sie sich passend mitbewegen können.
Mach ich jetzt die Form im Entwurf breiter und compiliere dann wandern die Elemente (Buttons) nach rechts aus dem Handydisplay. Die Höhe der Form passt sich auch nicht an, mache ich sie im Entwurf kleiner wandern die Buttons nach oben.

Was muss ich tun damit meine Form auf Displaygröße dargestellt wird und somit auch die Positionen der Element bei unterschiedlichen Auflösungen passen??



Edit:
FullScreen funktioniert nur bei Windows und nicht bei Android.

2.Edit

Dies bewirkt auch nichts:

Delphi-Quellcode:

procedure THeaderFooterForm.FormCreate(Sender: TObject);
begin
{$IFDEF ANDROID}
    HeaderFooterForm.width:=Screen.Size.Width;
    HeaderFooterForm.height:=Screen.Size.Height;
{$ENDIF}
end;

[Rollo62]

Das Docwiki ist auch nicht schlecht ...
http://docwiki.embarcadero.com/RADSt...S_und_Android)
http://docwiki.embarcadero.com/RADSt...ngsentwicklung

[holger_barntrup]

Das hatte ich schon gelesen, löst aber mein problem leider nicht.
Mal ein paar Screenhots.

Master Ansicht:

Anmerkung 2020-01-09 111319.jpg

5"Android (Sieht auf meinem Samsung S8 genau so aus)

Anmerkung 2020-01-09 111358.jpg

iPhone 4" passt die Ansicht wieder wobei ich das nicht benötige.

Anmerkung 2020-01-09 111530.jpg

[Gyrospeter]

Sieht es denn genauso aus für alle Geräte wenn du z.B. auf den

Menüpunkt Ansicht | Tool Fenster | Geräteübergreifende Vorschau

klickst?

Kannst du davon bitte einen Screenshot machen?

[haentschman]

Moin...

Haben die Buttons Anchors jeweils links und rechts? Imho sollte man, auf Grund der verschiedenen Größen, immer mit Anchors arbeiten.

[holger_barntrup]

Zitat von Gyrospeter:

Sieht es denn genauso aus für alle Geräte wenn du z.B. auf den

Menüpunkt Ansicht | Tool Fenster | Geräteübergreifende Vorschau

klickst?

Kannst du davon bitte einen Screenshot machen?

Das ist genau das gleiche wie in den vorausgegangenen Screenshots.


Ich war davon ausgegangen das sich das fenster automatisch anpasst was aber nicht der Fall ist.
Hier mal der gesamte Quelltext, ist ja nicht viel......

Delphi-Quellcode:

unit HeaderFooterTemplate;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation, FMX.Ani;

type
  THeaderFooterForm = class(TForm)
    Header: TToolBar;
    Footer: TToolBar;
    HeaderLabel: TLabel;
    Exit: TButton;
    Start: TButton;
    ImageControl1: TImageControl;
    BitmapAnimation1: TBitmapAnimation;
    AniIndicator1: TAniIndicator;
    procedure ExitClick(Sender: TObject);
    procedure StartClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HeaderFooterForm: THeaderFooterForm;

implementation

{$R *.fmx}
{$R *.LgXhdpiPh.fmx ANDROID}
{$R *.NmXhdpiPh.fmx ANDROID}
{$R *.SmXhdpiPh.fmx ANDROID}
{$R *.Windows.fmx MSWINDOWS}

procedure THeaderFooterForm.ExitClick(Sender: TObject);
begin
     ImageControl1.Visible:=false;
     AniIndicator1.Visible:=false;
     AniIndicator1.Enabled:=false;
     close;
end;

procedure THeaderFooterForm.FormCreate(Sender: TObject);
begin
{$IFDEF ANDROID}
    //HeaderFooterForm.width:=Screen.Size.Width;
    //HeaderFooterForm.height:=Screen.Size.Height;
{$ENDIF}
end;

procedure THeaderFooterForm.StartClick(Sender: TObject);
begin
     ImageControl1.Visible:=true;
     AniIndicator1.Visible:=true;
     AniIndicator1.Enabled:=true;
end;

end.

Test.zip