Come ottenere le dimensioni dello schermo in Firemonkey FM3?

Question

Come ottenere le dimensioni dello schermo con Firemonkey FM³? Il seguente codice:

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

I risultati in questo errore di compilazione:

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

Come dovrei usare IFMXScreenService interfaccia per ottenere dimensioni dello schermo?

Answer 1

Prova questo:

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

Answer 2

Non è così semplice.

FireMonkey ha funzione chiamata risoluzione http://docwiki.embarcadero.com/RADStudio/XE5/en/Working_with_Native_and_Custom_FireMonkey_Styles

E 'actualy caratteristica fredda. Se lavori con schermi con retina display, qualsiasi cosa tu dipinga sullo schermo sarà veramente piccola. Ad esempio, la risoluzione in pixel di iPhone è vicino a iPad 1 e 2, ma lo schermo è due volte più grande.

Così su iPhone sarà

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

sarà simile a 320x480. E le stesse forme.

Ma se si utilizza utilizza FMX.Platform;

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; 

Si ottiene la risoluzione dello schermo effettiva in pixel.

Questo vale anche per Mac con display Retina.

Answer 3

Ecco un/risposta chiara leggermente più completa per ottenere la risoluzione dello schermo effettiva in pixel su Android (forse iOS, non prova) dispositivi:

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;