oform = createobject('form1') oform.show(1) define class form1 as form showtips = .t. caption = "Form1" name = "Form1" add object grid1 as grid with ; columncount = 4, ; height = 216, ; left = 12, ; top = 12, ; width = 348, ; name = "Grid1", ; Column1.name = "Column1", ; Column2.visible = .f., ; Column2.name = "Column2", ; Column3.name = "Column3", ; Column4.name = "Column4" procedure load create cursor test (f1 i, f2 i, f3 i, f4 i) insert into test values (1,2,3,4) endproc procedure init() with this.grid1.Column1.header1 .caption = "C1" .tooltiptext = "C1" endwith with this.grid1.Column2.header1 .caption = "C2" .tooltiptext = "C2" endwith with this.grid1.Column3.header1 .caption = "C3" .tooltiptext = "C3" endwith with this.grid1.Column4.header1 .caption = "C4" .tooltiptext = "C4" endwith endproc enddefine