>>******************************************************************** >>* Description.......: Page2.Activate >>* Calling Samples...: >>* Parameter List....: >>* Created by........: >>* Modified by.......: Nadya Nosonovsky 05/31/2000 05:41:31 PM >>******************************************************************** >>thisform.dataenvironment.initialselectedalias="IndxDict" >>select IndxDict >>with this >> if type("this.ContIndxPage")<>"O" >> .newobject("ContIndxPage","IndxDictPage","ddwg.vcx") >> with .ContIndxPage >> .top=5 >> .left=20 >> .visible=.t. >> set step on >> local loColumn, lcCaption >> for each loColumn in .grdIndxDict.Columns >> lcCaption = loColumn.Header1.Caption >* You need to comment this line: >> loColumn.removeobject('Header1') >> loColumn.NewObject('Header1','myheader','myheader.prg',,m.lcCaption) >> next >> endwith >> endif >> .refresh() >> thisform.navstand.navupdate() >> thisform.navstand.lstOrders.enable() >> .ContIndxPage.grdIndxDict.setfocus() >>endwith>>