Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.12;
Скачать: CL | DM;

Вниз

Как сделать компонент TCheckBox прозрачным?   Найти похожие ветки 

 
V.Turecky   (2002-07-30 19:24) [0]

Добрый вечер!

Как сделать компонент TCheckBox прозрачным? А то он у меня на изображении находится и, когда пользователь меняет схему оформления Windows"а, например на "Баклажан", то всё очень некрасиво. Жду Ваших идей.


 
Eugene Lachinov ©   (2002-07-30 22:17) [1]

Честно говоря не понял, почему WM_CTLCOLORSTATIC (думал, что должно быть WM_CTLCOLORBTN), но вроде работает

procedure TForm1.WMCtlColorStatic(var Message : TWMCtlColorStatic);
begin
if Message.ChildWnd = CheckBox1.Handle then begin
SetTextColor(Message.ChildDC, CheckBox1.Font.Color);
SetBkMode(Message.ChildDC, TRANSPARENT);
Message.Result := GetStockObject(NULL_BRUSH)
end else
inherited;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
SetWindowLong(CheckBox1.Handle, GWL_EXSTYLE,
GetWindowLong(CheckBox1.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT)
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.019 c
1-35281
Эмиль
2002-07-31 15:43
2002.08.12
LoadFromStream


14-35467
NailMan
2002-07-16 06:50
2002.08.12
Кастрация сетевой карты


8-35385
Prorva
2002-04-08 23:11
2002.08.12
Надо написать подобие Paint (графического редактора)


3-35191
DmitryM
2002-07-22 17:57
2002.08.12
Вывод результатов запроса в файл


1-35274
Evgeniy_MF
2002-07-31 15:27
2002.08.12
Помогите вытащить путь..