Текущий архив: 2002.11.28;
Скачать: CL | DM;
Вниз
Цвет шрифта... Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.019 c
