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

← →
Comp © (2002-11-14 19:01) [0]

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

← →
Cobalt © (2002-11-15 01:55) [1]

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

← →
Almaz © (2002-11-15 02:33) [2]

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

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

Удачи.

Например, так:
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".

Цвет шрифта... Найти похожие ветки