Главная страница
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.03 c
2-1149604960
Alex>
2006-06-06 18:42
2006.06.25
Массив записей


2-1149582114
XTD
2006-06-06 12:21
2006.06.25
procedure TForm1.FormCreate(Sender: TObject); Параметры формы


8-1137721293
STK
2006-01-20 04:41
2006.06.25
Как использовать компоненты для файлов tiff


2-1149751434
XTD
2006-06-08 11:23
2006.06.25
Глючит MediaPleyer


2-1149748196
Perf2k2
2006-06-08 10:29
2006.06.25
не могу справиться с ListView