Microsoft KB Archive/108679

{| = User-Defined Function to Center Messages on a Row =
 * width="100%"|

ID: Q108679

2.50 2.50a 2.50b 3.00| 2.00 2.50 2.50a 2.50b

WINDOWS             | MS-DOS The information in this article applies to:
 * 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.

For example, to center an output message in the last row of a window, you would use the following syntax: =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.) Additional reference words: VFoxWin 3.00 FoxDos FoxWin 2.50 2.50 2.50a 2.50b KBCategory: KBSubcategory: FxprgGeneral Keywords         : kbcode FxprgGeneral Version          : 2.50 2.50a 2.50b 3.00| 2.00 2.50 Platform         : MS-DOS WINDOWS
 * }