home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
rsvprexx.zip
/
READ.ME
< prev
next >
Wrap
Text File
|
1995-05-15
|
3KB
|
89 lines
(c) Copyright Ronald Stutt 1995.
All Rights Reserved.
RSVPREXX
by
Ronald Stutt
Internet: Stutt@ibm.net
This program extends the VisPro/Rexx language
by providing REXX external functions.
RSVPSpace;
RSVPSplit;
RSVPText;
Free Software: Distribute & use freely. However, do not alter the
program nor this text file.
VisPro/Rexx is a trademark of HockWare, inc.
*************************************************************************
*************************************************************************
Function: RSVPSpace - Vertical space
The amount of vertical space (in pels) between the records,
used in the details view.
If you specify a value that is less than 0, a default value is used.
Syntax: call RSVPSpace Hwnd, spacing
Params: spacing - spacing in pels
*************************************************************************
*************************************************************************
Function: RSVPSplit - Split bar position
The initial position of the split bar relative to the container,
used in the details view.
Syntax: call RSVPSplit Hwnd, {OFF|ON} [,offset]
Params: offset - offset in pels
*************************************************************************
*************************************************************************
Function: RSVPText - Column headings justification
Specify one of the following for all column heading to horizontally
position data in that column heading, used in the details view.
CENTER - Horizontally centers column headings.
LEFT - Left-justifies column headings. This is the default.
RIGHT - Right-justifies column headings.
Syntax: call RSVPText Hwnd, {Left|Center|Right]
*************************************************************************
*************************************************************************
Sample
Sample
Sample
Sample
Sample
In when opened event, add following lines
*************************************************************************
/* register the rexx functions */
call RxFuncAdd 'RSVPLoadFuncs', 'RSVPREXX', 'RSVPLoadFuncs'
call RSVPLoadFuncs;
/* Get PM handle SEARCHCNR Container */
value=VpItem(window, 'SEARCHCNR', 'GETHANDLE')
call RSVPSpace value, 0
call RSVPSplit value, 'OFF'
call RSVPText value, 'Left'
*************************************************************************
*************************************************************************