StatusBar Panels RECHTS beginnen

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif und herzlich willkommen in der DP-Gemeinde .

Wenn sich die Fenstergrösse nicht änderst, kannst du ja alles manuel über die Eigenschaft Width des StatusBar-Panels andern.
Ansonsten lässt du es einfach im OnResize-Ereignis deines Formulars jedesmal neu berechnen:

Delphi-Quellcode:

Uses Math;

Procedure TForm1.FormResize(Sender: TObject);
  Begin
    StatusBar1.Panels.Items[0].Width := Max(ClientWidth -
      StatusBar1.Panels.Items[1].Width -
      StatusBar1.Panels.Items[2].Width -
      ...
      StatusBar1.Panels.Items[n].Width, 0);
  End;

oder

Procedure TForm1.FormResize(Sender: TObject);
  Begin
    StatusBar1.Panels.Items[0].Width := Max(ClientWidth - 100{B}, 0);
  End;

{ B = Gesamtbreite der Panels ab dem 2.Panel (ab [1]) }

Die Schrift lässt sich dann auch noch mit der Eigenschaft Alignment des Panels ändern (siehe OH).


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif