tt=SECONDS() loo=_SCREEN.ActiveForm FOR I=1 TO 1000000 =loo.FontName NEXT ? '_SCREEN.ActiveForm II',SECONDS()-m.tt tt=SECONDS() loo=_VFP.ActiveForm FOR I=1 TO 100000 =loo.FontName NEXT ? '_VFP.ActiveForm II ',(SECONDS()-m.tt)*10MartinJ
>PUBLIC o1 >o1 = CREATEOBJECT( "MyForm" ) >o1.Show() > >DEFINE CLASS MyForm AS Form >FontName ="Courier New" >PROCEDURE Click > tt=SECONDS() > FOR I=1 TO 1000000 > =WFONT(1) > NEXT > ? 'procedure ',SECONDS()-m.tt > tt=SECONDS() > FOR I=1 TO 1000000 > =thisform.FontName > NEXT > ? 'thisform ',SECONDS()-m.tt > tt=SECONDS() > FOR I=1 TO 1000000 > =_SCREEN.ActiveForm.FontName > NEXT > ? '_SCREEN.ActiveForm',SECONDS()-m.tt > tt=SECONDS() > FOR I=1 TO 100000 > =_VFP.ActiveForm.FontName > NEXT > ? '_VFP.ActiveForm ',(SECONDS()-m.tt)*10 > >PROCEDURE UnLoad > RELEASE o1 >ENDDEFINE >>