ctoolbar.prg

吐血贡献纺织上的进销存原码,功能齐全,给大家吧.

*-- 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"
#DEFINE WIN_COMMAND_LOC   "Command"   && Command Window
#DEFINE CTB_FORMDESIGNER_LOC  "表单设计器"
#DEFINE CTB_STANDARD_LOC      "常用"
#DEFINE CTB_LAYOUT_LOC        "布局"
#DEFINE CTB_QUERY_LOC   "查询设计器"
#DEFINE CTB_VIEWDESIGNER_LOC  "视图设计器"
#DEFINE CTB_COLORPALETTE_LOC  "调色板"
#DEFINE CTB_FORMCONTROLS_LOC  "表单控件"
#DEFINE CTB_DATADESIGNER_LOC  "数据库设计器"
#DEFINE CTB_REPODESIGNER_LOC  "报表设计器"
#DEFINE CTB_REPOCONTROLS_LOC  "报表控件"
#DEFINE CTB_PRINTPREVIEW_LOC  "打印预览"
#DEFINE CWIN_COMMAND_LOC   "命令"   && Command Window 




*-- Releases all Visual FoxPro toolbars
LOCAL i

DIMENSION aToolBars[24,2]
aToolBars[1,1] = TB_FORMDESIGNER_LOC
aToolBars[2,1] = TB_STANDARD_LOC  
aToolBars[3,1] = TB_LAYOUT_LOC
aToolBars[4,1] = TB_QUERY_LOC
aToolBars[5,1] = TB_VIEWDESIGNER_LOC
aToolBars[6,1] = TB_COLORPALETTE_LOC  
aToolBars[7,1] = TB_FORMCONTROLS_LOC
aToolBars[8,1] = TB_DATADESIGNER_LOC
aToolBars[9,1] = TB_REPODESIGNER_LOC
aToolBars[10,1] = TB_REPOCONTROLS_LOC
aToolBars[11,1] = TB_PRINTPREVIEW_LOC
aToolBars[12,1] = WIN_COMMAND_LOC
aToolBars[13,1] = CTB_FORMDESIGNER_LOC
aToolBars[14,1] = CTB_STANDARD_LOC  
aToolBars[15,1] = CTB_LAYOUT_LOC
aToolBars[16,1] = CTB_QUERY_LOC
aToolBars[17,1] = CTB_VIEWDESIGNER_LOC
aToolBars[18,1] = CTB_COLORPALETTE_LOC  
aToolBars[19,1] = CTB_FORMCONTROLS_LOC
aToolBars[20,1] = CTB_DATADESIGNER_LOC
aToolBars[21,1] = CTB_REPODESIGNER_LOC
aToolBars[22,1] = CTB_REPOCONTROLS_LOC
aToolBars[23,1] = CTB_PRINTPREVIEW_LOC
aToolBars[24,1] = CWIN_COMMAND_LOC

FOR i = 1 TO ALEN(aToolBars, 1)
  aToolBars[i,2] = WVISIBLE(aToolBars[i,1])
  IF aToolBars[i,2]
    HIDE WINDOW (aToolBars[i,1])
  ENDIF
ENDFOR