Simple Float ToolBar	CLASS  (beta 1.0 version)
By Novikov Anton (anfront@chat.ru)
10.11.99

C5x
!------------------------------------------------------------------------------
Short Description
!------------------------------------------------------------------------------
Class for adding simple float toolbars into your app. 


I. Methods Description

!------------------------------------------------------------------------------
Init              PROCEDURE(BYTE bType,USHORT W,<USHORT H>,<BYTE F>)
!------------------------------------------------------------------------------
! Params init
!------------------------------------------------------------------------------
Parameters:
bType 	- can accept next values
		Butt:Text 		!button with text only
		Butt:Icon               !button with icon only
		Butt:Mixed              !button with icon+text
W	- button width
H	- button height (if omitted, then equal to width)
F	- flat button attrib (0/1, if omitted then non-flat)

!------------------------------------------------------------------------------
AddButton         PROCEDURE(STRING bIcoText,LONG bEvent,<STRING bTip>)
AddButton         PROCEDURE(STRING bText,STRING bIcon,LONG bEvent,<STRING Tip>)
!------------------------------------------------------------------------------
! Add buttons
!------------------------------------------------------------------------------
:
bIcoText	- button text/icon (depends of bType)
bText		- button text
bIcon		- button icon
bEvent		- calling procs
bTip		- tip

!------------------------------------------------------------------------------
Kill              PROCEDURE
!------------------------------------------------------------------------------
! Shut up the class
!------------------------------------------------------------------------------


!------------------------------------------------------------------------------
ToolBar           PROCEDURE
!------------------------------------------------------------------------------
! Draw bar
!------------------------------------------------------------------------------

1. Copy files SIMPLTOOL.INC  SIMLTOOL.CLW to the current or to LIBSRC dirs.

2. After Global Includes insert:
   INCLUDE('SIMPTOOL.INC')	

3. In Global Data somevere define events, which will occur when button is 
   pressed (from 400h):
   EVENT:StartProc1    EQUATE(401h)
   EVENT:StartProc2    EQUATE(402h)
   ...

   MyTool      CLASS(FloatTool)			!class
               END

3. On main frame:

   1) TakeWindowEvent method  CASE EVENT embed (prior 7510)
   insert your events:

   OF EVENT:StartProc1
      START(PROC1)
   OF EVENT:StartProc2
      START(PROC2)
   ...

   2) WindowEvents 
     	OpenWindow
       		MyTool.Init(Butt:Text,15,15,true)
       		MyTool.AddButton('B1',EVENT:StartProc1,'aa1')
       		MyTool.AddButton('B2',EVENT:StartProc2,'bb1')
       		...
       		MyTool.ToolBar
	

That's all folks.

II. Current limitations (and plans for the future):
	- only button controls
	- don't support feedback (can't disable button)
	- template soon (I hope)

All comments and suggestions will be greatly appreciated.