цвет из colordialog1 в HTML

← →
Змей © (2006-01-23 16:22) [0]

Здравствуйте Мастера!
на клике button1 открывается colordialog1
можно ли при выборе цвета в edit1.text перевести выбранный цвет в colordialog1 в формат для HTML
т.е. допустим красный (clred) а в HTML у него код "#FF0000"
ну и т.д. и все это в edit1.text
СПАСИБО!

← →
Ega23 © (2006-01-23 16:53) [1]

Там, если мне не изменяет память, обратная запись цвета идёт. Не RGB, а BGR

← →
Johnmen © (2006-01-23 17:08) [2]

Да, обратная.

← →
Змей © (2006-01-23 17:53) [3]

а как это в коде будет выглядеть? если не трудно

function ColorToHTML(Color: TColor): string;
var
RGBColor: DWORD;
RGB: packed array[0..3] of byte absolute RGBColor;
begin
if (Color and $80000000) <> 0
then RGBColor := GetSysColor(Color and $00FFFFFF)
else RGBColor := Color;
Result := Format("#%.2x%.2x%.2x", [RGB[0], RGB[1], RGB[2]]);
end;

цвет из colordialog1 в HTML Найти похожие ветки