Changeset 153 for trunk/Packages/Common/PixelPointer.pas

Timestamp:

Aug 14, 2024, 1:05:13 PM (3 months ago)

Author:

chronos

Message:

• Added: Full screen switching support.
• Added: Help form.
• Modified: Updated Common package.
• Fixed: Execution of compiled Java and C# programs.
• Fixed: Removed interlanced empty lines in Console form on Unix.

File:

• trunk/Packages/Common/PixelPointer.pas (modified) (2 diffs)

trunk/Packages/Common/PixelPointer.pas

@@ -18 +18 @@
     function GetRGB: Cardinal; inline;
   public
+    class function CreateRGB(R, G, B: Byte): TPixel32; static;
+    class function CreateRGBA(R, G, B, A: Byte): TPixel32; static;
     property RGB: Cardinal read GetRGB write SetRGB;
     case Integer of
@@ -104 +106 @@
 end;
 
+class function TPixel32.CreateRGB(R, G, B: Byte): TPixel32;
+begin
+  Result.R := R;
+  Result.G := G;
+  Result.B := B;
+  Result.A := 0;
+end;
+
+class function TPixel32.CreateRGBA(R, G, B, A: Byte): TPixel32;
+begin
+  Result.R := R;
+  Result.G := G;
+  Result.B := B;
+  Result.A := A;
+end;
+
 procedure TPixel32.SetRGB(AValue: Cardinal);
 begin