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

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

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

colordialog

Змей © (2006-01-25 02:38:00)
Здравствуйте Мастера!
есть функция перевода цвета в хтмлцвет!

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 03:59:00) [1]
Читай справку по Execute.

Змей (2006-01-25 03:27:00) [2]
это где разместить? тут чето все виснет:)

Gero (2006-01-25 02:43:00) [3]
if ColorDialog1.Execute then
edit7.Text := ColorToHTML(ColorDialog1.Color);

Наверх

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