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

Timestamp:

May 22, 2020, 11:52:44 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Drawing start screen ornament under Windows.

File:

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

branches/highdpi/Packages/CevoComponents/UPixelPointer.pas

@@ -9 +9 @@
   TColor32 = type Cardinal;
   TColor32Component = (ccBlue, ccGreen, ccRed, ccAlpha);
+
+  { TPixel32 }
+
   TPixel32 = packed record
+    procedure SetRGB(Color: TColor32);
+    function GetRGB: TColor32;
     case Integer of
       0: (B, G, R, A: Byte);
@@ -42 +47 @@
 
 implementation
+
+{ TPixel32 }
+
+procedure TPixel32.SetRGB(Color: TColor32);
+begin
+  B := Color and $ff;
+  G := (Color shr 8) and $ff;
+  R := (Color shr 16) and $ff;
+end;
+
+function TPixel32.GetRGB: TColor32;
+begin
+  Result := ARGB and $ffffff;
+end;
 
 { TPixelPointer }