Farbe invertieren

[Matze]

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:

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.