PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show >RETURN > >DEFINE CLASS form1 AS form > > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > > ADD OBJECT grid1 AS grid WITH ; > ColumnCount = 2, ; > DeleteMark = .F., ; > HeaderHeight = 0, ; > Height = 204, ; > Left = 12, ; > Panel = 1, ; > RecordMark = .F., ; > RecordSource = "products", ; > ScrollBars = 2, ; > SplitBar = .F., ; > Top = 24, ; > Width = 348, ; > AllowCellSelection = .F., ; > Name = "Grid1", ; > Column1.ControlSource = "products.eng_name", ; > Column1.Width = 268, ; > Column1.Name = "Column1", ; > Column2.ControlSource = "products.discontinu", ; > Column2.Width = 50, ; > Column2.Sparse = .F., ; > Column2.Name = "Column2" > > PROCEDURE Load > CLOSE DATABASES > OPEN DATABASE (HOME(2) + "\data\testdata.DBC") > USE testdata!products > ENDPROC > > PROCEDURE Init > thisform.grid1.Column2.AddObject("Checkbox1", "Checkbox") > thisform.grid1.Column2.CurrentControl = "Checkbox1" > thisform.grid1.Column2.Checkbox1.Caption = "" > thisform.grid1.Column2.Alignment= 2 > ENDPROC > >ENDDEFINE >>