Прозрачный фон у Static Text.

← →
_sMile (2003-01-09 15:09) [0]

Как сделать прозрачный фон у элемента управления Static Text (обычная надпись), если же это невозможно, то как изменить цвет фона у этого элемента? Заранее благодарен.

← →
Игорь Шевченко (2003-01-09 15:41) [1]

Цвет фона изменяется, путем возврата хэндла кисти в ответ на сообщение WM_CTLCOLORSTATIC

← →
_sMile (2003-01-09 16:03) [2]

Тогда возникает другой вопрос: А как возвращать что-либо в ответ на сообщение?

← →
_sMile (2003-01-09 16:25) [3]

Спасибо, сам разобрался.
Вот кусок кода, если кому надо(для белого фона элемента):
WM_CTLCOLORSTATIC: Result := CreateSolidBrush(Rgb(255, 255, 255));

← →
Axis_of_Evil (2003-01-09 16:26) [4]

procedure WMCTLCOLORSTATIC(MSg: TMsg) message WM_CTLCOLORSTATIC;
и где-то в TMsg чего-нибудь := hMyBrush; ... я полагаю

2Игорь Шевченко
А где чему делать := hMyBrush;

PS hMyBrush: hBrush;

← →
Игорь Шевченко (2003-01-09 16:39) [5]

Msg.Result := hMyBrush

← →
_sMile (2003-01-09 16:59) [6]

Что то не совсем работает :( В надписи нужным цветом закрашиваются только те места, в которых не текста.

← →
Игорь Шевченко (2003-01-09 17:21) [7]

_sMile (09.01.03 16:59)

Это и есть фон, очевидно :-)

Создай Static со стилем SS_OWNERDRAW и рисуй там как угодно :-)

← →
_sMile (2003-01-09 17:51) [8]

Надо вот так:
if Msg = WM_CTLCOLORSTATIC then begin SetBkMode(wParam, TRANSPARENT); Result := CreateSolidBrush(Rgb(127, 127, 127)); end;
wParam - Это HDC прорисовываемого элемента.

← →
Игорь Шевченко (2003-01-09 17:58) [9]

Тоже вариант :-)

Прозрачный фон у Static Text. Найти похожие ветки