Changeset 539 for trunk/Packages/DpiControls/NativePixelPointer.pas

Timestamp:

Apr 16, 2024, 11:43:51 AM (4 weeks ago)

Author:

chronos

Message:

• Modified: Optimized scaled bitmap drawing.

File:

• trunk/Packages/DpiControls/NativePixelPointer.pas (modified) (2 diffs)

trunk/Packages/DpiControls/NativePixelPointer.pas

@@ -34 +34 @@
     function GetPixelB: Byte; inline;
     function GetPixelG: Byte; inline;
-    function GetPixelPlane(Index: Byte): Byte;
+    function GetPixelPlane(Index: Byte): Byte; inline;
     function GetPixelR: Byte; inline;
     function GetPixelA: Byte; inline;
     function GetPixelPlanes: TColor32Planes;
-    function GetPixelRGB: Cardinal;
+    function GetPixelRGB: Cardinal; inline;
     procedure SetPixelARGB(Value: TColor32); inline;
     procedure SetPixelB(Value: Byte); inline;
     procedure SetPixelG(Value: Byte); inline;
-    procedure SetPixelPlane(Index: Byte; AValue: Byte);
+    procedure SetPixelPlane(Index: Byte; AValue: Byte); inline;
     procedure SetPixelR(Value: Byte); inline;
     procedure SetPixelA(Value: Byte); inline;
-    procedure SetPixelRGB(Value: Cardinal);
+    procedure SetPixelRGB(Value: Cardinal); inline;
   public
     Base: PPixel32;
@@ -106 +106 @@
 procedure TPixel32.SetRGB(AValue: Cardinal);
 begin
-  R := (AValue shr 16) and $ff;
-  G := (AValue shr 8) and $ff;
-  B := (AValue shr 0) and $ff;
+  ARGB := (ARGB and $ff000000) or (AValue and $ffffff);
 end;