diff options
Diffstat (limited to 'src/corelib/fpg_base.pas')
| -rw-r--r-- | src/corelib/fpg_base.pas | 6 |
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; |