einen Farbwert senden und empfangen ?

[Robert]

Ä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!