Changeset 170 for trunk/Packages/CevoComponents

Timestamp:

Jun 15, 2019, 4:07:03 PM (6 years ago)

Author:

chronos

Message:

• Modified: PixelPointer moved to separate unit.

Location:

trunk/Packages/CevoComponents

Files:

• CevoComponents.lpk (modified) (2 diffs)
• CevoComponents.pas (modified) (1 diff)
• PixelPointer.pas (added)
• ScreenTools.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/CevoComponents.lpk

@@ -37 +37 @@
     <Description Value="C-evo components"/>
     <Version Major="1" Minor="2"/>
-    <Files Count="13">
+    <Files Count="14">
       <Item1>
         <Filename Value="Area.pas"/>
@@ -96 +96 @@
         <Filename Value="BaseWin.pas"/>
         <HasRegisterProc Value="True"/>
+        <UnitName Value="BaseWin"/>
       </Item13>
+      <Item14>
+        <Filename Value="PixelPointer.pas"/>
+        <UnitName Value="PixelPointer"/>
+      </Item14>
     </Files>
     <RequiredPkgs Count="2">

trunk/Packages/CevoComponents/CevoComponents.pas

@@ -10 +10 @@
 uses
   Area, ButtonA, ButtonB, ButtonC, ButtonN, EOTButton, ButtonBase, DrawDlg, 
-  Sound, BaseWin, LazarusPackageIntf;
+  Sound, BaseWin, PixelPointer, LazarusPackageIntf;
 
 implementation

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -16 +16 @@
     clPage, clCover: TColor;
   end;
-
-  TColor32 = type cardinal;
-  TColor32Component = (ccBlue, ccGreen, ccRed, ccAlpha);
-  TPixel32 = packed record
-    case integer of
-      0: (B, G, R, A: byte);
-      1: (ARGB: TColor32);
-      2: (Planes: array[0..3] of byte);
-      3: (Components: array[TColor32Component] of byte);
-  end;
-  PPixel32 = ^TPixel32;
-
-  { TPixelPointer }
-
-  TPixelPointer = record
-    Base: PPixel32;
-    Pixel: PPixel32;
-    Line: PPixel32;
-    RelLine: PPixel32;
-    BytesPerPixel: integer;
-    BytesPerLine: integer;
-    procedure NextLine; inline; // Move pointer to start of new base line
-    procedure NextPixel; inline; // Move pointer to next 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
-    procedure Init(Bitmap: TRasterImage; BaseX: integer = 0; BaseY: integer = 0); inline;
-  end;
-  PPixelPointer = ^TPixelPointer;
 
 {$IFDEF WINDOWS}
@@ -218 +190 @@
 
 uses
-  Directories, Sound, Registry;
+  Directories, Sound, Registry, PixelPointer;
 
 var
@@ -1429 +1401 @@
 end;
 
-{ TPixelPointer }
-
-procedure TPixelPointer.NextLine; inline;
-begin
-  Line := Pointer(Line) + BytesPerLine;
-  Pixel := Line;
-end;
-
-procedure TPixelPointer.NextPixel; inline;
-begin
-  Pixel := Pointer(Pixel) + BytesPerPixel;
-end;
-
-procedure TPixelPointer.SetXY(X, Y: Integer); inline;
-begin
-  Line := Pointer(Base) + Y * BytesPerLine;
-  SetX(X);
-end;
-
-procedure TPixelPointer.SetX(X: Integer); inline;
-begin
-  Pixel := Pointer(Line) + X * BytesPerPixel;
-end;
-
-procedure TPixelPointer.Init(Bitmap: TRasterImage; BaseX: Integer = 0;
-  BaseY: integer = 0); inline;
-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);
-end;
-
 procedure LoadPhrases;
 begin