LOCAL loForm loForm = CREATEOBJECT("testform") loForm.AddObject("grd", "grd") loForm.grd.visible = .T. loForm.Show(1)
RELEASE loForm CLEAR CLASS "testform" DEFINE CLASS testform as Form width = 400 height = 400 datasession = 2 PROCEDURE load CREATE CURSOR testdata ( ; ikey i, ; cone c(10), ; itwo i) INDEX ON ikey TAG ikey INDEX on itwo TAG itwo INSERT INTO testdata ; VALUES (1, "one", 1) INSERT INTO testdata ; VALUES (2, "three", 3) INSERT INTO testdata ; VALUES (3, "two", 2) ENDPROC ENDDEFINE DEFINE CLASS grd as grid top = 10 left = 10 width = 380 height = 380 columncount = 2 rowsource = "testdata" rowsourcetype = 1 anchor = 15 AllowCellSelection = .F. recordmark = .f. deletemark = .f. splitbar = .f. PROCEDURE init this.column1.controlsource = "testdata.cone" this.column1.header1.caption = "One" this.column2.controlsource = "testdata.itwo" this.column2.header1.caption = "Two" ENDPROC PROCEDURE DblClick ThisForm.Release() ENDPROC ENDDEFINE _______________________________________________ Post Messages to: ProFox@leafe.com Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/001a01ceb4a4$52b9af20$f82d0d60$@powerchurch.com ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.