DEFINE CLASS form1 AS form Top = 0 Left = 0 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT grid1 AS grid WITH ; ColumnCount = 3, ; Height = 215, ; Left = 15, ; Panel = 1, ; Top = 17, ; Width = 344, ; Name = "Grid1", ; Column1.Sparse = .F., ; Column1.Name = "Column1", ; Column2.Sparse = .F., ; Column2.Name = "Column2", ; Column3.Name = "Column3" ADD OBJECT form1.grid1.column1.header1 AS header WITH ; Caption = "Header1", ; Name = "Header1" ADD OBJECT form1.grid1.column1.check1 AS checkbox WITH ; Top = 24, ; Left = 8, ; Height = 17, ; Width = 60, ; Centered = .T., ; Caption = "", ; Name = "Check1" ADD OBJECT form1.grid1.column2.header1 AS header WITH ; Caption = "Header1", ; Name = "Header1" ADD OBJECT form1.grid1.column2.check1 AS checkbox WITH ; Top = 32, ; Left = 18, ; Height = 17, ; Width = 60, ; Centered = .T., ; Caption = "", ; Name = "Check1" ADD OBJECT form1.grid1.column3.header1 AS header WITH ; Caption = "Header1", ; Name = "Header1" ADD OBJECT form1.grid1.column3.check1 AS checkbox WITH ; Top = 23, ; Left = 24, ; Height = 17, ; Width = 60, ; Centered = .T., ; Caption = "", ; Name = "Check1" PROCEDURE Load create cursor x1 ( l1 l, l2 l, l3 l ) insert into x1 values ( .t., .t., .t. ) insert into x1 values ( .f., .f., .f. ) go top ENDPROC ENDDEFINE>Yes .caption property displays (none) in property sheet.
>IF TYPE('this.parent.sparse')='L' > * Checkbox is in grid column. Make it centered. > this.parent.sparse= .f. > IF VERSION()>='Visual FoxPro 08' > this.centered = .t. > ENDIF > ENDIF>