KB103601 - How the Menu Font Is Determined in FoxPro for Windows

DEFINE PAD test OF _msysmenu PROMPT "Test" ON PAD test OF _msysmenu ACTIVATE POPUP test DEFINE POPUP test FOR CNT = 1 TO 10 DEFINE BAR CNT OF test PROMPT "test" + LTRIM(STR(CNT)) ENDFOR

MORE INFORMATION

Sample 1

   DEFINE MENU test
   DEFINE PAD mypad OF test PROMPT "My Pad"
   ON PAD mypad OF test ACTIVATE POPUP test
 
   DEFINE POPUP test
   FOR CNT = 1 TO 10
      DEFINE BAR CNT OF test PROMPT "test" + LTRIM(STR(CNT))
   ENDFOR
 
   ACTIVATE MENU test NOWAIT

Sample 2

   DO WHILE .T.
      @ 2,2 PROMPT "test1"
      @ 2,12 PROMPT "test2"
      MENU TO x
   ENDDO

Sample 3

   DIMENSION arr(10)
 
   FOR CNT = 1 TO 10
      arr(CNT) = "test" + LTRIM(STR(CNT))
   ENDFOR

   @ 2,2 MENU arr,10
   READ MENU TO VAR

Cross-Platform Applications

If you are developing applications that are to be run on both the MS-DOS and Windows platforms using the same code but without using platform-specific conditional statements, set the output window to FoxFont to ensure portability.

If you are using platform-specific statements, the following code fragment shows the best way to handle these:

   IF _WINDOWS
      Do Windows-specific commands
   ELSE
      Do MS-DOS -specific commands
   ENDIF