Statusbar -> Panel[0] -> Schrift andersfarbig

[Sherlock]

Klar, das machst Du im OnDraw Ereignis des Panels. Musst es halt noch auf OwnerDraw=True setzen dann geht das wunderbar.

Delphi-Quellcode:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
var
  Color: TColor;
  MyRect: TRect;
begin
  MyRect := Rect;
  case Panel.Index of
    3:
      begin
        Color := clred;
      end;
  else
    Color := clBlack;
  end;
  StatusBar1.Canvas.Font.Color := Color;
  StatusBar1.Canvas.Font.Style := [fsbold];
  DrawText(StatusBar1.Canvas.Handle, PChar(Panel.Text), -1, MyRect, DT_SINGLELINE
    or DT_VCENTER or DT_CENTER);
end;

Sherlock