• Registered: 2014-02-17
  • Posts: 365

Topic: How To Set Auto Width StatusBar Panels

how to set Tstatus and add width panel auto width

StatusBar.Panels.Items[0].Width := Textwidth + 16

help me please !

My Visual Database : I Love You
Easy For Beginner Student For Me
  • Registered: 2014-02-14
  • Posts: 10,294

Re: How To Set Auto Width StatusBar Panels

Please, download latest beta version
https://www.dropbox.com/s/sunrl4ano9340 … a.zip?dl=0



example:

var
    StatusBar: TStatusBar;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    StatusBar := TStatusBar.Create(Form1);
    StatusBar.Parent := Form1;
    StatusBar.Panels.Add; //0
    StatusBar.Panels.Add; //1
    StatusBar.Panels.Add; //2

    StatusBar.Panels.Items[0].Width := 150;
    StatusBar.Panels.Items[0].Text := 'Hello';

    // autowidth for the panel
    StatusBar.Panels.Items[1].Text := 'Test Test';
    StatusBar.Panels.Items[1].Width := StatusBar.Canvas.TextWidth(StatusBar.Panels.Items[1].Text+'aa');

    StatusBar.Panels.Items[2].Width := 100;
    StatusBar.Panels.Items[2].Text := 'Value';

end;
Dmitry.