>WITH thisform > .g1.RecordSource="crs_grid" > .g1.RecordSourceType = 1 > .g1.ColumnCount=7 > .g1.readonly = .f. > .g1.Refresh() > WITH .g1 > .... > > IF TYPE('.Column7.Text1.name') = 'C' > .Column7.RemoveObject('Text1') > ENDIF > IF !TYPE('.Column7.Check1.name') = 'C' > .Column7.NewObject("Check1", "CheckBox") > ENDIF > .column7.header1.ToolTipText = 'Delete this order' > .column7.header1.caption = 'Delete' > .Column7.Check1.Visible = .T. > .Column7.Check1.Enabled = .T. > .Column7.Check1.ReadOnly = .F. > .Column7.Sparse = .F. > .column7.Check1.caption = "" > .column7.Alignment = 2 > .column7.width = 59 > .column7.backcolor = RGB(255,255,0) > .column7.forecolor = RGB(255,0,0) > .column7.fontbold = .T. > ENDWITH >ENDWITH >>