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

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

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

Цвет надписи у Radiobutton ;и Checkbox как у фона. [D6, Win95/98, WinME, NT4, Win2k, WinXP]

Grombl © (2002-11-08 22:20:00)
Подскажите, плиз, как можно сделать фон надписи находящийся рядом с Радиокнопкой таким же как общий баграунд? У Label есть свойство Transparent.
Brush.Bitmap делает только саму радиокнопку цвета фона, а надпись становиться на белом фоне...

Заранее спасибо.

Grombl (2002-11-09 01:24:00) [1]
2Ученик:
Спасибо Большое! Нет - просто огромадное... Как я только не мучался. А тут...
Еще раз Огромное Спасибо!!!

Ученик (2002-11-09 00:10:00) [2]
Может быть, можно проще :-)

procedure WMCtlColorStatic(var Message : TWMCtlColorStatic); message WM_CtlColorStatic;

procedure TForm1.WMCtlColorStatic(var Message : TWMCtlColorStatic);
begin
if (Message.ChildWnd = CheckBox1.Handle) or (Message.ChildWnd = RadioButton1.Handle) then
SetBkMode(Message.ChildDC, TRANSPARENT);
inherited
end;

procedure TransparentControl(Control : TWinControl);
begin
SetWindowLong(Control.Handle, GWL_EXSTYLE,
GetWindowLong(Control.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT);
Control.Brush.Style := bsClear;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
TransparentControl(RadioButton1);
TransparentControl(CheckBox1);
end;

Если Control-ов много, можно организовать список и использовать в TForm1.WMCtlColorStatic

Grombl (2002-11-08 23:37:00) [3]
Я не знаю нужный цвет - в том то и проблемма. Есть пользователь, который захотел поменять баграунд для проги, и есть битмап картинки которую он использует как багроунд. На форму натягивается, на саму кнопку - тоже. А как нацепить битмап на надпись или сделать ее transparent - не знаю :(

The_Vizit0r! (2002-11-08 22:28:00) [4]
попробуй .canvas и закрась ненужный цвет нужным!

The_Vizit0r! (2002-11-08 22:27:00) [5]
попробуй .canvas

Наверх

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