Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c