local loColumn, loControl * Delegate header's click to grid's HeaderClick custom method * and column's textbox DblClick to grid's DblClick for each loColumn in this.columns m.loColumn.addproperty("curheadscompare", m.loColumn.controlsource) for each loControl in m.loColumn.controls if upper(m.loControl.baseclass) = "HEADER" * bindevent(m.loControl,"DblClick",this,"Dblclick") * m.loControl.addproperty("CurrentTag","") * Adds CurrentTag property * if this.lCreateIndexes && Adds indexes on the fly * this.CreateTag (m.loControl) * endif else if upper(m.loControl.baseclass) = "TEXTBOX" bindevent(m.loControl,"DblClick",this,"DblClick") endif endif ENDFOR endfor