Текущий архив: 2006.02.12;
Скачать: CL | DM;
Вниз
цвет из 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]а как это в коде будет выглядеть? если не трудно
← →
DiamondShark © (2006-01-23 18:46) [4]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;
Страницы: 1 вся ветка
Текущий архив: 2006.02.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.041 c
