Fragen zu FMX unter Android

[greenmile]

Es gibt doch Unterschiede zwischen XE5 und XE6. In XE6 hat sich wirklich was getan, so hätte es von Anfang an sein müssen.
Es macht schon Spaß zu sehen, wie die Anwendung mit wenig Aufwand mal eben auf einer anderen Plattform läuft; wenn auch teilweise recht langsam.

Ich raffe FMX aber noch nicht so richtig. Ich habe eine Anwendung für das Galaxy S4 designed, verwende nur original Labels, Checkboxen usw. mit original Eigenschaften (Style). Ich bin jetzt davon ausgegangen, dass, wenn ich die App auf einem Galaxy Tab laufen lasse, alles gleich aussieht. Während aber auf dem S4 z.B. die hälfte des Bildschirms mit Texten gefüllt wird, braucht derselbe Text auf dem Galaxy Tab nur 1/3, es wird also nicht hochskaliert. Irgendwas übersehe ich. Oder verstehe ich falsch.

[Darlo]

Ich glaube nicht, dass eine automatische Skalierung funktioniert, bzw. dass es diese gibt. Wir machen immer zwei Designs, eins für Phone und eins für Tablet.
Meist sieht ein Phone-Design, primär im Hochformat, auf einem Tablet, das gerne im Querformat genutzt wird, schrecklich aus.

[greenmile]

Machst Du dafür jedesmal ein neues Projekt? Oder wie habt ihr die verschiedenen Screens voneinander getrennt?

[Darlo]

Alles im einem Projekt. Das Mainformular ist leer. Dann wird beim starten der App geprüft ob Hoch- oder Querformat und ob es eher ein Tablet oder ein Phone ist.
Je nach Ergebnis wird dann der Inhalt von dem entsprechendem Design-Formular geladen.

[RWarnecke]

Ich frage in der DPR Datei ab, ob es sich um ein Tablet oder ein Smartphone handelt und lade dann das entsprechende Formular :

Delphi-Quellcode:

function IsPad: Boolean;
begin
{$IFDEF IOS}
  Result := TUIDevice.Wrap(TUIDevice.OCClass.currentDevice).userInterfaceIdiom = UIUserInterfaceIdiomPad;
{$ENDIF}
{$IFDEF ANDROID}
  Result := (MainActivity.getResources.getConfiguration.screenLayout and TJConfiguration.JavaClass.SCREENLAYOUT_SIZE_MASK)
    >= TJConfiguration.JavaClass.SCREENLAYOUT_SIZE_LARGE;
{$ENDIF}

Die Funktion gibt Dir für iOS und Android zurück, ob es sich um ein Tablet oder ein Smartphone handelt.

[greenmile]

Also zwei Forms für eine Anwendung. Und wie handelt ihr den Source (was sich hinter "Button1 verbirgt") sowie die verschiedenen Auflösungen eines Pads? TScaledLayout?
TScaledLayout funktioniert zwar, es sieht aber ziemlich gestrecht aus, also irgendwie ... komisch.

[Darlo]

Zitat von greenmile:

Und wie handelt ihr den Source (was sich hinter "Button1 verbirgt")

Über eine ActionList.

[greenmile]

Zitat von RWarnecke:

Ich frage in der DPR Datei ab, ob es sich um ein Tablet oder ein Smartphone handelt und lade dann das entsprechende Formular :

Delphi-Quellcode:

function IsPad: Boolean;
begin
{$IFDEF IOS}
  Result := TUIDevice.Wrap(TUIDevice.OCClass.currentDevice).userInterfaceIdiom = UIUserInterfaceIdiomPad;
{$ENDIF}
{$IFDEF ANDROID}
  Result := (MainActivity.getResources.getConfiguration.screenLayout and TJConfiguration.JavaClass.SCREENLAYOUT_SIZE_MASK)
    >= TJConfiguration.JavaClass.SCREENLAYOUT_SIZE_LARGE;
{$ENDIF}

Die Funktion gibt Dir für iOS und Android zurück, ob es sich um ein Tablet oder ein Smartphone handelt.

Ist vielleicht eine blöde Frage, aber wie hast Du das realisiert? Wenn ich eine zweite Form mit .Show anzeige, dann klappt das nicht 100%. Oder handelst Du das direkt in der DPR?

[MEissing]

Siehe PhotoEditorDemo
http://docwiki.embarcadero.com/CodeE...ample_(Delphi)

[RWarnecke]

Zitat von greenmile:

Ist vielleicht eine blöde Frage, aber wie hast Du das realisiert? Wenn ich eine zweite Form mit .Show anzeige, dann klappt das nicht 100%. Oder handelst Du das direkt in der DPR?

Ich handel das direkt in der DPR ab, so zum Beispiel :

Delphi-Quellcode:

{$R *.res}

////////////////////////////////////////////////////////////////////////////////
///
///  To check if the app is running on a Pad
///
function IsPad: Boolean;
begin
{$IFDEF IOS}
  Result := TUIDevice.Wrap(TUIDevice.OCClass.currentDevice).userInterfaceIdiom = UIUserInterfaceIdiomPad;
{$ENDIF}
{$IFDEF ANDROID}
  Result := (MainActivity.getResources.getConfiguration.screenLayout and TJConfiguration.JavaClass.SCREENLAYOUT_SIZE_MASK)
    >= TJConfiguration.JavaClass.SCREENLAYOUT_SIZE_LARGE;
{$ENDIF}
end;
////////////////////////////////////////////////////////////////////////////////
///
///  Main Program
///
begin
  Application.Initialize;
  Application.FormFactor.Orientations := [TFormOrientation.Portrait, TFormOrientation.InvertedPortrait,
                                          TFormOrientation.Landscape, TFormOrientation.InvertedLandscape];
  if IsPad then
    Application.CreateForm(TPadMainForm, PadMainForm)
  else
    Application.CreateForm(TPhoneMainForm, PhoneMainForm);
  Application.Run;
end.