PCjs Machines

Home of the original IBM PC emulator for browsers.


PC-SIG Diskette Library (Disk #2559)

[PCjs Machine "ibm5170"]

Waiting for machine "ibm5170" to load....


                  The EZ-WINDOWS PullDown Menu System

      "Terrific, a beautiful piece of programming!" - Duiven, Holland

           A Complete Menu System for the QuickBasic 4.x Compiler
            and MS Professional Development System 7.0 and up.


			StrongSoft Engineering
                          3155 S.W. 178th Ave
                            Aloha, OR 97006

	   Documentation written & prepared by John C. Strong


     This routine is intended to allow a programmer to present the user
with options in an organized and aesthetic way.  The PullDown Menu System was
indeed modeled after the very pulldown menu used in the QuickBASIC 4.x

     I wrote this routine out of frustration, actually.  I didn't want to
take the time to write a pulldown menu routine, yet none of the commercially
available libraries offered the options that I needed.  So I just sat down
one day and wrote it, and here it is.

     The PullDown Menu System is very easy to integrate in a QB program,
yet offers all the options someone might expect in a commercial software
package.  To use this routine in a program, all that is required is a few
arrays containing formatting information for the pulldown menu and an array
containing the actual text used.  Then a simple CALL statement will take care
of the rest!  Don't worry -- loading the arrays required for the routine is
very straightforward and uncomplicated, and the results are definitely worth

     The advantages of using this routine are both numerous and obvious, but
there is one disadvantage:  the code size is rather large.  But the programs
that need such a pulldown menu routine are the ones that need to present a
multitude of options to the user -- such a program will naturally be large
anyway, so the relative code size of the PullDown Menu System shouldn't make
a big difference.


     The PullDown Menu System requires QuickBASIC 4.0 Compiler or above.  I
don't know if it will work with earlier versions.  I believe earlier versions
of QuickBASIC modify the stack a bit differently when passing parameters to
assembler routines, which would definitely cause problems.  So if you don't
have version 4.0 or later, you would be doing yourself a great favor by
upgrading if for no other reason than to enjoy the benefits of a superior
programming environment provided by QB45 or PDS 7.0.

     You can use this routine inside the QB environment or in a compiled
.EXE file.  Two Quick Libraries are provided for program development inside
QB and two libraries are provided for compiled programs.    


	Using this routine requires the dimensioning and loading of several
arrays and the actual call to the routine.  When calling the routine, several
conventions must be observed:

     1)    All non-string variable arguments must be the integer type,
           denoted by the percent sign %, i.e., ITEMSLCT%.  Alternativ-
           ely, the DEFINT statement can be used at the beginning of
           your program which will take care of this automatically.  You
           can also pass literals instead of integer variables, but only
           for arguments that are not modified by the routine.  The best
           thing to do is just pass variables, which requires less stack
           space than literals.

     2)    The arguments passed must be in proper order or the routine
           will not work, possibly locking up your system.

     3)    All arguments must be present or the routine will not work,
           possibly locking up your system.


     This is the required format for calling this routine:

     CALL PULLDOWN(MENUBAR$,MenuRow%,MenuCol%,MenuFG%, MenuBG%,HiliteFG%,

     Arguments:     MENUBAR$ - A string variable holding each pulldown menu
                               name.  The number of menus is determined by
                               the number of names is this string, which
                               must be separated by at least one space on
                               each side.  A space character must be the last
                               character in the string.

                    MenuRow% - The row on which the menu bar will be 

                    MenuCol% - The column of the leftmost character in the
                               menu bar.  For a full length menu bar, this
                               would be set to one (1).

                     MenuFG% - The foreground color of the menubar and menus.

                     MenuBG% - The background color of the menubar and menus.

                   HiLiteFG% - The foreground color of the 'hot' letter in
                               each selection.  Bright white (15) or yellow
                               (14) work the best.

                    HiBarFG% - The foreground color of the text selected by
                               the hilite bar.

                    HiBarBG% - The background color of the hilite bar.

                 NonValidFG% - The foreground color of the selections not 
                               currently valid.  Gray (8) works the best here.

                   HiPos1%() - The integer array, dimensioned to the number of
                               menus, holding the position of the 'hot'
                               letter in each menu name in the MENUBAR$
                               variable.  These letters will be hilited with
                               the color specified in the HiliteFG% variable.

                   HiPos2%() - A 2-dimensional integer array holding the 
                               position of the 'hot' letter in each menu item
                               for each menu. It's first dimension is the
                               number of the menu, the second is the 
                               number of the selection in the menu.  
                               Dimension it for the number of menus and the 
                               number of items in the largest menu.  For
                                    DIM HiPos2%(menu%,slct%)

                  MaxSize%() - An integer array holding the length of the
                               longest item in each menu.

                 MaxItems%() - An integer array holding the number of items in
                               each menu.

                     Item$() - A 2-dimensional array holding the items for
                               selection for each menu.  It is dimensioned
                               like HiPos2%(),
                                    DIM Item$(menu%,slct%)

                    Valid%() - A 2-dimensional flag array that determines if
                               an item is valid for selection or not.  A value
                               of 1 is valid; 0 means not valid, and the item
                               is grayed-out.  It is dimensioned like

                   Toggle%() - A 2-dimension flag array that determines the 
                               toggling status of each item in each menu.  
                                   2   -   exclusive toggle, on
                                   1   -   inclusive toggle, on
                                   0   -   no toggling
                                  -1   -   inclusive toggle, off
                                  -2   -   exclusive toggle, off

                               If toggling is used in a menu, it must all be
                               of one type, either all exclusive or all
                               inclusive.  Otherwise, it won't work properly.
                               Toggle%() is dimensioned like HiPos2%().

                         ms% - Flag to indicate mouse support.  If ms%=0, the
                               routine ignores the mouse if one is present.
                               ms%=1 tells the routine to use the mouse.

                 ClearAfter% - If ClearAfter%=1, the menu will be erased after
                               a selection is made.  A value of zero will 
                               inhibit the erasing of the menu.

                       Seed% - When PULLDOWN is first called, the menu name
                               corresponding to the number in this variable 
                               is hilited for selection.

                    SoundOn% - If set to zero (0), the routine will not make
                               any sound.

		      Blink% - If set to one (1), the selected item will blink
			       2 times after selection.

     Returned:     MenuSlct% - The number of the menu containing the item that
                               was selected.

                   ItemSlct% - The number of the item selected.
	In addition, you can tell PULLDOWN to put in a dividing line with a 
simple command.  All you do is insert a certain control code into your
ITEM$() array.  For example, to put a dividing line 10 characters long in
your first menu after the third item, your program should define ITEM$(1,4) as:

			ITEM$(1,4) = "~10"

The tilde "~" tells PULLDOWN to create a dividing line, its length determined
by the two characters directly following the tilde.

     The source code for PDDEMO is well documented and will provide a little
more clarity on the function of each of these variable.  I encourage you to
play around will PDDEMO a bit - get a feel for it by modifying it and seeing
what it does.  Be sure to observe the calling conventions, though.


	To create an .EXE file, follow these steps:

          1)   During development, use the EZQB.QLB (or EZPDS.QLB) Quick
	       Library inside the QB environment.

          2)   When you're ready to compile the finished program, first
               decide if you want a stand-alone program or one that needs the
               BRUNxx.exe file to run.  Then go to the DOS prompt in your QB
               directory and use this syntax to compile your program:

                    BC PROGRAMNAME [/O],,nul	   

               where PROGRAMNAME is the name of your basic program (no
               extension), and the [/O] option tells QB to compile a stand-
               alone program.  You may leave this option off if you want,
               which will result in an executable file that needs the
               BRUNxx.EXE file.  For example, to compile PDDEMO.BAS for
               stand-alone program, type

                    BC PDDEMO /O

          3)   Now is when you link in the EZQB.LIB (or EZPDS.LIB) library
               to the object code produced by the compiler.  From the DOS
               prompt use this syntax to link your program:

                    LINK [/E] PROGRAMNAME,,,EZQB

               The [/E] is the EXEPACK option which produces a
               smaller executable file and should be used for most every 
               program that you may write.

          4)   You should now have an executable version of your QB program
               in the QBxx directory.  Remember, if you didn't use the [/O]
               option, the BRUNxx.EXE must be present.


     If you think this pulldown menu routine will be useful to you, I would
