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

colordialog   Найти похожие ветки 

← →
Змей ©   (2006-01-25 02:38) [0]

Здравствуйте Мастера!
есть функция перевода цвета в хтмлцвет!

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;

при событии Button5Click вызываю ColorDialog1.Execute;
в событии ColorDialog1Close ставлю edit7.Text:=ColorToHTML(ColorDialog1.Color);
запустив прогу выбрав цвет в ColorDialog нажимаю ок,
переводит цвет в хтмл-ий  
но не с первого раза,т.е. когда нажмешь ок, ColorDialog
закроется ничего не происходит а когда еще раз кликнешь
на Button5 и ок в ColorDialog только тогда
в edit7.Text появляется цвет(ну #0000A0)! почему?
СПАСИБО!

---

← →
Gero ©   (2006-01-25 02:43) [1]

if ColorDialog1.Execute then
 edit7.Text := ColorToHTML(ColorDialog1.Color);

---

← →
Змей ©   (2006-01-25 03:27) [2]

это где разместить? тут чето все виснет:)

---

← →
Gero ©   (2006-01-25 03:59) [3]

Читай справку по Execute.

---

Страницы: 1 вся ветка

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



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