Changeset 83 for trunk/Packages/Common/UPixelPointer.pas

Timestamp:

Dec 28, 2021, 5:00:37 PM (2 years ago)

Author:

chronos

Message:

• Modified: Update Common package to version 0.9.

File:

• trunk/Packages/Common/UPixelPointer.pas (modified) (4 diffs)

trunk/Packages/Common/UPixelPointer.pas

@@ -15 +15 @@
   private
     procedure SetRGB(AValue: Cardinal);
+    function GetRGB: Cardinal;    
   public
-    function GetRGB: Cardinal;
     property RGB: Cardinal read GetRGB write SetRGB;
     case Integer of
@@ -57 +57 @@
   function Color32ToPixel32(Color: TColor32): TPixel32;
   function Pixel32ToColor32(Color: TPixel32): TColor32;
+  function Color32ToColor(Color: TColor32): TColor;
+  function ColorToColor32(Color: TColor): TColor32;
 
 implementation
@@ -136 +138 @@
 var
   SrcPtr, DstPtr: TPixelPointer;
-  SubPtr: TPixelPointer;
   X, Y: Integer;
   XX, YY: Integer;
@@ -281 +282 @@
 end;
 
+function Color32ToColor(Color: TColor32): TColor;
+begin
+  Result := ((Color shr 16) and $ff) or (Color and $00ff00) or
+    ((Color and $ff) shl 16);
+end;
+
+function ColorToColor32(Color: TColor): TColor32;
+begin
+  Result := $ff000000 or ((Color shr 16) and $ff) or (Color and $00ff00) or
+    ((Color and $ff) shl 16);
+end;
+
 function PixelPointer(Bitmap: TRasterImage; BaseX: Integer;
   BaseY: Integer): TPixelPointer;