StatusBar FontColor ?

[Matze]

Das dürfte damit nichts zu tun haben. Eine mögliche Lösung wäre diese hier:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Auch im OI einstellbar
  StatusBar1.Panels[0].Style := psOwnerDraw;
  StatusBar1.Panels[0].Width := 250;
end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
  const Rect: TRect);
var
  PanelRect: TRect;
begin
  if Panel = StatusBar1.Panels[0] then
  begin
   StatusBar.Canvas.FillRect(Rect);
   StatusBar1.Font.Color := clRed;

   StatusBar1.Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top, 'Schrift wird in clRed angezeigt');
  end;
end;