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]