Textfarbe faden

[dizzy]

Bei:
Label3.Color := Label3.Color - (1 shl 16) - (1 shl 8) - 1 würd ich eher:
Label3.Color := ColorToRGB(Label3.Color) - (1 shl 16) - (1 shl 8) - 1 TColor speichert bekannte Farben "cl*" soweit ich weiss nicht als Farbwert, sondern als den Namen "cl*". Daher musst du erst Umwandeln!

und:
1 shl 16 = 65536
1 shl 8 = 256
sparst dir damit 2 Berechungen.

\edit: Noch besser:
(1 shl 16) - (1 shl 8) - 1 = 65536 - 256 - 1 = 65279
Dann erkennt zwar kein Mensch merh, was su da machst, aber nu ;)
Aber besser meinen Beitrag hier drunter anschauen *g*.



gruss,
dizzy