Dec 122017
 
FoxPro 2.0 utility to print messages in the header/footer border areas of a window.
File HEADFT.ZIP from The Programmer’s Corner in
Category Dbase Source Code
FoxPro 2.0 utility to print messages in the header/footer border areas of a window.
File Name File Size Zip Size Zip Type
DEMO.PRG 2331 654 deflated
HEADFOOT.PLB 6633 4017 deflated
HEADFOOT.TXT 6392 2369 deflated

Download File HEADFT.ZIP Here

Contents of the HEADFOOT.TXT file


****************************************************************************
* EXTERNAL LIBRARY: HEADFOOT.PLB *
* *
* PROGRAMMER: Scott Mackay *
* *
* COMPUSERVE ID#: 70323,1545 *
* *
* SEND PAYMENTS TO: 4570 South 200 East, #8 *
* Murray, Utah 84107 *
****************************************************************************

This program is NOT Freeware, is not a demo and has not been disabled in
any way. The cost of this program is $10.00, and $25.00 if you want the
source code. You may distribute this program to others only if this text

file is included, and the distributees are aware of the cost.

With the purchase of this program, you the buyer have the right to include
the libraries in your programs in an unlimited distribution fashion. But
under NO circumstance should the library file (HEADFOOT.PLB) be distributed
with your programs unless it has been compiled in with your programs, except
as mentioned in the preceding paragraph.

THIS PROGRAM IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
EXPRESSED OR IMPLIED. IN NO EVENT WILL THE SELLER BE LIABLE TO THE BUYER
FOR ANY DAMAGES, INCLUDING ANY LOST PROFITS, LOST SAVINGS OR OTHER
INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO
USE THIS PRODUCT.

****************************************************************************
* The following Product Description and Example Section is formatted *
* similar to the help screens in FoxPro so that it may be included in the *
* help database and be available on-line. If it is included in the *
* FoxHelp database, it is recommended that the appropriate carriage *
* returns be removed so that when the help window is resized the text will *
* be reformatted so that it will be more readable. *
****************************************************************************

SAYHEAD, SAYFOOT

EXTERNAL LIBRARY: HEADFOOT.PLB

SAYHEAD([] [, ][, ])

SAYFOOT([] [, ][, ])


@ ... SAY Equivalent for printing
in the Header and Footer region
of a window (Limited to 80
characters).

Return value - Character (If no
parameters are passed).


NOTE: These Functions are not a product of, or supported by Fox Software -
Please send questions and comments via Compuserve Mail ID#: 70323,1545.

These functions are called from the add-on library 'HEADFOOT.PLB', so in
order to utilize these functions the library must be made available to
FoxPro by: SET LIBRARY TO HEADFOOT [ADDITIVE] (It is assumed that the file
HEADFOOT.PLB is in the current directory or path -- see SET LIBRARY in the
FoxPro manuals for more information).

All parameters are optional, But if . is omitted then the other
parameters should also be omitted. If all parameters are omitted, these
functions will return the text in the Header/Footer section. These
functions are limited to windows less than or equal to 80 columns. (in
the content area of a window)

Footers can be printed on windows with scroll bars, but the footers are not
visible while the window is the active window.

SAYHEAD() prints in the heading/title section of the window border.
SAYFOOT() prints in the footer section of the window border.


specifies the text to be printed in the header/footer section of
the window border. If is omitted then the other parameters must
also be omitted, and in this case the function returns the text in the
Header/Footer section as a character string. But if is included
and the other parameters are omitted, then the text sent to the header/
footer replaces whatever text is currently there and the new text is
centered within the window.


specifies the position for text to be printed from 0 to 78, the
heading is limited to a 2 space margin on both sides and can be printed
from 2 to 76. (if ExpN1>=80 --except 99 which is explained in --,
or if ExpN1>WCols then text is right justified in the window).


if this parameter is omitted, these functions direct their
output to the current output window (Identified by WOUTPUT()), which is
the default. If =1, then output is directed to the foremost
window (Identified by WONTOP()), which is normally the same as the
current output window. NOTE: Since you must include a 2nd parameter
if you wish to use this third parameter (ie. can not be left
blank) you may use 99 as the 2nd parameter for those cases in which
you don't want text positioning to take place.


Examples

SET LIBRARY TO HEADFOOT ADDITIVE
DEFINE WINDOW Temp FROM 5,5 TO ;
15,75 COLOR SCHEME 10 SYSTEM SHADOW FLOAT TITLE "Window Temp"
ACTIVATE WINDOW Temp

***** RETURN FOOTER *****
? SAYFOOT()

***** REPLACE HEADING *****
? SAYHEAD("New Title")

***** CLEAR FOOTING *****
? SAYFOOT("")

***** AT SPECIFIED POSITION *****
? SAYHEAD("Starting at 5",5)

***** RIGHT ALIGNED ON FOOTER *****
? SAYFOOT("Right Aligned",80)

***** PRINT ON FOREMOST WINDOW, (USE WHEN THE OUTPUT WINDOW IS NOT *****
***** THE SAME AS THE FOREMOST WINDOW). -- REPLACE FOOTER *****
? SAYFOOT("",99,1)

***** PRINT ON FOREMOST WINDOW, (USE WHEN THE OUTPUT WINDOW IS NOT *****
***** THE SAME AS THE FOREMOST WINDOW). -- LEFT ALIGNED ON FOOTER *****
? SAYFOOT("Left Aligned",0,1)




See Also: DEFINE WINDOW, SET LIBRARY, WONTOP(), WTITLE()




 December 12, 2017  Add comments

Leave a Reply