Wie man eine Farbe vom Typ
TColor invertiert, hat
Dax 
hier geschrieben:
Delphi-Quellcode:
function InvertTColor(Color: TColor): TColor;
begin
// Damit nur die Farbe invertiert wird:
Result := ((not Color) and $00FFFFFF) or (Color and $FF000000);
end;
Dax fügte noch folgende Erklärung hinzu, damit man diese einzelne zeile Code auch versteht, was nicht so selbstverständlich ist. 
Zitat von
Dax:
Color AND $00FFFFFF gibt den Farbteil von TColor zurück, also die 3 letzten Bytes. Es werden nicht die ersten Bytes zurück gegeben, da dies mit AND $00 ausgeschlossen wird.
Und mit OR (Color AND $FF000000) wird dieses letzte Byte wieder eingefügt.
Und
shmia hat noch eine Lösung für das Invertieren von Farben, die auch Systemfarben invertiert:
Delphi-Quellcode:
function InvertTColor(Color: TColor): TColor;
begin
//Farbe in den RGB Farbbereich wandeln
//es könnte ja auch eine Systemfarbe sein
Result := (
not ColorToRGB(Color))
and $00FFFFFF;
end;
Darüberinaus möchte
defede darauf hinweisen, dass ein invertiertes Grau logischerweise auch grau bleibt, da die Farbanteile bei Grau alle exakt gleich hoch sind und sich eine Invertierung hier nicht auf die Farbe auswirkt. Nur, damit sich niemand wundert.