Скачать: CL | DM;

Прозрачный фон у 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]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c