TColor als normaler Text (clRed -> Rot)

[Sharky]

Zitat von taaktaak:

... Ist das in höheren Versionen anders???

Meine D2006 kennt diese Funktion auch (Ist eine einfache Case-Anweisung).
function ColorToPrettyName(Color: TColor; var Name: string): Boolean; Und die Farbnamen sind auch in Deutsch hinterlegt.

Delphi-Quellcode:

 resourcestring
  clNameBlack = 'Schwarz';
  clNameMaroon = 'Braun';
  clNameGreen = 'Grün';