Zu diesem und auch anderen immer wiederkehrenden Problemen habe ich mir ein Tool-Programm geschrieben mit dem ich diverse Vorarbeiten und Konvertierungen erledige um nicht immer wieder danach suchen zu müssen.
Hier hilft:
Delphi-Quelltext
1:
| function IdentToColor(const Ident: string; var Color: Longint): Boolean; |
Die Funktion konvertiert den Namen einer Farbkonstanten in den entsprechenden TColor-Wert.
oder
Delphi-Quelltext
1:
| function ColorToRGB(Color: TColor): Longint; |
Die Funktion wandelt einen TColor-Wert in eine RGB-Entsprechung der Farbe um.