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.

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

[Rollo62]

Hallo Christian,

danke für die Info.

Also ich habs jetzt nicht getestet,
aber was du meinst ist das diese Funktion nicht korrekt arbeitet ?

Delphi-Quellcode:

type
  TDeviceInfo = class sealed
  public type
    TDeviceClass = (Unknown, Desktop, Phone, MediaPlayer, Tablet, Automotive, Industrial, Embedded, Watch, Glasses, Elf, Dwarf, Wizard);

Rollo

[CHackbart]

Hi,

gute Frage - die habe ich danach auch gefunden. Ich probier das mal aus, aber ich hatte bei meinen alten Projekten stets damit zu kämpfen dass meine 7" Tablets als Tablets erkannt wurden und die Anzeige auf dem Huawei die eines Telefons ist und die von meinem Nexus ein Tablet.

Da fällt mir noch was ein:

Delphi-Quellcode:

procedure TForm2.SetTitleBar(const Visible: Boolean);
{$IFDEF ANDROID}
  NativeWin: JWindow;
  DecorView: JView;
  ActionBar: JActionBar;
  uiOptions: Integer;
{$ENDIF}
begin
  
{$IFDEF ANDROID}
  CallInUIThreadAndWaitFinishing(
    procedure
    begin
      NativeWin := TAndroidHelper.Activity.getWindow;
      if NativeWin <> nil then
      begin
        DecorView := NativeWin.getDecorView;
        if Visible then
          uiOptions := TJView.JavaClass.SYSTEM_UI_FLAG_VISIBLE
        else
          uiOptions := TJView.JavaClass.SYSTEM_UI_FLAG_FULLSCREEN;

        DecorView.setSystemUiVisibility(uiOptions);

        ActionBar := TAndroidHelper.Activity.getActionBar;
        if assigned(ActionBar) then
          if Visible then
            ActionBar.Show
          else
            ActionBar.Hide;
      end;
    end);
{$ENDIF}
end;

Prinzipiell kann man mit dem Code die Status- und Titlebar deaktivieren. Das geht aber offensichtlich nicht out of the Box.

Delphi-Quellcode:

TPlatformServices.Current.SupportsPlatformService(IFMXFullScreenWindowService, FFullScreenSrvice);
  if FFullScreenSrvice <> nil then 
    // its supported - make full screen
    FFullScreenSrvice.SetFullScreen(self, True);

geht wohl auch nicht wirklich unter Android?

Nachtrag: TDeviceInfo.ThisDevice.DeviceClass scheint auch zu gehen.

Christian

[Rollo62]

Hallo Christian,

noch ein Tipp hier aus dem Forum von Bra wäre die Libraries für Intel zu unterdrücken.
Damit hast du schonmal von den 8000 Devices die 17 Srück x86er rausgefiltert, weil Google PlayStore das wohl nicht kann.

Rollo

[CHackbart]

Danke,

ich hab allerdings noch ein Problem hier mit dem Vollbild. Normalerweise kann ich mittels der Property Fullscreen problemlos unter Android die Statusleiste einblenden bzw. verstecken. Da wo ich das allerdings brauche, geht es nicht. Die Anwendung besitzt 2 Frames, welche im Hauptfenster eingebettet sind und 5 Formulare. Eines davon ist ein 3D Form. In keinem der Fenster kann ich die Statusleisten ausblenden und ich weiß nicht wieso. Ich habe die Theme in den Optionen sowohl TitleBar als auch Keine TitleBar probiert.

Im konkreten Fall soll die 3D Form im Vollbild angezeigt werden und die restlichen Formulare nicht. Bei TV sind die Balken ziemlich störend

[Rollo62]

Villeicht ist das eine Idee, aber transparent machen nützt dir ja nichts.
Womöglich kann man dann die Statusleiste 0-Pixel hoch machen ?

Rollo

[CHackbart]

Naja, ich kann ja kaum vom Endnutzer verlangen da ein Mod zu laden. Aktuell sieht das wie auf dem Screenshot aus und das kann ich so nicht wirklich anbieten

[Rollo62]

Hast du das versucht ?

Die Frage ist vie man an die Views kommt, habe ich jetzt nich nachgesehen, aber es müsste doch in den FMX Sourchen zu finden sein.
Womöglich braucht man dann noch das passende Manifest dazu.

Wie hast du das denn jetzt gemacht ?
Die Property Fullscreen habe ich mir noch nicht angesehen, was macht die denn genau unter Android ?
Es müsste do in eine ähnliche Richtung gehen.

Rollo

[CHackbart]

Nunu, das hab ich ja oben schon gepostet. Geht leider auch nicht, ich probiere morgen mal schrittweise alles auszuklammern was ich so beim Start lade, in der Hoffnung das da die Ursache zu finden ist.

[CHackbart]

Ich hab übrigens den Fehler eingrenzen können.

Damit YUV Texturen auch in Firemonkey gehen, musste ich die FMX.Context.GLES.Android und die anderen Context Units geringfügig anpassen. Das zieht einen Rattenschwanz nach sich, so dass ich dutzende weitere Firemonkey Units in meinen Codepfad einspielen musste. Irgendwo muss mir da ein Fehler unterlaufen sein, d.h. ich gehe jetzt alle 29 Original-Units durch und vergleiche die mit meinem Code. Leider ist das ganze so dermaßen aufgedröselt in dutzende Units dass die Ursache zu finden etwas zeitaufwändig ist.