ADD OBJECT form1.grid1.column1.header1 AS header WITH ;so I cannot try it. Is this VFP 8 bug ?
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 > >>
>>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>>