Версия для печати темы

Автор: мисс_граффити 15.01.2007 5:15

Как можно сделать получение кода цвета в виде 'FFFFFF' (строкой)?
То есть, например, выбираем в ColorDialog цвет, который нравится, и получаем такой код...

Идея была такая:

var col: TColor;
begin
ColorDialog1.Execute;
col:=ColorDialog1.Color;
Edit1.Text:=ColorToString(col);
end;

Для некотрых цветов получается что-то типа: $00408080 , для других - вообще clWhite

Заранее спасибо.

Автор: Malice 15.01.2007 5:21

Tcolor - это обычное число, переводи в hex и все..

Автор: volvo 15.01.2007 5:28

  Edit1.Text := 
    inttohex(GetRValue(col), 2) + 
    inttohex(GetGValue(col), 2) +
    inttohex(GetBValue(col), 2);

Автор: мисс_граффити 15.01.2007 5:38

спасибо