Firemonkey iPad & iPhone in einer App

[Mavarik]

Hallo Zusammen...

Hab es jetzt endlich geschaft mir ein Mac-Book zu leihen und alles zu installieren um mal mit XE2 eine iOS App zu compilieren.

Wie kann ich erkennen ob ich auf einen iPad oder iPhone gestartet wurde?

Mavarik

[Mavarik]

*PUSH*

[user0815]

Xcode [[UIDevice currentDevice] localizedModel];

Soll das beste (deutsche) OS X Forum sein. Ist aber bei weitem nicht so 'nett' wie hier...

[Mavarik]

Zitat von user0815:

Xcode [[UIDevice currentDevice] localizedModel];

Soll das beste (deutsche) OS X Forum sein. Ist aber bei weitem nicht so 'nett' wie hier...

Danke... Aber in anbetracht der Tatsache, das Mobil-Studio kein XCode mehr braucht, wollte ich micht eigentlich damit nicht mehr beschäftigen...

Trotzdem Danke...

Mavarik

[Darlo]

Hi,

ich mache das so:

Mainform mit Layout alClient.
Folgender Code wird im Resize des Layouts und im Create der Form ausgeführt:

Delphi-Quellcode:

procedure TfrmMain.FormResize(Sender: TObject);
begin
    if frmPhoneQuer = nil then exit;
    if frmPadHoch = nil then exit;
    if frmPadQuer = nil then exit;

    loadView(sender);

end;

Delphi-Quellcode:

function TfrmMain.loadView(Sender: TObject): boolean;
begin

  try
    if frmMain.Width+frmMain.Height > 1010 then
      begin
        mydevice := 'iPad';
        laHilfe.Visible := false;
        laInfo.Visible := false;
      end
    else
      mydevice := 'iPhone';

    if frmMain.layoutContent.Width > frmMain.layoutContent.Height then
      format := 'Querformat'
    else
      format := 'Hochformat';


    if myDevice = 'iPhone' then
      if format = 'Hochformat' then
        begin
          frmMain.layoutMain.Parent := frmMain.layoutContent;

          frmMain.layoutMain.Visible := true;
          frmPhoneQuer.layoutPhoneQuer.Visible := false;
          frmPadHoch.layoutPadHoch.Visible := false;
          frmPadQuer.layoutPadQuer.Visible := false;
          laHilfe.Visible := true;
          laInfo.Visible := true;
        end
      else
        begin
          frmPhoneQuer.layoutPhoneQuer.Parent := frmMain.layoutContent;
          laHilfe.Visible := false;
          laInfo.Visible := false;

          frmMain.layoutMain.Visible := false;
          frmPhoneQuer.layoutPhoneQuer.Visible := true;
          frmPadHoch.layoutPadHoch.Visible := false;
          frmPadQuer.layoutPadQuer.Visible := false;
        end;

    if myDevice = 'iPad' then
      if format = 'Hochformat' then
        begin
          frmPadHoch.layoutPadHoch.Parent := frmMain.layoutContent;

          frmMain.layoutMain.Visible := false;
          frmPhoneQuer.layoutPhoneQuer.Visible := false;
          frmPadHoch.layoutPadHoch.Visible := true;
          frmPadQuer.layoutPadQuer.Visible := false;

          frmPadHoch.swSwitch(frmPadHoch.swTarif);
          frmPadHoch.swSwitch(frmPadHoch.swKstPflicht);
          frmPadHoch.swSwitch(frmPadHoch.swKstSatz);
        end
      else
        begin
          frmPadQuer.layoutPadQuer.Parent := frmMain.layoutContent;

          frmMain.layoutMain.Visible := false;
          frmPhoneQuer.layoutPhoneQuer.Visible := false;
          frmPadHoch.layoutPadHoch.Visible := false;
          frmPadQuer.layoutPadQuer.Visible := true;

          frmPadQuer.swSwitch(frmPadQuer.swTarif);
          frmPadQuer.swSwitch(frmPadQuer.swKstPflicht);
          frmPadQuer.swSwitch(frmPadQuer.swKstSatz);
        end;

      frmMain.Height := TRUNC(frmMain.layoutHead.Height+
                        frmMain.layoutContent.Height+
                        frmMain.layoutBottom.Height);
      frmMain.Width :=  TRUNC(frmMain.layoutHead.Width);
      //Nur für PC
      frmMain.ClientHeight := TRUNC(frmMain.layoutHead.Height+
                        frmMain.layoutContent.Height+
                        frmMain.layoutBottom.Height);
      frmMain.ClientWidth :=  TRUNC(frmMain.layoutHead.Width);




      result := true;
  except
      result := false;
  end;
end;

Habe es noch nicht mit dem iPhone 5 getestet.

Gruß

Philip

[greenmile]

Zitat von Mavarik:

... Aber in anbetracht der Tatsache, das Mobil-Studio kein XCode mehr braucht...

Habe ich was verpasst?

[Hansa]

Jo, die Delphi-Tage. Da wurde das mehrfach gesagt.

[greenmile]

Ahhhh, da war ich nicht. Also brauche ich kein XCode mehr? Na das wäre ja endlich mal was geiles!
Allerdings, moment, ohne XCode kommt mein Projekt doch nicht auf den Simulator bzw. auf's Gerät ...

[mkinzler]

Die Ausführung im Simulator wurde vorgeführt. Wie EMBT hier technisch vorgeht wurde natürlich nicht gesagt.
DragonFire und OpenPlug ( lider eingestellt) können das ja uach.

[Darlo]

Wann soll den die Beta starten? Ist die dann für jeden registrierten XE3 Inhaber zugänglich?