Текущий архив: 2006.06.25;
Скачать: CL | DM;

Вниз

Как изменить цвет шрифта ? (Static)   Найти похожие ветки 

← →
Delphi_is_cool ©   (2006-03-24 23:23) [0]

Здравствуйте ! САБЖ, вроде делаю всё правильно, а цвет шрифта у static"а не изменяется:

function WindowProc(Wnd: HWND; Msg: UINT; wParam, lParam: LongInt) : LongInt; stdcall;
begin
 Result := 0;
 case Msg of
   WM_CTLCOLORSTATIC: begin
     SetBkColor(HDC(wParam), $D8E9EC);
     SetTextColor(HDC(wParam), $006000);
     Result := wParam;
   end;
 else
   Result := DefWindowProc(Wnd, Msg, wParam, lParam);
 end;
end;

А если подключить к проекту модуль XPMan, то цвет меняется на нужный ...

---

← →
Rouse_ ©   (2006-03-25 11:28) [1]

   WM_CTLCOLORSTATIC: // Изменения цвета STATIC
   begin
     if LParam = Label1 then
     begin
       Result := DefWindowProc(Wnd, Msg, WParam, LParam);
       SetTextColor(WParam, $FF0000);
     end;                                  
   end;

---

← →
Delphi_is_cool ©   (2006-03-25 13:08) [2]

Большое спасибо !

---

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

Текущий архив: 2006.06.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.039 c