Этот код был на этом форуме. Смотрите переменную sScale
if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
begin
sScreenSize := ScreenService.GetScreenSize.Round;
sScale := ScreenService.GetScreenScale;
DeviceInfo.diScreenLogic := FloatS(sScreenSize.x) + ' x ' + FloatS(sScreenSize.y);
DeviceInfo.diScreenPhis := FloatS(sScreenSize.x * sScale) + ' x ' + FloatS(sScreenSize.y * sScale);
DeviceInfo.diScreenWidth := sScreenSize.x;
DeviceInfo.diScreenHeight := sScreenSize.y;
DeviceInfo.diScale := sScale;
end;
Одно из наших приложений, в архиве чуть побольше фоточек чтобы вы убедились что все действительно хорошо. Ну, заодно и критику от коллег смогу услышать))
PS. не обращайте внимания на язык, так задумано)
приложение делается для школ Германии.
Screens.zip