Statusbar Farbe eines Panels ändern

[Sharky]

Hai Gambit,

dafür musst Du das Panel selber zeichnen (OnDrawPanel). Das Panel welches Du zeichnen möchtest muss als Style psOwnerDraw haben.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  StatusBar1.Panels[1].Style := psOwnerDraw;  // Panel 2 selber zeichnen
end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
  const Rect: TRect);
begin
  if Panel = StatusBar1.Panels[1] then  // zweites Panel
  begin
    with StatusBar.Canvas do
    begin
      Brush.Color := clred;
      FillRect(Rect);  // Mit der Farbe füllen
      TextOut(rect.Left + 2, rect.Top + 2, panel.Text); // Textausgeben
    end;
  end;
end;