>oForm = CREATEOBJECT([form1]) >oForm.Show(1) > >************************************************** >*-- Form: form1 (d:\all_zapl\test.scx) >*-- ParentClass: form >*-- BaseClass: form >*-- Time Stamp: 08/04/08 07:44:00 PM >* >DEFINE CLASS form1 AS form > > > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > > > ADD OBJECT grid1 AS grid WITH ; > ColumnCount = 2, ; > Height = 200, ; > Left = 14, ; > Top = 11, ; > Width = 320, ; > Name = "Grid1", ; > Column1.Name = "Column1", ; > Column2.Name = "Column2" > > > PROCEDURE gridclicked > WAIT WINDOW [We are here] NOWAIT > ENDPROC > > > PROCEDURE Init > =AFONT(laFonts) > lcChars = [] > FOR lnFor = 30 TO 255 > lcChars = lcChars + CHR(lnFor) > NEXT > FOR lnFor = 1 TO ALEN(laFonts) > INSERT INTO crsTest VALUES (laFonts[lnFor], lcChars) > NEXT > GO TOP > thisform.Grid1.Column2.DynamicFontName = [IIF(.t.,ALLTRIM(FontNames),"")] > FOR EACH oCol IN thisform.Grid1.Columns > FOR EACH oControl IN oCol.Controls > IF PEMSTATUS( oControl, [dblClick], 5 ) > BINDEVENT( oControl, 'dblClick', thisform, 'GridClicked') > ENDIF > NEXT > NEXT > ENDPROC > > > PROCEDURE Load > CREATE CURSOR crsTest (FontNames C(50), AllChars C(200)) > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: form1 >************************************************** >>