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

Timestamp:

May 9, 2020, 4:02:07 PM (5 years ago)

Author:

chronos

Message:

• Modified: Improved HighDPI branch. Imported new changes from trunk branch.

File:

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

branches/highdpi/Packages/CevoComponents/UPixelPointer.pas

@@ -1 @@
-unit PixelPointer;
+unit UPixelPointer;
 
 interface
 
 uses
-  Classes, SysUtils, Graphics;
+  UDpiControls, Classes, SysUtils, Graphics;
 
 type
@@ -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: TDpiRasterImage; 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: TDpiRasterImage; 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;