>clear >close databases all > >create cursor test (f1 c(10), f2 i) >insert into test values ('Hello',1) >insert into test values ('World',2) >go top > >set eventlist to afterrowcolchange,beforerowcolchange additive >set eventtracking on >set eventtracking to 'c:\events.log' > >public oform1 >oform1=newobject("form1") >oform1.show > >read events > >set eventtracking to >set eventtracking off > >modify file c:\events.log > >define class form1 as form > > height = 171 > width = 375 > docreate = .t. > autocenter = .t. > caption = "Form1" > name = "Form1" > > add object grid2 as grid with ; > height = 108, ; > left = 12, ; > top = 12, ; > width = 348, ; > name = "Grid2" > > procedure destroy > clear events > endproc > >enddefine >