>#DEFINE dcWIN_COMMAND_LOC "Command" >#DEFINE dcWIN_Properties_LOC "Properties" >#DEFINE dcWIN_Document_LOC "Document view" > >*... > > this.aToolBars(12,1) = dcWIN_COMMAND_LOC > this.aToolBars(13,1) = dcWIN_Properties_LOC > this.aToolBars(14,1) = dcWIN_Document_LOC >>
>>* Release all Visual FoxPro toolbars >> >>#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" >>#DEFINE WIN_COMMAND_LOC "Command" >> >> LOCAL i >> DIMENSION this.aToolBars[11,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) >> IF WVISIBLE(this.aToolBars[i,1]) >> Hide Window (this.aToolBars[i,1]) >> ENDIF >> ENDFOR >>>>and to restore toolbars
>> LOCAL i >> >> * Show all VFP toolbars that were previously hidden >> FOR i = 1 TO ALEN(this.aToolBars,1) >> IF this.aToolBars[i,2] >> Show Window (this.aToolBars[i,1]) >> ENDIF >> ENDFOR >>>>This code is what we use in an application that was written in VFP6 so I don't know if there are any additional toolbars in newer versions.