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.
Julian J. Pracht