also for Image GetPixel*

Villavu · Jan 3, 2024 · 88c5ce3 · 88c5ce3
1 parent 04bc741
commit 88c5ce3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Source/image/simba.image.pas b/Source/image/simba.image.pas
@@ -2455,7 +2455,8 @@ function TSimbaImage.GetPixel(X, Y: Integer): TColor;
 begin
   AssertInImage('GetPixel', X, Y);
 
-  Result := FData[Y * FWidth + X].ToColor();
+  with FData[Y * FWidth + X] do
+    Result := R or G shl G_BIT or B shl B_BIT;
 end;
 
 procedure TSimbaImage.SetPixel(X, Y: Integer; Color: TColor);