******************************************************************** * 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.......: ******************************************************************** for each oColumn in thisform.pgfView.Page1.grdViewResult.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 .lDontChangeOthers = .t. .statusbartext = space(10)+ oColumn.comment .tooltiptext = oColumn.comment .cTagName = oColumn.tag endwith endif next nextI set comment for each column in design time and put tag name in Column's tag.