Форум: "Основная";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 и рисуйте сами что угодно каким угодно цветом.

Удачи.

---

← →
mukha   (2002-11-15 23:18) [3]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c