*-- Releases all Visual FoxPro toolbars LOCAL i *-- Toolbar names #DEFINE TB_FORMDESIGNER_LOC "Form Designer" #DEFINE TB_STANDARD_LOC "Standard" #DEFINE TB_LAYOUT_LOC "Layout" #DEFINE TB_QUERY_LOC "Query Designer" #DEFINE TB_VIEWDESIGNER_LOC "View Designer" #DEFINE TB_COLORPALETTE_LOC "Color Palette" #DEFINE TB_FORMCONTROLS_LOC "Form Controls" #DEFINE TB_DATADESIGNER_LOC "Database Designer" #DEFINE TB_REPODESIGNER_LOC "Report Designer" #DEFINE TB_REPOCONTROLS_LOC "Report Controls" #DEFINE TB_PRINTPREVIEW_LOC "Print Preview" DIMENSION this.aToolBars[10,2] this.aToolBars[1,1] = TB_FORMDESIGNER_LOC this.aToolBars[2,1] = TB_STANDARD_LOC this.aToolBars[3,1] = TB_LAYOUT_LOC this.aToolBars[4,1] = TB_QUERY_LOC this.aToolBars[5,1] = TB_VIEWDESIGNER_LOC this.aToolBars[6,1] = TB_COLORPALETTE_LOC this.aToolBars[7,1] = TB_FORMCONTROLS_LOC this.aToolBars[8,1] = TB_DATADESIGNER_LOC this.aToolBars[9,1] = TB_REPODESIGNER_LOC this.aToolBars[10,1] = TB_REPOCONTROLS_LOC *this.aToolBars[11,1] = TB_PRINTPREVIEW_LOC FOR i = 1 TO ALEN(this.aToolBars, 1) this.aToolBars[i,2] = WVISIBLE(this.aToolBars[i,1]) IF this.aToolBars[i,2] HIDE WINDOW (this.aToolBars[i,1]) ENDIF ENDFORBill