New overloaded fpgColor() that takes a Alpha parameter as well.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas
index 269d47aa..8a97efc6 100644
--- a/src/corelib/fpg_base.pas
+++ b/src/corelib/fpg_base.pas
@@ -744,6 +744,7 @@ function  fpgGetBlue(const AColor: TfpgColor): byte;
 function  fpgGetAlpha(const AColor: TfpgColor): byte;
 function  fpgGetAvgColor(const AColor1, AColor2: TfpgColor): TfpgColor;
 function  fpgColor(const ARed, AGreen, ABlue: byte): TfpgColor;
+function  fpgColor(const ARed, AGreen, ABlue, AAlpha: byte): TfpgColor;
 function  fpgDarker(const AColor: TfpgColor; APercent: Byte = 50): TfpgColor;
 function  fpgLighter(const AColor: TfpgColor; APercent: Byte = 50): TfpgColor;
 
@@ -1040,6 +1041,11 @@ begin
   Result := ABlue or (AGreen shl 8) or (ARed shl 16) or ($FF shl 24);
 end;
 
+function fpgColor(const ARed, AGreen, ABlue, AAlpha: byte): TfpgColor;
+begin
+  Result := ABlue or (AGreen shl 8) or (ARed shl 16) or (AAlpha shl 24);
+end;
+
 function fpgDarker(const AColor: TfpgColor; APercent: Byte): TfpgColor;
 var
   lColor: TRGBTriple;