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

Timestamp:

Sep 15, 2024, 1:31:30 PM (4 days ago)

Author:

chronos

Message:

• Fixed: City screen rename right mouse click didn't work on Windows due to window title are. Change to behave the same way as on Linux.
• Fixed: Allow full screen switching in editor and movie mode.
• Modified: Precalculate scaling coefficients also for from native values conversions for faster speed.

File:

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

trunk/Packages/DpiControls/Dpi.Graphics.pas

@@ -354 +354 @@
     ToNative: Double;
     FromNative: Double;
-    Lookup: array[-10000..10000] of Integer; // Should be sufficient for 8K screens
+    LookupToNative: array[-10000..10000] of Integer; // Should be sufficient for 8K screens
+    LookupFromNative: array[-10000..10000] of Integer; // Should be sufficient for 8K screens
     property Dpi: Integer read FDpi write SetDpi;
   end;
@@ -1353 +1354 @@
   if FDpi = AValue then Exit;
   FDpi := AValue;
+
+  // Precalculate scaling coefficients
   ToNative := ScreenInfo.Dpi / 96;
-
-  // Precalculate scaling coefficients
+  for I := Low(LookupToNative) to High(LookupToNative) do
+    LookupToNative[I] := Ceil(I * ToNative);
   FromNative := 96 / ScreenInfo.Dpi;
-  for I := Low(Lookup) to High(Lookup) do
-    Lookup[I] := Ceil(I * ToNative);
+  for I := Low(LookupFromNative) to High(LookupFromNative) do
+    LookupFromNative[I] := Floor(I * FromNative);
 end;