Article ID: 128588
Article Last Modified on 3/3/2005
CLEAR
*** Commented Code - See Workaround for Explanation*** *DEFINE WINDOW FontHolder FROM 1,5 TO 30,20 *ACTIVATE WINDOW FontHolder
=AFONT(myfonts) m="iillittabc"
FOR i = 1 TO ALEN(myfonts)
FOR fontsize = 8 TO 11 ?m FUNCTION "V1" FONT myfonts(i),fontsize WAIT WINDOW ; "Font "+ALLTRIM(STR(i))+" of "+ ; ALLTRIM(STR(ALEN(myfonts)))+" - "+ ; myfonts(i)+' Size '+ALLTRIM(STR(fontsize)) TIMEOUT 2 CLEAR ENDFOR
ENDFOR
*RELEASE WINDOW FontHolder
Additional query words: kbprg kbbuglist FoxWin buglist2.50 buglist2.50a buglist2.50b buglist2.60 buglist2.60a 2.50
Keywords: kbbug kbprogramming KB128588