refreshtoolsbar.prg

来自「vfp 源码,比较全面」· PRG 代码 · 共 19 行

if TYPE("oToolsBar")="O" AND !ISNULL(oToolsBar)  && 如果工具条打开
   if cur_right>0
	   if inlist(.f.,lF21,lF22,lF23)
	      for n=1 to 3
	        cn=allt(str(n))
	         oToolsBar.coolbar&cn..setall("enabled",.t.)
          endfor
	   endif
	   if inlist(.f.,lF31,lF32,lF33,lF34,lF35)
	      oToolsBar.setall("Enabled",.t.)
	   endif
   else
      oToolsBar.setall("Enabled",.f.)
   endif
endif
if inlist(.t.,lF11,lF12,lF13,lF14,lF15,lF21,lF22,lF23,lF31,lF32,lF33,lF34,lF35)=.f.
   clos data
endif