Fórum Conversao: TColor -gt; TRGBTriple Como fazer?? #281125

uses
  Windows, Graphics, ...
...

function ColorToRGBTriple(const AColor: TColor): TRGBTriple;
// Converte uma cor para uma tripla RGB
begin
  Result.rgbtRed   := GetRValue(AColor);
  Result.rgbtGreen := GetGValue(AColor);
  Result.rgbtBlue  := GetBValue(AColor)
end;

function RGBTripleToColor(const ATriple: TRGBTriple): TColor;
// Converte uma tripla RGB para uma cor
begin
  Result := RGB(ATriple.rgbtRed, ATriple.rgbtGreen, ATriple.rgbtBlue);
end;