******************************************************************** * Description.......: GridBuilder - allows to build a grid in design-time * Calling Samples...: * Parameter List....: * Created by........: Cetin Basoz * Modified by.......: Nadya Nosonovsky 10/25/2001 04:14:31 PM ******************************************************************** *custom builder not registered aselobj(arrObj) for each oObj in arrObj if upper(oObj.baseclass)='GRID' for each oColumn in oObj.columns with oColumn if type(.controlsource)<>"L" if type('oColumn.text1')="O" and lower(.text1.baseclass)='textbox' .removeobject('text1') .newobject('text1','EditInGrid','nAdditions.vcx') endif else && Logical field if type('oColumn.text1')="O" and lower(.text1.baseclass)='textbox' .removeobject('text1') .newobject('check1','checkbox') .check1.caption = '' .sparse = .f. endif endif .name = "col"+proper(justext(.controlsource)) .Header1.fontbold = .t. .Header1.alignment = 2 endwith next endif next