Changeset 547

Timestamp:

Apr 20, 2024, 8:45:50 PM (7 months ago)

Author:

chronos

Message:

• Modified: Optimized scaling function.

File:

• trunk/Packages/DpiControls/Dpi.Common.pas (modified) (3 diffs)

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -60 +60 @@
   SrcPixel: TPixelPointer;
   DstPixel: TPixelPointer;
-  DstWidth, DstHeight: Integer;
-  SrcWidth, SrcHeight: Integer;
   XX, YY: Integer;
   DstPixelX, DstPixelY: Integer;
-  XNative, YNative: Integer;
   DstPixelWidth, DstPixelHeight: Integer;
   NewX, NewY: Integer;
@@ -107 +104 @@
     Exit;
   end;
-
-  DstWidth := ScaleToNativeDist(X, Width);
-  DstHeight := ScaleToNativeDist(Y, Height);
-  SrcWidth := ScaleToNativeDist(XSrc, Width);
-  SrcHeight := ScaleToNativeDist(YSrc, Height);
-  XNative := ScaleToNative(X);
-  YNative := ScaleToNative(Y);
 
   Dest.BeginUpdate;
@@ -248 +238 @@
 function ScaleToNative(Value: Integer): Integer;
 begin
-  Result := Ceil(Value * ScreenInfo.ToNative);
+  // Round function is faster than Ceil and Floor
+  Result := Round(Value * ScreenInfo.ToNative);
 end;