Statusbar Text, Panelbreite

[taaktaak]

Hallo Max,

folgende Anregung für das Statusbar OnResize-Event...

Delphi-Quellcode:

procedure TfoTest9.StatusBar1Resize(Sender: TObject);
begin
  with StatusBar1 do begin
    Panels[0].Width:=50;               // v--- 4*2 = Rand-/Zwischenabstände
    Panels[1].Width:=foTest9.Width-50-50-4*2;
    end;
end;

kurze Erklärung:
Vorgabe : StatusBar hat 3 Panels; Panel[0] und Panel[2] sollen immer 50 Pixel breit sein
Ergebnis : mittleres Panel[1] ändert die Breite

Gruß Ralph