User-Defined Function to Center Messages on a Row

• Microsoft Visual FoxPro for Windows, version 3.0
• Microsoft FoxPro for Windows, versions 2.5, 2.5a, and 2.5b
• Microsoft FoxPro for MS-DOS, versions 2.0, 2.5, 2.5a, and 2.5b

SUMMARY

CENTMESS(), the user-defined function (UDF) shown below, centers a message in a row or column. CENTMESS() subtracts the length of the message from the length of the output area, divides the results by 2, and displays the message at the passed row and computed column.

If a message is being sent to a window:

• Use WCOLS() to return the number of columns in a window.
• Use WROWS() to return the number of rows in a window.

   =CENTMESS(WROWS()-1,WCOLS(),"This is the message to center")

MORE INFORMATION

   * In the following example, the output area is the desktop.

   CLEAR
   SET TALK OFF
   SET CURSOR OFF
   =CENTMESS(15,SCOL(),"This is the message to center")


   ******************************************************************
   * Function..: CENTMESS
   * Notes.....: This function centers messages based on their length
   *             and the length of the output area.
   *
   * Parameters: Mrow - The row the message will be displayed on.
   *             Mlen - The length used to compute the center of the
   *                    message.
   *             Mess - The message to display.
   ******************************************************************
   FUNCTION centmess
   PARAMETER Mrow, Mlen, Mess
   Mcol = (Mlen - LEN(Mess)) / 2
   @ Mrow, Mcol SAY Mess
   RETURN(.T.)