Dec 232017
 
Pulldown Menus Routines w/ Source, Fast, Easy and SMALL! 1K of Code.
File PULLMENU.ZIP from The Programmer’s Corner in
Category Pascal Source Code
Pulldown Menus Routines w/ Source, Fast, Easy and SMALL! 1K of Code.
File Name File Size Zip Size Zip Type
PULLMENU.DOC 1670 856 deflated
PULLMENU.PAS 3685 1428 deflated

Download File PULLMENU.ZIP Here

Contents of the PULLMENU.DOC file


----------------------------------
Pull Down Menus for Turbo Pascal
by Flaming Chaos
----------------------------------

Well, Here is another shareware package I've thrown together. This unit
provides pulldown selection menus that are quick and easy to use. On
my setup it compile to 1838 bytes code and 0 bytes data, so, as you can see
they are pretty small. Example usage follows:

{-}
Program PullDownExample;

Uses PullMenu;

Var Menu:PullDownRec;
Begin
With Menu Do Begin
NumChoices:=3; { Number of Choices }
Header:='Test of PULLMENU.PAS'; { Menu Header }
Choice[1]:='Write Largest Integer'; {choices...}
Choice[2]:='Write Largest LongInt'; {...}
Choice[3]:='Quit Back to DOS'; {...}
AddPrefix:=True; { Add numerical prefix for hot keys }
End;
Case PullDowns(Menu) of
1:WriteLn(MaxInt);
2:WriteLn(MaxLongInt);
3:WriteLn('Back to DOS you go, scum!');
End;
End.
{-}

I ask no fees in return for usage. Although if you find these
routines useful, I would although appreciate a one time payment of any
amount in any form you feel is proper. With this donation, many
more libraries may come into your possesion ;>.

I may be contacted via the following BBS system:

The Nuclear Holocaust
SysOp: Flaming Chaos
Running: XTC
301-656-0731

When attempting to contact me, please do it in the form of "feedback"
to user #1. Also, PLEASE DO NOT ATTEMPT TO LOGON, as it is a PRIVATE
e-mail system solely for my friends.



 December 23, 2017  Add comments

Leave a Reply