greatly appreciate a little donation to get me through the last year of 
engineering school.  A $5.00 registration fee is all that's needed to get on 
the mailing list and receive updates to PULLDOWN plus customer support.


     If you run the EZDEMO1.EXE program on your disk, you will see a collection
of my favorite routines that I would like to make available to you.  This is
Volume 1 of the EZ-WINDOWS library.  I use these routines extensively in my
programs, which not only saves a lot of time but also results in a professional
looking program.

     Here is what you get:  1) the complete library of routines with full
documentation;  2)  free updates when they become available;  3)  customer
support.  Included in customer support is the "wish list".  If you have an
idea for a routine, and I get enough suggestions from others for the same type
of routine, I will write it up and send it out with the next update.  In 
addition, I will be periodically updating my personal library with new
routines which will be included in the next volume.  Each new volume can be
obtained by registered users at a discount.

     I know a lot of you will want my source code, and I can understand that.
I'm a little reluctant to give it out, but I will release it with the library
for an extra fee.

     For ordering info, see the REGISTER.DOC file.


     Have a ball! 


Disk No: 2559                                                           
Disk Title: EZ-Windows Pull-Down Menu Library                           
PC-SIG Version: S1.0                                                    
Program Title: EZ-Windows Pull-Down Menu Library                        
Author Version: 01/91                                                   
Author Registration: $5.00 and $30.00                                   
Special Requirements: QuickBASIC 4.0+ Compiler                          
EZ-WINDOWS is a complete menu system for the QuickBASIC 4.x compiler    
that saves you from having to write your own pull-down menus. EZ-WINDOWS
is actually modeled after the very pull-down menu used in the QuickBASIC
4.x environment and is very easy to integrate into your QuickBASIC      
programs.  With EZ-WINDOWS, your programs will have the same appearance 
as commercial programs.                                                 
All that is required to use EZ-WINDOWS are a few arrays containing      
formatting information for the pull-down menu and an array containing   
the actual text used.  A simple CALL statement will take care of the    
rest. Loading of the arrays is uncomplicated and worth the effort.  One 
reason for using EZ-WINDOWS is the ease with which you can add a        
professional look to your programs.                                     
There is one disadvantage -- the code size is rather large.  However,   
programs that need such a pull-down menu system are the ones that       
present a multitude of options to the user, and will be naturally large 
anyway, so the relative code size of the pull-down menu system shouldn't
make a big difference.                                                  
StrongSoft Engineering's EZ-WINDOWS has demo programs to demonstrate the
power and flexibility of the pull-down menu system.                     
~ Registered library also contains a routine to produce movable,        
  resizable pop-up windows that can be manipulated with a mouse.        
