Font på tekst i Statusbar.Panels[].Text

Jeg formoder det kun er i et af dine panels du vil have skiftet font ... Ellers kunne du jo bare bruge Font propertyen.

Mens prøv det her :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := TimeToStr(now);
  StatusBar1.Panels[1].Text := DateToStr(now);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not FontDialog1.Execute then
    Exit;
end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
var
  s : String;
begin
  if Panel.Index <> 0 then
    exit;

  s := StatusBar1.Panels[0].Text;
  with StatusBar1.Canvas do
  begin
    Brush.Color := clRed;
    FillRect(Rect);
    Font := FontDialog1.Font;
    Font.Color := clYellow;
    TextOut(Rect.left + 2, Rect.top +1, s);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  StatusBar1.Panels[0].Style := psOwnerDraw;
end;

Jens B

Mægtigt. Fandt også denne:
http://www.swissdelphicenter.ch/torry/showcode.php?id=164