Главная страница
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.025 c
2-1149410113
Skype
2006-06-04 12:35
2006.06.25
определение кода нажатой клавиши


2-1149758283
Tempora
2006-06-08 13:18
2006.06.25
Вопрос по формам


2-1149586291
StriderMan
2006-06-06 13:31
2006.06.25
Record и указатель на Record


3-1146563364
D@Nger
2006-05-02 13:49
2006.06.25
запрет на редактирование в колонке DBGrid


15-1149155278
Ega23
2006-06-01 13:47
2006.06.25
Питер FM