Embarcadero RAD Studio (6284) / Вопросы по Embarcadero RAD Studio

Sulphide:
stanzdor
У меня 4k монитор и 150% масштаб в винде, кстати, и screen.Width/Height дают 2560x1440 вместо нативного разрешения. Не знаю пригодится эта инфа или нет))

Короче так будет правильнее:

Код:

var .... clientScreenScale : Single; clientScreenSize : TSize; clientScreenService : IFMXScreenService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(clientScreenService)) then begin clientScreenScale := clientScreenService.GetScreenScale; end else clientScreenScale := 1; clientScreenSize.CX := Round(clientScreenService.GetScreenSize.X * clientScreenScale); clientScreenSize.CY := Round(clientScreenService.GetScreenSize.Y * clientScreenScale); bmp:= TBitmap.Create; bmp.SetSize(clientScreenSize); .....

в uses добавить FMX.Platform