kolor z colorbox1 do kodu html(edit1;) )

0

mam taka procdurke
var
kolo:string;
begin
kolor:= colordialog1.color [tu nie wiem jak dac ]
edit1.text:= '<body bgcolor="+kolor+">'

on mi daje same cyfry...
a te cyfry jak wprowadze caly kod html to nie sa te kolory co wybralem czli zle podaje te cyfry jak zrobic zeby dobrze podawal tan kolor ktory wybiore w colordialogu??

z gory dzieki

0 
kolor:=ColorToString(colordialog1.color);

?

0 
function ColorToHtml(const Color: TColor): string;
var
  R, G, B: Byte;
begin
  R := GetRValue(Color);
  G := GetGValue(Color);
  B := GetBValue(Color);
  Result := Format('#%s%s%s', [IntToHex(R, 2), IntToHex(G, 2), IntToHex(B, 2)]);
end;

// ...
Edit1.text:= '<body bgcolor='+ColorToHtml(ColorDialog1.Color)+'>'

1 użytkowników online, w tym zalogowanych: 0, gości: 1