Changeset 552 for trunk/Packages/DpiControls/Dpi.Graphics.pas

Timestamp:

Apr 24, 2024, 10:28:34 AM (3 weeks ago)

Author:

chronos

Message:

• Modified: Optimized high DPI scaling. Use lookup table for scaled values. Draw only terrain textures with precise scaling.

File:

• trunk/Packages/DpiControls/Dpi.Graphics.pas (modified) (4 diffs)

trunk/Packages/DpiControls/Dpi.Graphics.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Graphics, LCLType, GraphType, Types;
+  Classes, SysUtils, Math, Graphics, LCLType, GraphType, Types;
 
 const
@@ -347 +347 @@
     ToNative: Double;
     FromNative: Double;
+    Lookup: array[-10000..10000] of Integer; // Should be sufficient for 8K screens
     property Dpi: Integer read FDpi write SetDpi;
   end;
@@ -1322 +1323 @@
 
 procedure TScreenInfo.SetDpi(AValue: Integer);
+var
+  I: Integer;
 begin
   if FDpi = AValue then Exit;
@@ -1327 +1330 @@
   ToNative := ScreenInfo.Dpi / 96;
   FromNative := 96 / ScreenInfo.Dpi;
+  for I := -10000 to 10000 do
+    Lookup[I] := Ceil(I * ToNative);
 end;