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

Timestamp:

May 22, 2020, 9:09:55 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Incorrect drawing of start screen ornament.

File:

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

branches/highdpi/Packages/CevoComponents/UPixelPointer.pas

@@ -37 +37 @@
 
   function PixelPointer(Bitmap: TDpiRasterImage; BaseX: Integer = 0; BaseY: Integer = 0): TPixelPointer; inline;
+  function Color32ToColor(Color: TColor32): TColor;
+  function ColorToColor32(Color: TColor): TColor32;
 
 
@@ -86 +88 @@
 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.