Color

[StartMis]

Помогите как можно в Edit1.Text вставлять веб цвета выбрав предварительно его в ColorDiolog-е;
В ColorDialog-е цвета, по-моему, не совпадают с веб цветами.

[dr.Chas]

//Функция первода из TColor в RGB
Function RGB(cl:TColor):string;
Var rgbColor:integer;
begin
  rgbColor := ColorToRGB(cl);
  RGB:='#' +
  Format('%.2x%.2x%.2x',
  [GetRValue(rgbColor),
  GetGValue(rgbColor),
  GetBValue(rgbColor)]);
end;

Edit.Text:=RGB(ColorDialog1.color);