Farben berechnen

[Alien426]

RGB wird in etwa so in Graustufen umgesetzt:
R: 30%, G: 59%, B: 11%

Delphi-Quellcode:

FarbeRGB := ColorToRGB(Farbe);
Grau := Round(GetRValue(FarbeRGB) * 0.30 +
              GetGValue(FarbeRGB) * 0.59 +
              GetBValue(FarbeRGB) * 0.11);