Каким образом можно изменять цвет фона и цвет шрифта в Label?

[jungle]

Тогда что можно сделать белым цветом через SetTextColor?

[0nni]

нет, Static "узнает" цвет использую GetSysColor(COLOR_BTNTEXT); и делает его цветом текста, каждый раз при выводе текста, и больше ничего ни у кого не "спрашивает".

[0nni]

Сообщение от jungle

Тогда что можно сделать белым цветом через SetTextColor?

Текущий цвет текста на контексте, но для этого ты должен сам рисовать содержимое Static.

[BaronTreep]

Есть сообщение WM_CTLCOLORSTATIC, но:

The WM_CTLCOLORSTATIC message is never sent between threads; it is sent only within the same thread.

Поэтому, если вы рисуете "где-то там", то может лучше просто через HDC? Если это ваш поток, то придется обрабатывать сообщение и переопределять кисть.

[jungle]

Не могу понять где ошибка! Компилируется, но ничего не происходит:

var  
  Wnd: HWND;                                   //дескриптор формы
  dc : HDC;
  fnt, oldFnt : HFONT;
  lf : TLogFont;
...................................................................
  // Создание окна:
  Wnd:= CreateWindowEx (0, WndClass, WndCaption, WS_SYSMENU or WS_MINIMIZEBOX,
                          450, 250, 146, 340, 0, MainMenu, hInstance, nil);

...................................................................

dc := GetDC(Wnd);                               //получаем контекст окна
lf.lfHeight := -20;
lf.lfWidth := 0;
lf.lfEscapement := 0;
lf.lfOrientation := 0;
lf.lfWeight := 400;
lf.lfItalic := 0;
lf.lfUnderline := 0;
lf.lfStrikeOut := 0;
lf.lfCharSet := RUSSIAN_CHARSET;
lf.lfOutPrecision := 0;
lf.lfClipPrecision := 0;
lf.lfQuality := ANTIALIASED_QUALITY;
lf.lfFaceName := 'Arial';
fnt := CreateFontIndirect(lf);                   //создаем шрифт

oldFnt := SelectObject(dc, fnt);               //выбираем шрифт в контекст
 
SetBkMode(dc, TRANSPARENT);	       //делаем фон под буквами прозрачным
SetTextColor(dc,RGB(80,220,100));           // установка цвета текста
TextOut(dc, 10, 10, 'Привет ВСЕМ', 11); //печатаем строку

SelectObject(dc, oldFnt);		       //возвращаем в контекст старый шрифт
ReleaseDC(wnd, dc);		       //освобождаем контекст

Если сделать так:

dc := GetDC(0);

то текст появляется, но как сделать на форме?

[0nni]

Ты когда нибудь рисовал через GDI? видимо нет.
BaronTreep, же дал правильное решение. В оконной процедуре сделай обработку WM_CTLCOLORSTATIC:

WM_CTLCOLORSTATIC :
  begin
    SetTextColor(WParam, $ff00ff); //Цвет текста
    DeleteObject(SelectObject(WParam, GetSysColorBrush(COLOR_BTNFACE))); //залвка
    SetBkMode(WParam, TRANSPARENT); //прозрачная заливка для текста
  end; { WM_CTLCOLORSTATIC }

Только не забудь static создать.

[jungle]

WM_CTLCOLORST

[jungle]

WM_CTLCOLORSTATIC:
  begin
    if lParam = Static1 then
    begin
      Brush := CreateSolidBrush(RGB(255, 0, 0)); 
      SetTextColor(wParam, $FF0000);
      SetBkColor(wParam, RGB(255, 255, 255)); [COLOR="Navy"]
      Result := Brush;
      Exit
    end
  end;