releasetoolbars Method
Class: application
Expand/Collapse source code of procedure releasetoolbars Source Code
*-- Releases all Visual FoxPro toolbars
LOCAL i

DIMENSION this.aToolBars[12,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
this.aToolBars[12,1] = WIN_COMMAND_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
ENDFOR