Microsoft KB Archive/108679

From BetaArchive Wiki

User-Defined Function to Center Messages on a Row

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

Last Reviewed: May 22, 1998
© 1999 Microsoft Corporation. All rights reserved. Terms of Use.