tbrDesktop = CREATEOBJ('mytoolbar') tbrDesktop.DOCK(0) tbrDesktop.SHOW()>I have created a toolbar for my application and have kept command buttons on it.
>PUBLIC tbrDesktop >tbrDesktop = CREATEOBJ('mytoolbar') >tbrDesktop.SHOW > >DEFINE CLASS myToolBar AS Toolbar >ADD OBJECT btnTrial AS CommandButton >ADD OBJECT sep1 AS Separator >ADD OBJECT btnExcel AS CommandButton > >btnTrial.HEIGHT =32 >btnTrial.WIDTH = 32 >btnTrial.Picture='E:\Sanchar Reporter\20-06-13\Data\Graphics\A4 Size Trial.bmp.' >btnTrial.Caption = '' > > >btnExcel.HEIGHT =32 >btnExcel.WIDTH = 32 >btnExcel.Picture='E:\Sanchar Reporter\20-06-13\Data\Graphics\Frx2Any_Excel.bmp.' >btnExcel.Caption = '' > > >LEFT = 1 >TOP = -20 >WIDTH = 125 >DOCKposition=0 > >Caption=' ' >Controlbox=.F. >dockable=.F. > > >PROCEDURE btnTrial.CLICK >DO FORM trialperiodselection.scx >ENDPROC > >PROCEDURE btnExcel.CLICK >DO FORM trialperiodselection.scx >ENDPROC > >ENDDEFINE > >>