farben beeinflussen?!

[Kroko1999]

zerlege TColor in Rot, Grün und Blau -> manipuliere die Farben -> und schreibe sie wieder in TColor

Delphi-Quellcode:

type
TRGBRec = record
    Rot,Gruen,Blau: real;
  end;
    
function TColorToRGBRec (const C: TColor): TRGBRec;
begin
  Result.Rot := GetRValue (C)/255;
  Result.Gruen := GetGValue (C)/255;
  Result.Blau := GetBValue (C)/255;
end;

function RGBRecToTColor (const R: TRGBRec): TColor;
begin
  Result := RGB (Round (R.Rot*255),Round(R.Gruen*255),Round(G.Blau*255));
end;

function MulRGB (const AFaktorRot,AFaktorGruen,AFaktorBlau; var R: TRGBRec);
begin
  R.Rot := R.Rot*AFaktorRot;
  R.Gruen := R.Gruen*AFaktorGruen;
  R.Blau := R.Blau*AFaktorBlau;
end;