home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
udfs
/
udf3.prg
< prev
next >
Wrap
Text File
|
1992-05-06
|
1KB
|
38 lines
/*
Author: DAVID -(FLASH)- GORDON CompuServ ID - 75130,3664
Originally: Program COPYRIGHT 1991, FlashPoint
Now and Forever: Released into the Public Domain
Note: FlashPoint is a Registered Trademark
Purpose: Center() was designed because every third party developer
in the world seems to have one. You never know how it will
behave until you link it into your application. This Center
function will place youe message in the middle of a line in
a non-destructive manner. (In reguards to the left and right
screen displays)
*/
* Usage In Your Application
******************************************************************************
* For normal screen display or letter size printers
center( 24, "It Doesn't Get Any Better Than This !" )
* For print where your line length is longer like with compressed print
center( 24, "It Doesn't Get Any Better Than This !", 132 )
******************************************************************************
FUNCTION CENTER( nRow, cMessage, nMaxCol )
IIF( PCOUNT() # 3, nMaxCol := MAXCOL(), )
@ nRow, INT( ( nMaxCol - LEN( cMessage ) ) / 2 ) SAY cMessage
RETURN .T.