Statusbar Farbe eines Panels ändern

[Ultimator]

Delphi-Quellcode:

procedure TForm1.sbMainDrawPanel(StatusBar: TStatusBar; 
  Panel: TStatusPanel; const Rect: TRect); 
begin 
  sbMain.Canvas.Brush.Color:=clLime; 
  sbMain.Canvas.TextOut(Rect.Left, Rect.Top, Panel.Text); 
end;

Bei dieser Methode bekommst du als Parameter das Rect mitgeliefert, sieht man ja oben

Und wenn du es auf Buttonklick einfärben willst, dann musst du eben im OnClick des Buttons eine Variable ändern, und im OnDraw vom StatusPanel den Wert dieser Variablen prüfen und je nachdem eben die Farben setzen.