Formfamily

[Darlo]

Hi,

anbei wie versprochen die Funktionen mit denen es bei mir klappt:

Delphi-Quellcode:

function isIpad: boolean;
begin
  result := TUIDevice.Wrap(TUIDevice.OCClass.currentDevice).userInterfaceIdiom = UIUserInterfaceIdiomPad;
end;

function isRetina: boolean;
begin
  result := TUIScreen.Wrap(TUIScreen.OCClass.mainScreen).scale >= 2.0;
end;

function isLandscape: boolean;
begin
  result := (TUIDevice.Wrap(TUIDevice.OCClass.currentDevice).orientation = UIDeviceOrientationLandscapeLeft)
    or (TUIDevice.Wrap(TUIDevice.OCClass.currentDevice).orientation = UIDeviceOrientationLandscapeRight);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  if isLandscape then form1.Label1.Text := 'Querformat' else form1.Label1.Text := 'Hochformat';
  if isRetina then form1.Label2.Text := 'Retina' else form1.Label2.Text := 'kein Retina';
  if isIpad then form1.Label3.Text := 'ipad' else form1.Label3.Text := 'iPhone';
end;

Wichtig, isRetina funktioniert nicht im Simulator, dafür aber glücklicherweise auf dem Device

P.S.:
Btw. uses [..], iOSapi.UIKit;