Class TBar      Inherits from TControl
--------------------------------------------------------------------------------

  // jhs

 DATA
--------------------------------------------------------------------------------
 aButtons        Array of TBtnBmp objects
 nGroups         Number of groups
 nBtnWidth       The height and width of its buttons. By default is 28x28
 nBtnHeight         The height of the Bar is automatically adjusted to the
                    height of the buttons.

 METHODS
--------------------------------------------------------------------------------
 New             Constructor from source code
 Adjust          Adjust the Button bar to the dimensions of his container
                 window.
 Add             Add a BtnBmp to the bar.
 Click           Mouse left button event handler
 SetMsg          Set the Text of the message bar of with a button.
 GetBtnCol       Computes the column of the new Button