Click above to get retro games delivered to your door ever month!

 setmessagecol()     Set the leftmost screen column for messages
------------------------------------------------------------------------------
 Declaration
   menu.hdr

 Syntax
   proc setmessagecol extern
   param value uint uCol

 Arguments
   uCol is the new column.

 Return
   Nothing.

 Description
   This procedure sets the leftmost screen column for message displays to the
   value passed in the uCol argument. By default, the column is 0.

 Example
   #define EXAMPLE_MENU
   #include example.hdr

   proc Test_setmessagecol
   vardef
      _MENU pMenu
   enddef
   
   clear
   
   set message to 10
   setmessagecol( 15 )
   
   // Define prompts for the standard menu
   //
   @ 5, 23 prompt "1st prompt" message "1st message" id 1
   @ 6, 23 prompt "2nd prompt" message "2nt message, a bit longer" id 2
   @ 7, 23 prompt "3rd prompt" message "3rt message" id 3
   @ 8, 23 prompt "4th prompt" message "4th message" id 4
   
   // Retrieve the pointer to the standard menu
   //
   pMenu := menuptr( .f. )
   
   repeat
   
      // Notice how the messages are displayed adjusted to the
      // length of the second message
      //
      menudispmessage( pMenu )
      waitms( 1000 )
   
   until .not. menusetnext( pMenu )
   
   clear menu
   
   endproc

   proc main
   Test_setmessagecol()
   endproc