Die Helligkeit einer Farbe ist der gewichtete Mittelwert:
Delphi-Quellcode:
function Intensity(Color: TColor): Integer;
begin
Color := ColorToRGB(Color);
Result := GetBValue(Color) * 21 // Blue
+ GetGValue(Color) * 174 // Green
+ GetRValue(Color) * 61; // Red
Result := Result shr 8;
end;
Grün wird vom Auge deutlich heller wahrgenommen als Blau oder Rot.