Changeset 617 for trunk/Packages/DpiControls

Timestamp:

Sep 15, 2024, 1:31:30 PM (2 months 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.

Location:

trunk/Packages/DpiControls

Files:

• Dpi.Common.pas (modified) (2 diffs)
• Dpi.Graphics.pas (modified) (2 diffs)

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -225 +225 @@
 function ScaleToNative(Value: Integer): Integer; inline;
 begin
-  Result := ScreenInfo.Lookup[Value];
+  Result := ScreenInfo.LookupToNative[Value];
   // Round and Trunc are fast. Ceil and Floor are slow.
   // Without lookup table we would use:
@@ -238 +238 @@
 function ScaleFromNative(Value: Integer): Integer;
 begin
-  Result := Trunc(Value * ScreenInfo.FromNative);
+  Result := ScreenInfo.LookupFromNative[Value];
+  // Round and Trunc are fast. Ceil and Floor are slow.
+  // Without lookup table we would use:
+  // Result := Floor(Value * ScreenInfo.FromNative);
 end;
 

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;