Changeset 552 for trunk/Packages/DpiControls/Dpi.Common.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.Common.pas (modified) (5 diffs)

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -15 +15 @@
   XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY): Boolean;
 function BitBltBitmap(Dest: TBitmap; X, Y, Width, Height: Integer; Src: TBitmap;
-  XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY): Boolean;
+  XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY; Precise: Boolean = False): Boolean;
 function CreateRectRgn(X1, Y1, X2, Y2: Integer): HRGN;
 {$IFDEF WINDOWS}
@@ -56 +56 @@
 
 function BitBltBitmap(Dest: TBitmap; X, Y, Width, Height: Integer;
-  Src: TBitmap; XSrc, YSrc: Integer; Rop: DWORD): Boolean;
+  Src: TBitmap; XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY;
+  Precise: Boolean = False): Boolean;
 var
   SrcPixel: TPixelPointer;
@@ -65 +66 @@
   NewX, NewY: Integer;
 begin
-  if Frac(ScreenInfo.Dpi / 96) = 0 then
-  begin
+  if not Precise or (Frac(ScreenInfo.Dpi / 96) = 0) then begin
     // Use faster non-fractional scaling
     Result := BitBlt(Dest.Canvas.Handle, X, Y, Width, Height, Src.Canvas.Handle,
@@ -238 +238 @@
 function ScaleToNative(Value: Integer): Integer;
 begin
-  // Round function is faster than Ceil and Floor
-  Result := Round(Value * ScreenInfo.ToNative);
+  Result := ScreenInfo.Lookup[Value];
+  // Round and Trunc are fast. Ceil and Floor slow.
+  // Without lookup table we would use:
+  // Result := Ceil(Value * ScreenInfo.ToNative);
 end;
 
@@ -249 +251 @@
 function ScaleFromNative(Value: Integer): Integer;
 begin
-  Result := Floor(Value * ScreenInfo.FromNative);
+  Result := Trunc(Value * ScreenInfo.FromNative);
 end;