Title: goody for a StatusBar
Question: Some times the use of a StatusBar is a hassle, when using 2 or more panels... and probably you write your procedure to update the statusbar... but then you notice you have to add another panel, then you have to change all the occurrences... =o|
Answer:
you can put this procedure in a separate unit ("goodys.pas" in this example)
Procedure SetStatusBar(Var StB:TStatusBar; Strs:Array Of String);
Var X:Byte;
Begin
For X:=Low(Strs) To High(Strs) Do
If Not (Strs[X]='') Then
StB.Panels[X].Text:=Strs[X];
Application.ProcessMessages
End;
Then include that unit in your formunit
Implementation
Uses goodys;
and whenever you need to update your status bar, make a call
SetStatusBar(MyStatusBar, ['panel', '', 'another panel'])
no matter how many panels the StatusBar has, you can use the same procedure:
SetStatusBar(MyStatusBar, ['update my first panel only'])
Notes:
- to empty a panel, make a call with an space:
SetStatusBar(MyStatus, ['panel 2 should be empty', ' '])
- and make sure you have at least one panel in your statusbar, and the simplepanel property is False
=o)
I hope this is helpful
keep up coding
EberSys