home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / turbopas / pull20.arc / PULL20-.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-12  |  2KB  |  38 lines
  1. { =========================================================================== }
  2. { Pull20-.pas - Turbo Pascal full featured pull-down menus. ver 2.0, 01-12-88 }
  3. {                                                                             }
  4. { This file shows only the interface for pull-down menus and data entry       }
  5. { windows.                                                                    }
  6. { (c) 1987,1988 James H. LeMay                                                }
  7. { =========================================================================== }
  8.  
  9. UNIT Pull;
  10.  
  11. INTERFACE
  12.  
  13. uses
  14.   CRT,Qwik,WndwVars,Wndw,PullVars;
  15.  
  16. procedure ReadKbd (VAR ExtKey: boolean; VAR Key: char);
  17. procedure ShowMsg (MsgNum: byte);
  18. procedure ShowTopMenu;
  19. procedure ShowErrorMsg (ErrMsgNum: word);
  20. function  TopKeyPressed:  boolean;
  21. function  HelpKeyPressed: boolean;
  22. procedure TurnArrows (Switch: Toggle);
  23. procedure CheckForPullDown (MsgLineNum: byte);
  24. procedure CheckForPop;
  25. procedure PullHelpWndw (WndwNum: byte; Title: MaxString);
  26. function  Popped: boolean;
  27. procedure GotoKeyDispatcher;
  28. procedure InitPull (Attrib: integer; ClearScr: boolean);
  29.  
  30. { Data Entry interface }
  31. procedure Transfer (VAR UserVariable);
  32. procedure RestoreData (VAR UserVariable; ErrMsg: integer);
  33. procedure WorkWndwEntry (Row,Col,Field: byte; VAR UserVariable;
  34.                          TOD: TypeOfDataType; Justify: DirType;
  35.                          HelpWndwNum: byte; HelpTitle: MaxString);
  36.  
  37. IMPLEMENTATION
  38.