Category : Pascal Source Code
Archive   : PULL55.ZIP
Filename : PULLDEMO.PAS

{ =========================================================================== }
{ PullDemo.pas - Full demonstration of pull-down menus. ver 5.5, 08-24-89 }
{ }
{ Copyright (c) 1987-1989 James H. LeMay, All rights reserved. }
{ =========================================================================== }

{ R-,S-,I-,D-,T-,F-,V-,B-,N-,L+ } { TP4 directives }
{$A-,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-} { TP5 directives }

{$M 16384,18000,18000 }

program PullDemo;

uses
Crt,Qwik,Wndw,Pull,
{ You must include the following units for this demo! : }
PullStat,PullData,PullWork,Goof;

var
OrigPathName: string[67];

procedure DisplayScreen;
begin
WWrite ( 1, 1,'PULLDEMO v5.5 Multi-level Pu'+
'll-down Menus Copr 1989 J H LeMay');
ShowTopLine;
SetWindowModes (PermMode);
MakeWindow (3,1,CRTrows-3,CRTcols,White+BlueBG,LightGray+BlackBG,DoubleBrdr,
Window1);
SetWindowModes (0);
TitleWindow (Top,Left,SameAttr,'1');
TWS.WndwAttr := Yellow+BlueBG;
WWriteC ( 2,'PULL55.ARC - MULTI-LEVEL PULL-DOWN MENUS');
WWriteC ( 9,'This is Work Window 1.');
TWS.WndwAttr := TWS.OrigAttr;
WWriteC ( 4,'Use F1 everywhere for some descriptions.');
WWriteC ( 5,'Use ''Quit'' to exit demo program. ');
WWriteC ( 6,'Be sure to try a CR at "ð" marked lines.');
WWriteC ( 7,'Also try all the EnterData lines. ');
WWrite(11, 9,'The following Data Entry fields have some arbitrary values');
WWrite(12, 9,'and ranges. Move the highlight and edit. Press F1 for help.');
end;

begin
{ Qsnow := false; }
GetDir (0,OrigPathName);
PathName := OrigPathName;
PreferMultiTask := true; { Use Multi-tasking MTVB if possible. }
InitPull (LightGray,false); { <<-- Be sure you do this!! }
DisplayScreen;
GotoKeyDispatcher; { <<-- All keyboard entries go through here! }
if OrigPathName<>PathName then
begin
{$I-} ChDir(OrigPathName); {$I+}
if IOresult<>0 then;
end;
AccessWindow (Window0);
WClrScr;
WGotoRC (CRTrows,1);
SetCursor (CursorInitial);
end.