Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.05 c
2-1149760224
kitti
2006-06-08 13:50
2006.06.25
C++Builder


4-1143356476
scolopax
2006-03-26 11:01
2006.06.25
Блокирование Desktop


1-1147961392
veb
2006-05-18 18:09
2006.06.25
Плавающие DPI


15-1149012199
Desdechado
2006-05-30 22:03
2006.06.25
Распределенные вычисления


1-1148140525
Windows
2006-05-20 19:55
2006.06.25
Масштабирование формы