invert color .. mal wieder ;)

[FastJack2]

hy hab grade die beiden invertcolor funktionen gesehen ...

warum in 3 teufelnamen nicht einfach so ?!?!:

Delphi-Quellcode:

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

wozu gibbet denn ne xor operation wenn nicht dafür ???

greetz
-FastJack2

[sakura]

Das Problem sind die vordefinierten Variablen der Systemfarben, die werden damit nicht korrekt konvertiert.

...:cat:...

[DP-Maintenance]

Dieses Thema wurde von "sakura" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Sonstige Fragen zu Delphi" verschoben.
Obiges ist beim besten Willen kein Eintrag für die Code-Lib.

[FastJack2]

autsch ....

bug in delphi ?

greetz
-FastJack2

[jim_raynor]

Zitat:

Zitat von sakura

Das Problem sind die vordefinierten Variablen der Systemfarben, die werden damit nicht korrekt konvertiert.

...:cat:...

Mmh. Wird nicht durch das ColorToRGB die Systemfarben aufgelöst? Bin doch damit vor kurzen hier im Forum deftig auf die Schnauze geflogen, wo es darum ging die Farbe einer Systemfarbe zu ermitteln und ich dummerweise ColorToRGB übersehen habe.

[Muetze1]

Moin!

Ja, wird es. Der Code von oben sollte ohne Probleme funktionieren, vermutlich hat Sakura einfach nur die ColorToRGB() übersehen so wie du damals...

MfG
Muetze1

[fkerber]

Hi!

Habe es mal mit einigen cl* durchprobiert und es hat eigentlich gepasst ...


Ciao Frederic

[FastJack2]

tja ... denn brauch ich den code ja nicht zu testen ;)

wär schick, wenn das in die code library aufgenommen würde....

greetz
-FastJack2

[flomei]

Vielleicht wärste so nett und postest das nochmal in den Vorschläge Bereich der CodeLib, vielleicht mit nem ganz ganz bisschen Text. Dann noch nen Link hierhin und das is perfekt würd ich sagen...

Dann kann hier über die Funktion diskutiert werden...

MFG Florian :hi:

[FastJack2]

hatte ich eigentlich auch da erstellt aber scheint jemand verschoben zu haben ....
poste ich es halt da nochmal ...

greetz
-FastJack2