Главная страница
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.017 c
14-35462
Baz
2002-07-18 15:49
2002.08.12
Outlook Express


14-35434
lak_b
2002-07-17 13:42
2002.08.12
Комп буйствует


1-35249
BlackSun
2002-07-30 21:46
2002.08.12
Каталог хранения cookies


1-35284
Demona
2002-07-30 21:18
2002.08.12
как читать и редактировать файл в Юникодах?


1-35372
@andrew
2002-07-29 12:25
2002.08.12
Привет Всем!