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

[jungle]

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

Label1 := CreateWindow('Static', 'текст', WS_VISIBLE or WS_CHILD or SS_LEFT, 
                                                                    5, 5, 120, 20, Wnd, 0, hInstance, nil);

Сам шрифт изменить легко:

Font:= GetStockObject(ANSI_VAR_FONT);
SendMessage(Label1, WM_SETFONT, Font, 0);

Как изменить цвет?

[BaronTreep]

Сразу не понял, фальстрарт-пост))

[jungle]

Здесь ветка форума по WinAPI.
Итак, как изменить цвет?

[0nni]

Ну, во первых это не label, а Static, а во вторых, насколько я знаю цвет берется из COLOR_BTNTEXT, так что видимо никак.
Попробуй SS_OWNERDRAW - и рисуй сам.

[jungle]

Хочешь сказать, в WinAPI нельзя сделать текст, скажем, белым?

[0nni]

Отчего же?

SetTextColor(dc, $ffffff);

Просто сам Static использует системные цвета и не позволяет их менять.

[jungle]

Да причем тут системные цвета, вопрос как вообще сменить цвет (на любой)

SetTextColor(Label1, $ffffff);

Так не работает.

[0nni]

Я тебе еще раз говорю что никак. Только самостоятельно перерисовывая.
В SetTextColor передается контекст а не окно.

[jungle]

может надо статику сообщение как-то послать?

[jungle]

главное окно посылает ему какое-то сообщение с цветом?