~ All routines use a mouse.                                             
~ Also works with Professional Development System 7.x.                  
~ Source code is available.                                             
~ E-mail customer support available.                                    
1030D East Duane Avenue                                                 
Sunnyvale  Ca. 94086                                                    
(408) 730-9291                                                          
(c) Copyright 1989 PC-SIG, Inc.                                         


║    <<<<  PC-SIG Disk #2559  EZ-WINDOWS PULL-DOWN MENU LIBRARY  >>>>     ║
║                                                                         ║
║  To print the documentation and instructions for EZ-WINDOWS, type:      ║
║                  COPY EZWINDO.DOC PRN  (press Enter)                    ║
║                                                                         ║
║  To print the registration information, type:                           ║
║                  COPY REGISTER.DOC PRN  (press Enter)                   ║
║                                                                         ║
║                                                                         ║
║                                           Copyright 1991, PC-SIG, Inc.  ║



'                   PULLDOWN demonstration program
'                         Using EZWINDOWS library.

'                   Written by
'                         John C. Strong
'                         3155 S.W. 178th Aveneu
'                         Aloha, OR 97006


'    Here's how to run this demo in the QB 4.x environment:

'         Make sure the EZPD.QLB file is in the current path,
'         and start QuickBasic using the syntax

'                             QB /L EZPD

'         which loads the quick library EZPD.QLB along with QB.
'         Then load DEMO.BAS from within QB and there you go!

'    Here's how to compile this demo into an executable file:

'         To compile this program (or any other program you may
'         write with EZWINDOW), return to the DOS command line
'         and follow this sequence of commands:

'              BC ProgramName,,nul
'              link /e ProgramName,,,EZPD.LIB

'         Note the difference between EZPD.LIB and EZPD.QLB!
'         Quick libraries are for use only inside the QB environment.

