Clipper的下拉式菜单设计

【摘要】 <正> Clipper语言中不象FoxPro一样具有下拉式菜单命令,这样给编程人员带来很多不便和重复的工作。出于这个考虑,我们给设计了一个,使用非常方便。其调用方法如下: _PullDownMenu(cFuncGroup) 其中,cFuncGroup是菜单树数组,其格式如下: {{"横条菜单A",{"弹出菜单A",代码块,清弹出菜单标志},...},...} 例如: _PullDownMenu({{"Browse",{"Ins",{||ins()},.F.},; {"Del",{||del()},.F.}}}) 又如: //下拉式菜单更多还原