Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.12;
Скачать: 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 вся ветка

Текущий архив: 2006.02.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.057 c
2-1137912297
LaCross
2006-01-22 09:44
2006.02.12
Шифрование данных


8-1125464223
Rentgen
2005-08-31 08:57
2006.02.12
Как заставить компьютер послушать?


2-1138003865
mctarik
2006-01-23 11:11
2006.02.12
Писал ли кто нибудь Инструменты к Дельфи!


2-1138369803
Glex
2006-01-27 16:50
2006.02.12
Офигеть. Слетает и даже ошибок не выдаёт!


2-1138258439
ANB
2006-01-26 09:53
2006.02.12
Как динамически подключить процедуру из bpl ?