'                         P R O G R A M    C O D E

     DIM HiPos1(10), HiPos2(10, 20), MaxSize(10), maxitems(10), item$(10, 15), valid(10, 15), toggle(10, 15)
     col = 1                                      'assume color monitor
     IF INSTR(COMMAND$, "BW") THEN col = 0        'user wants black/white
     ms = 1                                       'assume mouse
     IF INSTR(COMMAND$, "IM") THEN ms = 0         'user doesn't want mouse
     COLOR 7, col * 5
     LOCATE 5, 5: PRINT "This is the PULLDOWN menu system!"
     LOCATE 7, 5: PRINT "Here are some of its exciting features:"
     LOCATE 9, 10
     PRINT " Easily integrated into any existing QB 4.x program."
     PRINT TAB(10); " Full mouse support."
     PRINT TAB(10); " Full color control."
     PRINT TAB(10); " Selections can by "; CHR$(34); "grayed"; CHR$(34); " out."
     PRINT TAB(10); " Selections can be toggled inclusivley and exclusively."
     PRINT TAB(10); " Mouse, cursor keys, or 'hot' keys can be used to"
     PRINT TAB(12); "make a selection."
     PRINT TAB(10); " 'Hot' key can be located anywhere in selection text."
     PRINT TAB(10); " Menus pop up instantly, even on an XT!"
     PRINT TAB(10); " Windows have a transparent shadow."
     PRINT TAB(10); " Item will optionally blink upon selection."
     PRINT TAB(10); " Dividing lines are inserted automatically."

     LOCATE 22, 5: PRINT "Select Exit from File menu when you're ready to quit..."
     LOCATE 24, 5: PRINT "You selected:   ";

     FOR i = 1 TO 10          'HiPos1() holds the location in each menu
          HiPos1(i) = 1       'name for the 'hot' key - in this case it
     NEXT i                   'is the first letter in each name.
     'Load in menu data from data statements at the end of this program
     RESTORE PullDownMenuData
     FOR menu = 1 TO 8
          READ maxitems(menu)               'Number of selections in each menu
          READ MaxSize(menu)                'Max length of items in each menu
          FOR slct = 1 TO maxitems(menu)
               READ item$(menu, slct)       'Text displayed for selection
               READ HiPos2(menu, slct)      'Hot key for each selection in menu
               READ valid(menu, slct)       'Determines if grayed out or not
               READ toggle(menu, slct)      'Determines if selection can be
          NEXT slct
     NEXT menu
     menuline$ = "   File  Edit  View  Search  Run  Debug  Calls  Options                         "
     menurow = 1                             'Screen row of menu line
     menucol = 1                             'Beginning column position
     MenuFG = 0                              'Menu foreground color
     MenuBG = 7                              'Menu background color
     HILITE = 15                             'Hot key hilite color
     HiBarFG = 7                             'Hilite bar foreground color
     HiBarBG = 0                             'Hilite bar background color
     NonValidFG = 8                          'Foreground color for grayed-out
     clearafter = 1                          'erase menu after selection
     seed = 1                                'menu to start with
     SoundOn = 1                             'turn sound on
     blink = 1                               'turn BLINK option on
     CALL mouse(0, 0, 0, 0, 1)               'initialize mouse
     CALL mouse(1, 0, 0, 0, 1)               'show mouse cursor
     CALL mouse(10, 0, &H7000, 3844, ms)     'set mouse cursor

          CALL PULLDOWN(menuline$, menurow, menucol, MenuFG, MenuBG, HILITE, HiBarFG, HiBarBG, NonValidFG, HiPos1(), HiPos2(), MaxSize(), maxitems(), item$(), valid(), toggle(), ms, clearafter, seed, SoundOn, blink, menuslct, itemslct)
          LOCATE 24, 5
          PRINT "You selected:   "; item$(menuslct, itemslct); "                      ";

          IF menuslct <> 0 AND LEFT$(item$(menuslct, itemslct), 1) <> "~" THEN
               LOCATE 24, 20
               PRINT item$(menuslct, itemslct);
          END IF
          IF toggle(menuslct, itemslct) <> 0 THEN
               LOCATE 24, 40
               IF toggle(menuslct, itemslct) > 0 THEN
                    PRINT "ON   ";
                    PRINT "OFF  ";
               END IF
          END IF
          seed = menuslct
          IF seed = 0 THEN seed = 1

     LOOP UNTIL menuslct = 1 AND itemslct = 15
     REDIM HiPos1(0), HiPos2(0, 0), MaxSize(0), maxitems(0), item$(0, 0), valid(0, 0), toggle(0, 0)
     CALL mouse(2, 0, 0, 0, 1)               'turn off mouse cursor
     COLOR 7, 0

'---------------------------- End of Program Code ----------------------------

