  


1.   :

     ************************************************
     ***    , :

     Set Classlib To EasyToolBar Additive

     ************************************************
     ***    ( )
     ***    READ EVENTS

     Public oTb_Main
     oTb_Main = CreateObject("EasyToolBar.Toolbar_Main")
     oTb_Main.Caption = " "
     oTb_Main.Dock(0)


2.    :

     *          btn_All
     *     Picture, DisabledPicture
     *     Click
     *

     Local i
      If _Screen.FormCount>0
         If VarType(_Screen.ActiveForm.ID)='C'
            For i=1 To This.aForms_Counter
               If This.aForms(i).ID = _Screen.ActiveForm.ID
                  _Screen.ActiveForm.btn_Preview_Click()
                  *              !!  ^^^^^^^^^^^^^^^^^  !!
                  *      
                  *             
               EndIf
            EndFor
         EndIf
      EndIf



3.   ,     :
     ************************************************
     *** WindowType = 0 - Modeless

     ************************************************
     ***  Init

     *  ,     
     * ,  - ,
     *

     oTB_Main.AddButton("btn_Refresh",This)
     oTB_Main.AddButton("btn_Property",This)
     oTB_Main.AddButton("btn_Print",This)
     oTB_Main.AddButton("btn_Preview",This)
     oTB_Main.AddButton("btn_Filter",This)
     oTB_Main.AddButton("btn_Total",This)


     ************************************************
     ***  Destroy

     oTB_Main.DelButton("btn_Refresh",This)
     oTB_Main.DelButton("btn_Property",This)
     oTB_Main.DelButton("btn_Print",This)
     oTB_Main.DelButton("btn_Preview",This)
     oTB_Main.DelButton("btn_Filter",This)
     oTB_Main.DelButton("btn_Total",This)


     ************************************************
     ***  ActivateForm

     oTB_Main.ValidateButtons(ThisForm)


     ************************************************
     ***   ,   Init,
     ***    ,   
     ***    (. 2)

       
     btn_Refresh_Click()
     btn_Property_Click()
     btn_Print_Click()
     btn_Preview_Click()
     btn_Filter_Click()
     btn_Total_Click()

          
      


     ************************************************
     *** :     btn_Scale
     ***  ,   
     ***     
     *** btn_Scale_Valid,   
     ***  cScale ( Char) -   



4.  

     :-)