Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

цвет из colordialog1 в HTML

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

DiamondShark (2006-01-23 18:46:00) [1]
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;

Змей (2006-01-23 17:53:00) [2]
а как это в коде будет выглядеть? если не трудно

Johnmen (2006-01-23 17:08:00) [3]
Да, обратная.

Ega23 (2006-01-23 16:53:00) [4]
Там, если мне не изменяет память, обратная запись цвета идёт. Не RGB, а BGR

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »