Tablet-Telefon Erkennung

**CHackbart**

Vielleicht braucht jemand ja folgenden Code. Das Problem was ich mit den meisten im Netz gefundenen Beispielen hatte ist, das selbst 7" *hüstel* Telefone als Tablets erkannt werden.

zusammenfalten · markieren

Delphi-Quellcode:

			function GetIsTablet: Boolean;

{$IFDEF ANDROID}

const

  DENSITY_HIGH = $F0;

  DENSITY_MEDIUM = $A0;

  DENSITY_TV = $D5;

  DENSITY_XHIGH = $140;

  DENSITY_DEFAULT = DENSITY_MEDIUM;

var

  Metrics: JDisplayMetrics;

{$ENDIF}

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;

  if result then

  begin

    Metrics := TJDisplayMetrics.Create;

    MainActivity.getWindowManager.getDefaultDisplay.getMetrics(Metrics);

    result :=

      (Metrics.densityDpi = DENSITY_HIGH) or

      (Metrics.densityDpi = DENSITY_MEDIUM) or (Metrics.densityDpi = DENSITY_TV)

      or (Metrics.densityDpi = DENSITY_XHIGH);

  end;

{$ENDIF}

end;

Christian

Tablet-Telefon Erkennung

Tablet-Telefon Erkennung

Forumregeln