Wie man Bildschirm-Größe in Firemonkey FM3?

How to get Abmessungen mit Firemonkey FM3 ? Die folgenden code:

var
  Size: TPointF;
begin
  Size := FMX.Platform.IFMXScreenService.GetScreenSize;
  ...
end;

Ergebnisse in dieser compiler Fehler:

[dcc32 Error] Unit1.pas(46): E2018 Record, object or class type required

Wie soll ich IFMXScreenService - Schnittstelle verwenden, um die Bildschirmgröße ?

  • Hier ist an example der richtige Einsatz von der IFMXScreenService - Schnittstelle.
  • Dankeschön.
  • Sie können nicht zum aufrufen von Methoden auf einem interface-Typ. Sie benötigen eine interface-Referenz, bevor Sie tatsächlich Methoden ausführen.
InformationsquelleAutor Bill | 2013-10-06
  1. 9

    Versuchen Sie dies :

    var
  ScreenSize: TSize;
begin
  ScreenSize := Screen.Size;
  Caption := IntToStr(ScreenSize.Width) + '*' + IntToStr(ScreenSize.Height);
end;
    • Was genau ist Screen?
    • Bildschirm ist eine Globale varialble (Bildschirm:TScreen), erklärte im FMX.Formen-Einheit , wahrscheinlich sein, existieren nur in XE4 .. (der code wurde getestet unter Verwendung DXE4).
    • "Bildschirm" funktioniert nicht unter Android, zum Beispiel auf meinem Galaxy Note 4, Bildschirm liefert eine Auflösung von 360x640 anstelle der Anzeige die richtige Auflösung von 2560 x 1440 Pixel.
    InformationsquelleAutor S.MAHDI
  2. 5

    Es ist nicht so einfach.

    Firemonkey-hat feature namens-Auflösung
    http://docwiki.embarcadero.com/RADStudio/XE5/en/Working_with_Native_and_Custom_FireMonkey_Styles

    Es ist wirklich cooles feature. Wenn Sie die Arbeit mit den screens, hat retina-display, dann, was Sie malen würden, auf dem Bildschirm wird wirklich klein. Zum Beispiel die pixel-Auflösung des iPhone in der Nähe zu iPad 1 und 2, aber Bildschirm ist doppelt so groß sind.

    Also auf dem iPhone wird 

    var
  ScreenSize: TSize;
begin
  ScreenSize := Screen.Size;
  Caption := IntToStr(ScreenSize.Width) + '*' + IntToStr(ScreenSize.Height);
end;

    Aussehen wird 320x480. Und die gleichen Formen.

    Aber wenn Sie verwenden
    verwendet
    FMX.Plattform;

    procedure ShowScreenSize;
var
  ScreenSvc: IFMXScreenService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenSvc)) then
  begin
    ScreenSize := Format('Resolution: %fX%f', [ScreenSvc.GetScreenSize.X, ScreenSvc.GetScreenSize.Y]);
    ShowMessageFmt('Screen.Width = %g, Screen.Height = %g', [ScreenSize.X, ScreenSize.Y]);
  end;
end;

    Erhalten Sie aktuelle Bildschirmauflösung in Pixel.

    Diese gelten auch für Mac mit Retina-display.

    InformationsquelleAutor Pavel Jiri Strnad
  3. 2

    Hier ist eine etwas vollständigere/klare Antwort zu bekommen, die tatsächliche Bildschirmauflösung in Pixel Android (evtl. iOS, nicht getestet) Geräte:

    var
   clientScreenScale   : Single;
   clientScreenSize    : TSize;
   clientScreenService : IFMXScreenService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(clientScreenService)) then
  begin
    clientScreenScale   := clientScreenService.GetScreenScale;
  end
  else clientScreenScale   := 1;

  // The display device's width:
  clientScreenSize.CX   := Round(clientScreenService.GetScreenSize.X*clientScreenScale);

  // The display device's height:
  clientScreenSize.CY   := Round(clientScreenService.GetScreenSize.Y*clientScreenScale);
end;
    InformationsquelleAutor bLight
  4. 1

    Hier ist eine andere Lösung nicht erforderlich ist, ist die Multiplikation von scale:

    var
  aResolution      : JPoint;
begin
  aResolution := TJPoint.Create;
  TAndroidHelper.Display.getRealSize(aResolution);
end;

    Gut funktioniert in Delphi 10.3 RIO. Von dem was ich verstehe, "getRealSize" erfordert mindestens Android 4.2, aber da Delphi RIO nicht einmal die Unterstützung von alten Versionen von Android, ich glaube nicht, dass das ein show-stopper.

    InformationsquelleAutor bLight
Schreibe einen Kommentar