******************************************************************** * Description.......: AdjustGrid - replaces grid's headers with headers based on class * Calling Samples...: * Parameter List....: * Created by........: Nadya Nosonovsky 06/24/2002 09:22:36 AM * Modified by.......: Nadya Nosonovsky 07/23/2002 05:34:58 PM ******************************************************************** lparameter toGridObject if vartype(m.toGridObject)<>"O" toGridObject = thisform.pgfEditResult.page2.grdBldMstr endif for each oColumn in m.toGridObject.columns for each loObject in oColumn.controls if lower(loObject.class)="header" lcCaption=loObject.caption oColumn.removeobject("Header1") oColumn.newobject("Header1",'myHeader','myHeader.prg',"",m.lcCaption) with oColumn.Header1 .name="Header1" .caption=m.lcCaption .fontbold=.t. .alignment=2 .lNoActiveHighlight = .t. .statusbartext = space(5)+oColumn.comment .tooltiptext = oColumn.comment .cTagName = oColumn.tag endwith endif next nextAs you see in this example, I change Header class in run-time for each column. You have to adjust this code a little bit to do the same for textboxes.