Компьютерный форум NoWa.cc

- Delphi (https://nowa.cc/forumdisplay.php?f=300)

- - Компонент Timer (https://nowa.cc/showthread.php?t=414424)

Компонент Timer

Можете подсказать, размер шрифта компонента Timer на форме

Код:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

 StatusBar1.Panels[1].Text:=TimeToStr(Time)

end;

Re: Компонент Timer

Причем здесь Timer??? StatusBar!

Re: Компонент Timer

Можно увеличить размер шрифта, которым выводится время на панели?

Re: Компонент Timer

Examp1e, Да можно.
StatusBar1.Panels[1].Font.Size:=20;
Вроде так!

Re: Компонент Timer

Цитата:

Сообщение от Examp1e (Сообщение 4736797)

Можно увеличить размер шрифта, которым выводится время на панели?

Да, можно, но придется использовать Canvas.

Код:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;

  Panel: TStatusPanel; const Rect: TRect);

begin

 if Panel = StatusBar.Panels[0] {Номер панели, в котором находится редактируемый текст} then

   begin

     StatusBar.Canvas.Font.Size  := 12;

     StatusBar.Canvas.TextOut(Rect.Left, Rect.Top, 'Это Ваш текст');

   end;

end;

Код:

procedure TForm1.Button1Click(Sender: TObject);

begin

   Self.StatusBar1.Panels.Add;

  Form1.StatusBar1.Panels[0].Style := psOwnerDraw;

end;

Лично я думаю, что Вам будет достаточно сделать шрифт, в Вашем поле, жирным!!!

Код:

StatusBar.Canvas.Font.Style := [fsBold];

Иначе, форматирование другой информации на панели статуса будет смотреться, как минимум странно.

Re: Компонент Timer

SPAnt, Спасибо

Re: Компонент Timer

StatusBar.Font.Size := 20;
Canvas не нужен.