| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Цвет шрифта...

Comp ©   (2002-11-14 19:01:00) 

Мастера!!!
Я поставил на форму статус бар, А как менять цвет шрифта программно??? По мере надобности?
Я уже почти понял, что нифига нельзя так же, как у Button цвет фона.
Но всё-таки?

---

mukha   (2002-11-15 23:18:00) [1]

Например, так:
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
if Panel = StatusBar.Panels[0] then
begin
StatusBar.Canvas.Font.Color := clBlue;
StatusBar.Canvas.TextOut(Rect.Left, Rect.Top, "Panel - 0")
end
else
begin
StatusBar.Canvas.Font.Color := clRed;
StatusBar.Canvas.TextOut(Rect.Left, Rect.Top, "Panel - 1");
end;
end;
При этом панели имеют свойство "owner-draw".

---

Almaz   (2002-11-15 02:33:00) [2]

> Comp © (14.11.02 19:01)
> Мастера!!!
> Я поставил на форму статус бар, А как менять цвет шрифта
> программно??? По мере надобности?
> Я уже почти понял, что нифига нельзя так же, как у Button
> цвет фона.
> Но всё-таки?

Обрабатывайте OnDrawPanelи рисуйте сами что угодно каким угодно цветом.

Удачи.

---

Cobalt   (2002-11-15 01:55:00) [3]

TControl.Font
Controls the attributes of text written on or in the control.

property Font: TFont;

Description
To change to a new font, specify a new TFont object. To modify a font, change the value of the Color, Height, Name, Pitch, Size, or Style of the TFont object.
In TFont:
Charset
Color
FontAdapter
Handle
Height
Name
Pitch
PixelsPerInch
Size
Style

---

Наверх