>DEFINE CLASS grd AS grid > columncount = 6 > procedure init > procedure init > FOR EACH oColumn IN this.Columns > * can bind props also > BindEvent(oColumn,'visible',this,'vischeck') > ENDFOR > endproc > > procedure visCheck > AEvents(aCol,0) && populate array w/ eventsource > with aCol[1] && first element is eventsource obj > if .&aCol[2]. && 2nd element is bound PEM > .tag = Transform(.Width) > .Width = 0 > else > .Width = Val(.tag) > endif > this.scrollbars = this.scrollbars > endwith > endproc >ENDDEFINE >