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

Timestamp:

Apr 25, 2024, 8:40:07 PM (3 weeks ago)

Author:

chronos

Message:

• Modified: Optimized BitBltBitmap scaling function.
• Modified: ScaleToNative made inline.

File:

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

trunk/Packages/DpiControls/Dpi.Graphics.pas

@@ -347 +347 @@
     ToNative: Double;
     FromNative: Double;
-    Lookup: array[-10000..10000] of Integer; // Should be sufficient for 8K screens
+    Lookup: array[-1000..10000] of Integer; // Should be sufficient for 8K screens
     property Dpi: Integer read FDpi write SetDpi;
   end;
@@ -1329 +1329 @@
   FDpi := AValue;
   ToNative := ScreenInfo.Dpi / 96;
+
+  // Precalculate scaling coefficients
   FromNative := 96 / ScreenInfo.Dpi;
-  for I := -10000 to 10000 do
+  for I := Low(Lookup) to High(Lookup) do
     Lookup[I] := Ceil(I * ToNative);
 end;