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]

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

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

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