Changeset 559 for trunk/Packages/DpiControls/NativePixelPointer.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/NativePixelPointer.pas (modified) (7 diffs)

trunk/Packages/DpiControls/NativePixelPointer.pas

@@ -50 +50 @@
     Pixel: PPixel32;
     Line: PPixel32;
-    RelLine: PPixel32;
     BytesPerPixel: Integer;
     BytesPerLine: Integer;
@@ -62 +61 @@
     procedure SetXY(X, Y: Integer); inline; // Set pixel position relative to base
     procedure SetX(X: Integer); inline; // Set horizontal pixel position relative to base
+    function GetY: Integer; inline; // Set pixel position relative to base
+    function GetX: Integer; inline; // Set horizontal pixel position relative to base
     procedure CheckRange; inline; // Check if current pixel position is not out of range
     function PosValid: Boolean;
@@ -117 +118 @@
 end;
 
-procedure TPixelPointer.PreviousLine;
+procedure TPixelPointer.PreviousLine; inline;
 begin
   Line := Pointer(Line) - BytesPerLine;
@@ -128 +129 @@
 end;
 
-procedure TPixelPointer.PreviousPixel;
+procedure TPixelPointer.PreviousPixel; inline;
 begin
   Pixel := Pointer(Pixel) - BytesPerPixel;
@@ -144 +145 @@
 end;
 
+function TPixelPointer.GetY: Integer; inline;
+begin
+  Result := (Pointer(Base) - Line) div BytesPerLine;
+end;
+
+function TPixelPointer.GetX: Integer; inline;
+begin
+  Result := (Pointer(Line) - Pixel) div BytesPerPixel;
+end;
+
 procedure TPixelPointer.CheckRange;
 {$IFOPT R+}
@@ -149 +160 @@
   X: Integer;
   Y: Integer;
+  D: Integer;
 {$ENDIF}
 begin
@@ -154 +166 @@
   if (PByte(Pixel) < PByte(Data)) or
     (PByte(Pixel) >= PByte(Data) + Height * BytesPerLine) then begin
-    X := PByte(Pixel) - PByte(Data);
-    Y := Floor(X / BytesPerLine);
-    X := X - Y * BytesPerLine;
-    X := Floor(X / BytesPerPixel);
+    D := PByte(Pixel) - PByte(Data);
+    Y := Trunc(D / BytesPerLine);
+    X := D - Y * BytesPerLine;
+    X := Trunc(X / BytesPerPixel);
     raise Exception.Create(Format(SOutOfRange, [X, Y, Width, Height]));
   end;