'                              M e n u   D a t a


     'File menu

     DATA 15,17
     DATA " New Program     ",2,1,0
     DATA " Open Program... ",2,1,0
     DATA " Merge...        ",2,1,0
     DATA " Save...         ",2,1,0
     DATA " Save As         ",7,1,0
     DATA " Save All        ",4,1,0
     'Here's an example of inserting a dividing line
     DATA "~17",0,1,0          
     DATA " Create File...  ",2,1,0
     DATA " Load File...    ",2,1,0
     DATA " Unload File...  ",2,1,0
     DATA "~17",0,1,0
     DATA " Print...        ",2,1,0
     DATA " DOS Shell       ",2,1,0
     DATA "~17",0,1,0
     DATA " Exit            ",3,1,0

     'Edit menu
     DATA 8,22
     DATA " Undo   Alt+Backspace ",2,1,0
     DATA " Cut        Shift+Del ",4,0,0
     DATA " Copy        Ctrl+Ins ",2,0,0
     DATA " Paste      Shift+Ins ",2,1,0
     DATA " Clear            Del ",4,1,0
     DATA "~22",0,1,0
     DATA " New SUB...           ",6,1,0
     DATA " New FUNCTION...      ",6,1,0

     'View menu
     DATA 9,24
     DATA " SUBs...             F2 ",2,1,0
     DATA " Next SUB      Shift+F2 ",3,1,0
     DATA " Split                  ",3,1,0
     DATA "~24",0,1,0
     DATA " Next Statement         ",2,1,0
     DATA " Output Screen       F4 ",3,1,0
     DATA "~24",0,1,0
     DATA " Included File          ",2,0,0
     DATA " Included Lines         ",11,1,0

     'Search menu
     DATA 5,26
     DATA " Find...                  ",2,1,0
     DATA " Selected Text     Ctrl+\ ",2,1,0
     DATA " Repeat Last Find      F3 ",2,1,0
     DATA " Change...                ",2,1,0
     DATA " Label...                 ",2,1,0

     'Run menu

     DATA  9,21
     DATA " Start      Shift+F5 ",2,1,0
     DATA " Restart             ",2,1,0
     DATA " Continue         F5 ",4,1,0
     DATA " Modify COMMAND$...  ",9,1,0
     DATA "~21",0,1,0
     DATA " Make EXE File...    ",8,1,0
     DATA " Make Library...     ",7,1,0
     DATA "~21",0,1,0
     DATA " Set Main Module...  ",6,1,0

     'Debug menu
     DATA 13,29
     DATA " Add Watch...                ",2,1,0
     DATA " Instant Watch...   Shift+F9 ",2,1,0
     DATA " Watchpoint...               ",2,1,0
     DATA " Delete Watch...             ",2,0,0
     DATA " Delete All Watch            ",4,0,0
     DATA "~29",0,1,0
     DATA " Trace On                    ",2,1,0
     DATA " History On                  ",2,1,0
     DATA "~29",0,1,0
     DATA " Toggle Breakpoint        F9 ",9,1,0
     DATA " Clear All Breakpoints       ",2,1,0
     DATA " Break On Errors             ",11,1,0
     DATA " Set Next Statement          ",2,0,0

     'Calls menu
     DATA 1,17
     DATA " PDDEMO.BAS      ",2,1,0

     'Options menu
     DATA 5,17
     DATA " Display...      ",2,1,0
     DATA " Set Paths...    ",6,1,0
     DATA " Right Mouse...  ",8,1,0
     DATA " Syntax Checking ",2,1,1
     DATA " Full Menus      ",2,1,1

Directory of PC-SIG Library Disk #2559

 Volume in drive A has no label
 Directory of A:\

EZDEMO1  EXE     61752   1-26-91   3:03p
PDDEMO   BAS      9598  11-19-90   9:02p
PDDEMO   EXE     33080   1-25-91   9:29p
REGISTER DOC      4306   8-28-90   9:21p
EZQB     LIB     20031   1-25-91   9:25p
EZQB     QLB     28697   1-25-91   9:25p
EZPDS    LIB     21057   1-25-91   9:27p
EZPDS    QLB     29988   1-25-91   9:28p
EZWINDO  DOC     13454   1-19-91   5:17p
FILE2559 TXT      3553   3-14-91   9:52a
GO       BAT        38   1-31-91  12:58a
GO       TXT      1002   3-14-91  12:51a
       12 file(s)     226556 bytes
                       88064 bytes free