Schwarz = Schwarz oder doch nur 80% Schwarz?

[negaH]

Du Kannst die Funktion auch umschreiben

Delphi-Quellcode:

function Intensity(R,G,B: Byte): Integer; overload;
begin
  Result := (R * 61 + G * 174 + B * 21) div 256;
end;

Gruß Hagen