Цвет надписи у Radiobutton и Checkbox как у фона.

← →
Grombl (2002-11-08 22:20) [0]

Подскажите, плиз, как можно сделать фон надписи находящийся рядом с Радиокнопкой таким же как общий баграунд? У Label есть свойство Transparent.
Brush.Bitmap делает только саму радиокнопку цвета фона, а надпись становиться на белом фоне...

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

← →
The_Vizit0r! © (2002-11-08 22:27) [1]

попробуй .canvas

← →
The_Vizit0r! © (2002-11-08 22:28) [2]

попробуй .canvas и закрась ненужный цвет нужным!

← →
Grombl (2002-11-08 23:37) [3]

Я не знаю нужный цвет - в том то и проблемма. Есть пользователь, который захотел поменять баграунд для проги, и есть битмап картинки которую он использует как багроунд. На форму натягивается, на саму кнопку - тоже. А как нацепить битмап на надпись или сделать ее transparent - не знаю :(

Может быть, можно проще :-)

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-09 01:24) [5]

2Ученик:
Спасибо Большое! Нет - просто огромадное... Как я только не мучался. А тут...
Еще раз Огромное Спасибо!!!

Цвет надписи у Radiobutton и Checkbox как у фона. Найти похожие ветки