Kann man ja mit den wichtigsten Farben selber schreiben:
Delphi-Quellcode:
function PrettyNameOfColor(Color:TColor):String;
begin
result := ColorToString(clRed);
If result := 'clRed' then result := 'Rot' else
If result := 'clBlack' then result := 'Black' else
...
end;
Ich hab jetzt kein Delphi zur Hand: Oder hieß das ColorToStr(...)
