home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
tc
/
tpcmenu
/
tpcmenu.doc
< prev
next >
Wrap
Text File
|
1991-06-06
|
7KB
|
138 lines
COPYRIGHT (C) 1989, STEVE STAMM TPC Technologies
ALL RIGHTS RESERVED - FOR INFO CALL (615) 984-9029
DISCLAIMER
----------
I have done everything that I know of to make all TPC utilities safe and
friendly. However, I make no warranty of any kind. If you use this product
you do so at your own risk. I will not be held responsible for any loss or
damage resulting from its use. By using this product you are agreeing to
these terms.
PURPOSE
-------
The purpose for TPCMENU is to allow the programmer to easily create
Lightbar Menus. This version contains code to allow for the use of a
mouse. The mouse is automatically activated if the mouse driver is
available.
SYNTAX
------
LOAD TPCMENU
MEMVAR = CHR(CHOICE) + CHR(VERT_SPACE+1) + CHR(ROW+1)+;
CHR(COLLUM+1) + CHR(ROWS) + CHR(COLLUMS)+;
CHR(TOTAL) + CHR(HORZ_SPACE) + CHR(LB_WIDTH)+;
CHR(BACKGR) + CHR(BAR_COLOR) + OTHER_KEY + ;
SPACE(LB_WIDTH)
CALL TPCMENU WITH MEMVAR
PARAMETERS: 1 - CHOICE && First CHOICE to be highlighted
2 - VERTICAL SPACE && Number of lines between rows
3 - STARTING ROW && Topmost ROW of the menu
4 - STARTING COLLUMN && Leftmost collum of the menu
5 - TOTAL ROWS && Total number of rows
6 - TOTAL COLLUMNS && Total number of columns
7 - TOTAL NUMBER OF CHOICES && Total number of menu choices
8 - HORIZONTAL SPACE && Number of columns between bars
9 - LIGHTBAR WIDTH && Width of the litebar
10 - BACKGROUND COLOR && Numeric value for the screen color
11 - LIGHTBAR COLOR && Numeric value for the bar color
12 - OTHER_KEY && List of return keys (bounded by
&& asterisks)
&& Ex: other_key = "*"+chr(59)+"*"
COLORS
------
-------------------------------------------------------------------
| | Background |
-------------------------------------------------------------------
| Foreground | Black Blue Green Cyan Red Magenta Brown Grey |
-------------------------------------------------------------------
| Black | 0 16 32 48 64 80 96 112 |
| Blue | 1 17 33 49 65 81 97 113 |
| Green | 2 18 34 50 66 82 98 114 |
| Cyan | 3 19 35 51 67 83 99 115 |
| Red | 4 20 36 52 68 84 100 116 |
| Magenta | 5 21 37 53 69 85 101 117 |
| Brown | 6 22 38 54 70 86 102 118 |
| Grey | 7 23 39 55 71 87 103 119 |
| Br Black | 8 24 40 56 72 88 104 120 |
| Br Blue | 9 25 41 57 73 89 105 121 |
| Br Green | 10 26 42 58 74 90 106 122 |
| Br Cyan | 11 27 43 59 75 91 107 123 |
| Br Red | 12 28 44 60 76 92 108 124 |
| Br Magenta | 13 29 45 61 77 93 109 125 |
| Br Brown | 14 30 46 62 78 94 110 126 |
| Br Grey | 15 31 47 63 79 95 111 127 |
-------------------------------------------------------------------
If you have turned "Blink" off using TPCBlInt.BIN then you can use
the following combinations. If you have not set "Blink" off, then
using these combinations will result in Blinking or flashing colors.
-------------------------------------------------------------------
| | Background |
-------------------------------------------------------------------
| | Br Br Br Br Br Br Br Br |
| Foreground | Black Blue Green Cyan Red Magenta Brown Grey |
-------------------------------------------------------------------
| Black | 128 144 160 176 192 208 224 240 |
| Blue | 129 145 161 177 193 209 225 241 |
| Green | 130 146 162 178 194 210 226 242 |
| Cyan | 131 147 163 179 195 211 227 243 |
| Red | 132 148 164 180 196 212 228 244 |
| Magenta | 133 149 165 181 197 213 229 245 |
| Brown | 134 150 166 182 198 214 230 246 |
| Grey | 135 151 167 183 199 215 231 247 |
| Br Black | 136 152 168 184 200 216 232 248 |
| Br Blue | 137 153 169 185 201 217 233 249 |
| Br Green | 138 154 170 186 202 218 234 250 |
| Br Cyan | 139 155 171 187 203 219 235 251 |
| Br Red | 140 156 172 188 204 220 236 252 |
| Br Magenta | 141 157 173 189 205 221 237 253 |
| Br Brown | 142 158 174 190 206 222 238 254 |
| Br Grey | 143 159 175 191 207 223 239 255 |
-------------------------------------------------------------------
NOTE
----
TPCMENU RETURNS VALUES AS FOLLOWS:
* --- CHOICE = OPTION SELECTED
CHOICE= ASC(SUBSTR(MEMNAR,1,1))
* --- kEY PRESSED TO RETURN
KEY = ASC(SUBSTR(MEMVAR,2,1))
* --- WHAT WAS UNDER THE BAR
UNDER = RTRIM(SUBSTR(MEMVAR,3,LB_WIDTH))7
* --- W A R N I N G !!! -----------------
* Be SURE that your memvar is long enough to accept the return
* params TPCMENU returns what was under the lightbar and will
* corrupt other memvars if the return var is not long enough.
Because of the long parameter list and having to parse out the returned
string the program LBAR.PRG has been included. See the demonstration
program for examples of its use.
REGISTRATION
------------
This utility is marketed using the SHAREWARE marketing concept.
The idea is simple. If you use it pay for it.
The fee for registering TPCMENU.BIN is $25
For registration of all TPC utilities the fee is $50
For a list of all the TPC utilities send a Self Addressed Stamped
Envelope.
Send all enquiries and registration fees to:
Steve Stamm
TPC Technologies
P.O. 9634
Knoxville, Tenn. 37940
Thanks for your support!
Steve Stamm