Changeset 206 for trunk/Packages/CevoComponents/UPixelPointer.pas

Timestamp:

May 8, 2020, 6:12:35 PM (4 years ago)

Author:

chronos

Message:

• Modified: Remove warnings about uninitialized TPixelPointer variables. Initialize that types using PixelPointer function in similar way how TPoint is inicialized using Point function.

File:

• trunk/Packages/CevoComponents/UPixelPointer.pas (moved) (moved from trunk/Packages/CevoComponents/PixelPointer.pas ) (3 diffs)

trunk/Packages/CevoComponents/UPixelPointer.pas

@@ -1 @@
-unit PixelPointer;
+unit UPixelPointer;
 
 interface
@@ -31 +31 @@
     procedure SetXY(X, Y: Integer); inline; // Set pixel position relative to base
     procedure SetX(X: Integer); inline; // Set horizontal pixel position relative to base
-    procedure Init(Bitmap: TRasterImage; BaseX: Integer = 0; BaseY: Integer = 0); inline;
   end;
   PPixelPointer = ^TPixelPointer;
+
+  function PixelPointer(Bitmap: TRasterImage; BaseX: Integer = 0; BaseY: Integer = 0): TPixelPointer; inline;
 
 
@@ -62 +63 @@
 end;
 
-procedure TPixelPointer.Init(Bitmap: TRasterImage; BaseX: Integer = 0;
-  BaseY: Integer = 0); inline;
+function PixelPointer(Bitmap: TRasterImage; BaseX: Integer;
+  BaseY: Integer): TPixelPointer;
 begin
-  BytesPerLine := Bitmap.RawImage.Description.BytesPerLine;
-  BytesPerPixel := Bitmap.RawImage.Description.BitsPerPixel shr 3;
-  Base := PPixel32(Bitmap.RawImage.Data + BaseX * BytesPerPixel + BaseY * BytesPerLine);
-  SetXY(0, 0);
+  Result.BytesPerLine := Bitmap.RawImage.Description.BytesPerLine;
+  Result.BytesPerPixel := Bitmap.RawImage.Description.BitsPerPixel shr 3;
+  Result.Base := PPixel32(Bitmap.RawImage.Data + BaseX * Result.BytesPerPixel +
+    BaseY * Result.BytesPerLine);
+  Result.SetXY(0, 0);
 end;