Farbe invertieren

[FastJack2]

Ergänzend zu diesem thread hier nochmal eine Funktion zum Invertieren von Farben, die ein wenig schneller sein sollte als die anderen Beiden, da sie sich der XOR-Operation bedient:

Delphi-Quellcode:

function invertcolor(color: TColor):TColor;
begin
  Result := ColorToRGB(Color) xor $00FFFFFF;
end;

The-X hat noch folgende Assembler-Variante, die möglicherweise schneller ist:

Delphi-Quellcode:

function invertcolor(color: TColor):TColor;Assembler;
asm
  CALL ColorToRGB
  XOR EAX, $00FFFFFF;
end;

[edit=Chakotay1308]Ergänzungen. Mfg, Chakotay1308[/edit]