Category : Pascal Source Code
Archive   : PULL5X.ZIP
Filename : PULL5X-.PAS

{ =========================================================================== }
{ Pull5X-.pas - Turbo Pascal pull-down menus interface. ver 5.X, 01-07-89 }
{ }
{ This file contains the interface for pull-down menus and data entry }
{ windows. }
{ 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 }

{$define UseSubMenuCode }
{$define UseHelpWndwCode }
{$define UseDataEntryCode }
{$define UseMsgLineCode }

UNIT Pull;

INTERFACE

uses
Crt,Qwik,Wutil,Wndw,Strs;

{$I P5x-var.inc }

procedure SetCmdSeq (NewCmdSeq: SeqStrType);
procedure ReadKbd (VAR ExtKey: boolean; VAR Key: char);
procedure ShowTopLine;

{$ifdef UseMsgLineCode }
procedure ShowMsg (MsgNum: byte);
procedure ShowErrMsg (ErrMsgNum: word);
{$endif }

function TopKeyPressed: boolean;
procedure TurnArrows (Switch: Toggle);
procedure CheckForPullDown (MsgLineNum: byte);
procedure CheckForPop;

{$ifdef UseHelpWndwCode }
function HelpKeyPressed: boolean;
procedure PullHelpWndw (WndwNum: byte);
{$endif }

function Popped: boolean;
procedure GotoKeyDispatcher;
procedure InitPull (Attr: integer; ClearScr: boolean);
procedure HiLiteRow (Row: byte; Attr: integer);

function StrSL (S: string; Field: byte): string;
function StrSR (S: string; Field: byte): string;
function InRangeW (Low,Value,High: word): boolean;

{ -- Data Entry interface -- }
{$ifdef UseDataEntryCode }
procedure Enter (RecNum: word);
procedure EnterSeq (First,Last: word; VAR Start: word);
procedure DisplayFields (First,Last: word);
{$endif }


IMPLEMENTATION

END.