Delphi-Quellcode:
function getBrightness(R,G,B:BYTE):BYTE;
begin
Result:=TRUNC(R*0.3 + G*0.59 + B*0.11);
end;
Wer den einzelnen Farben etwas mehr Farbbalancen zuweisen möchte, dem seien andere Koeffizienten geraten. Ich hab die Werte aus einer c't oder PC Magazin, glaub ich!