Bit shifting of Alpha channel was wrong in color conversion routines

Both RGBTripleTofpgColor() and FPColorTofpgColor() incorrectly
bit shifted the Alpha channel value.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas
index 34b14d45..a6f4947f 100644
--- a/src/corelib/fpg_base.pas
+++ b/src/corelib/fpg_base.pas
@@ -979,12 +979,12 @@ end;
 
 function RGBTripleTofpgColor(const AColor: TRGBTriple): TfpgColor;
 begin
-  Result := AColor.Blue or (AColor.Green shl 8) or (AColor.Red shl 16) or (AColor.Alpha shl 32);
+  Result := AColor.Blue or (AColor.Green shl 8) or (AColor.Red shl 16) or (AColor.Alpha shl 24);
 end;
 
 function FPColorTofpgColor(const AColor: TFPColor): TfpgColor; deprecated;
 begin
-  Result := AColor.Blue or (AColor.Green shl 8) or (AColor.Red shl 16) or (AColor.Alpha shl 32);
+  Result := AColor.Blue or (AColor.Green shl 8) or (AColor.Red shl 16) or (AColor.Alpha shl 24);
 end;
 
 function fpgGetRed(const AColor: TfpgColor): byte;