Farbbereiche & ScanLine

[rawsoul]

Mal ein kürzerer Vorschlag:

Delphi-Quellcode:

procedure rotton(col:tcolor);
begin
  if (getrvalue(col)>getgvalue(col)) and (getrvalue(col)>getbvalue(col)) then
    showmessage('Rotton') else showmessage('kein Rotton');
end;

Oder habe ich die Frage missverstanden?

//Edit: Oh man, es ist echt zu spät für mich...