Changeset 246 for branches/highdpi/Packages/CevoComponents/UPixelPointer.pas

Timestamp:

May 21, 2020, 8:17:38 PM (4 years ago)

Author:

chronos

Message:

• Modified: Update from trunk rev 245.
• Modified: Vcl prefix/suffix changed to Native.

File:

• branches/highdpi/Packages/CevoComponents/UPixelPointer.pas (modified) (2 diffs)

branches/highdpi/Packages/CevoComponents/UPixelPointer.pas

@@ -27 +27 @@
     BytesPerPixel: Integer;
     BytesPerLine: Integer;
-    procedure NextLine; inline; // Move pointer to start of new base line
+    procedure NextLine; inline; // Move pointer to start of next line
+    procedure PreviousLine; inline; // Move pointer to start of previous line
     procedure NextPixel; inline; // Move pointer to next pixel
+    procedure PreviousPixel; inline; // Move pointer to previous pixel
     procedure SetXY(X, Y: Integer); inline; // Set pixel position relative to base
     procedure SetX(X: Integer); inline; // Set horizontal pixel position relative to base
@@ -47 +49 @@
 end;
 
+procedure TPixelPointer.PreviousLine;
+begin
+  Line := Pointer(Line) - BytesPerLine;
+  Pixel := Line;
+end;
+
 procedure TPixelPointer.NextPixel; inline;
 begin
   Pixel := Pointer(Pixel) + BytesPerPixel;
+end;
+
+procedure TPixelPointer.PreviousPixel;
+begin
+  Pixel := Pointer(Pixel) - BytesPerPixel;
 end;