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

Timestamp:

Apr 6, 2021, 7:39:39 PM (4 years ago)

Author:

chronos

Message:

• Modified: Optimized drawing in InitOrnament procedure.

File:

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

trunk/Packages/CevoComponents/UPixelPointer.pas

@@ -46 +46 @@
   function PixelPointer(Bitmap: TRasterImage; BaseX: Integer = 0; BaseY: Integer = 0): TPixelPointer; inline;
   function SwapRedBlue(Color: TColor32): TColor32;
+  function Color32ToColor(Color: TColor32): TColor;
+  function ColorToColor32(Color: TColor): TColor32;
 
 implementation
@@ -113 +115 @@
 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;
 
 end.