Изменить шрифт TStatusBar

Изменить шрифт TStatusBar

{
 To use this example, you need a TStatusBar and at least one Panel.
 Then change the style of StatusBar1.Panels[0] to
 psOwnerDraw and add the code below to the OnDrawPanel handler.
}

 procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
 var
  SomeText: string;
 begin
  if Panel = StatusBar1.Panels[0] then
  begin
  SomeText := 'Hello!';
  Panel.Width := Trunc(StatusBar1.Canvas.TextWidth(SomeText) * 1.5);
  with StatusBar.Canvas do
  begin
  Brush.Color := clWhite;
  FillRect(Rect);
  Font.Name := 'Arial';
  Font.Color := clRed;
  Font.Style := Font.Style + [fsItalic, fsBold];
  TextRect(Rect, Rect.Left + 1, Rect., SomeText);
  end;
  end;
 end;

Взято с сайта: http://www.swissdelphicenter.ch

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...