Ähm - naja, wie wär's damit...
Delphi-Quellcode:
function colrToStr(col:TColor):STRING;
var
r,g,b:byte;
lCol:LONGINT;
begin
lCol:=ColorToRGB(col);
r:=GetRColor(lCol);
g:=GetGColor(lCol);
b:=GetBColor(lCol);
result:=Format('#%.2x%.2x%.2x',[r,g,b]);
end;
Zur Erklärung:
ColorToRGB wandelt das Delphi-TColor Modell in das Windows-Color-Modell um (nur zur Sicherheit). GetXColor liefert den Farbcode der Farbkomponent X (R,G,B) - diese werden in den Variablen R,G & B gespeichert. Letzten Endes gibt Format den String formatiert aus (in diesem Fall:
RGB-code).
Copyright!?
Gibt's nich
Verwendung:
für den Chat vielleicht noch Commandos unterteilen: /msg für Messages, /col zum Farbwechsel, u.s.w. ...
Haut rein!