.Newobject("grdText",tcClass,tcClassLib) .grdText.Width=.Width .grdText.Visible=.T. If PemStatus(This.grdText,"readonly",5) .grdText.ReadOnly=.ReadOnly Endif .CurrentControl="grdText" .ControlSource=tcSource If PemStatus(This, "text1",5) .RemoveObject("text1") EndifIn implementation, the .init of the grid begins with
this.recordsource="(alias here)" this.columncount=0 ... This.AddObject("colStatus","gcol","Stat",'curevdate.cStatus',"grdTextStatus","dcgrids.prg") With This.colStatus .DynamicBackColor=lcDynBC Endwith...and so on for each column. At this point I already have Set Procedure to the prg containing the column class definition.