如何在FireMonkey中实现屏幕缩放?

此函数将返回屏幕缩放比例,即如果在Windows上使用125%缩放比例,则返回1.25:

function GetScreenScale: Single;
var ScreenService: IFMXScreenService;
begin
  Result := 1;
  if TPlatformServices.Current.SupportsPlatformService (IFMXScreenService, IInterface(ScreenService)) then
    Result := ScreenService.GetScreenScale;
end;

注意,在Mac上,唯一可能的屏幕缩放是1.0(非视网膜)和2.0(视网膜)。但是,在Mac上,TScreen返回的值已经被缩放,因此不需要校正。

double GetScreenScale ()
{
    double value = 1.0;
    _di_IFMXScreenService screenService;
    if (TPlatformServices::Current->SupportsPlatformService (__uuidof (IFMXScreenService), &screenService))
        value = screenService->GetScreenScale ();
    return value;
}