Hallo,
da hatte ich wohl auch einen kleinen Fehler drin. So ist's richtig:
Delphi-Quellcode:
function Umkehrfarbe(const Color: TColor): TColor;
begin
Result := not ColorToRGB(Color) and $FFFFFF; // Erstes Byte muss null sein
end;
@Hawkeye: Das mit dem Rotanteil war ja nur ein Beispiel...
Gruß
xaromz