Как в программе определить физические размеры экрана устройства?

[Viacheslav]

Как в программе определить физические размеры экрана устройства? Это необходимо для корректного масштабирования элементов управления под пальцевое управление. В этой теме информация только про разрешение в пикселях, но нет ничего про физические размеры экрана (в метрах/миллиметрах/дюймах) или dpi.

 

Если нет универсального способа, то подскажите хотя бы платформозависимые для iOS и Android.

 

Для iPhone определить размеры экрана хоть как-то можно по размеру экрана в пискелях. Их всего несколько вариантов. Хотя это решение не поддерживает будущих устройств. А что делать с Android?

[estra]

DPI для Android

 

uses
  FMX.Helpers.Android, Androidapi.JNI.Util;

procedure TForm1.Button1Click(Sender: TObject);
var
  Disp: JDisplayMetrics;
  NativeClientHeight, NativeClientWidth: Single;
begin
   Disp := GetJDisplayMetrics;
   NativeClientWidth := ClientWidth * Disp.density;
   NativeClientHeight := ClientHeight * Disp.density;
   //Label1.Text := 'Width: ' + FloatToStr(NativeClientWidth);
   //Label2.Text := 'Height: ' + FloatToStr(NativeClientHeight);
   Label1.Text := FloatToStr( Disp.xdpi );
   Label2.Text := FloatToStr( Disp.ydpi );
   Label3.Text := IntToStr( Disp.densityDpi );
end;

 

Для IOS облом, рассчитывай сам http://www.dpi.nu/, http://www.sven.de/dpi/, http://www.pxcalc.com/, http://www.pixelcalculator.com/ и т.п.

[Schekhovtsov]

В Delphi XE7 ругается на строчку Disp := GetJDisplayMetrics. Можете предположить что не так?

[FIL]

Для получения характеристик экрана есть интерфейс IFMXDeviceMetricsService

[Djuise]

Я сделал на много проще. Добавил layout и задал ему alingn:=alClient; и использую его значения высоты и ширины

[Barbaris]

Доброго времени суток.

Аналогичная проблема: ругается на Disp := GetJDisplayMetrics в XE8. Просьба помочь, кто обладает информацией на сей счет, или как еще можно определить кол-во пикселей на единицу, дабы рассчитать физ. размер экрана в этих самых единицах?

[Дмитро Демчук]

В 26.05.2014 в 16:02, estra сказал:

DPI для Android

 

uses
  FMX.Helpers.Android, Androidapi.JNI.Util;

procedure TForm1.Button1Click(Sender: TObject);
var
  Disp: JDisplayMetrics;
  NativeClientHeight, NativeClientWidth: Single;
begin
   Disp := GetJDisplayMetrics;
   NativeClientWidth := ClientWidth * Disp.density;
   NativeClientHeight := ClientHeight * Disp.density;
   //Label1.Text := 'Width: ' + FloatToStr(NativeClientWidth);
   //Label2.Text := 'Height: ' + FloatToStr(NativeClientHeight);
   Label1.Text := FloatToStr( Disp.xdpi );
   Label2.Text := FloatToStr( Disp.ydpi );
   Label3.Text := IntToStr( Disp.densityDpi );
end;

 

Для IOS облом, рассчитывай сам http://www.dpi.nu/, http://www.sven.de/dpi/, http://www.pxcalc.com/, http://www.pixelcalculator.com/ и т.п.

у меня тоже ругается на строчку Disp := GetJDisplayMetrics.

[krapotkin]

есть модуль DeviceInfo от Zuby на этом сайте

 

[fsdb]

  Disp := TJDisplayMetrics.Create;

 

[ENERGY]

Android/iOS
var
   clientScreenScale   : Single;
   clientScreenSize    : TSize;
   clientScreenService : IFMXScreenService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(clientScreenService)) then
    clientScreenScale := clientScreenService.GetScreenScale
  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;

 

Изменено 9 июня, 2018 пользователем ENERGY