home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PULL5X.ZIP / PULL5XA-.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-01-01  |  1.9 KB  |  65 lines
  1. { =========================================================================== }
  2. { Pull5Xa-.pas - Turbo Pascal pull-down menus interface.   ver 5.Xa, 01-11-89 }
  3. {                                                                             }
  4. { This file contains the interface for pull-down menus and data entry         }
  5. { windows.                                                                    }
  6. {   Copyright (c) 1987-1989 James H. LeMay, All rights reserved.              }
  7. { =========================================================================== }
  8.  
  9. { R-,S-,I-,D-,T-,F-,V-,B-,N-,L+ }         { TP4 directives }
  10. {$A-,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}    { TP5 directives }
  11.  
  12. {$define UseSubMenuCode }
  13. {$define UseHelpWndwCode }
  14. {$define UseDataEntryCode }
  15. {$define UseMsgLineCode }
  16.  
  17. UNIT Pull;
  18.  
  19. INTERFACE
  20.  
  21. uses
  22.   Crt,Qwik,Wutil,Wndw,Strs;
  23.  
  24. {$I P5x-var.inc }
  25.  
  26. procedure SetCmdSeq (NewCmdSeq: SeqStrType);
  27. procedure ReadKbd (VAR ExtKey: boolean; VAR Key: char);
  28. procedure ShowTopLine;
  29.  
  30. {$ifdef UseMsgLineCode }
  31. procedure ShowMsg (MsgNum: byte);
  32. procedure ShowErrMsg (ErrMsgNum: word);
  33. {$endif }
  34.  
  35. function  TopKeyPressed:  boolean;
  36. procedure TurnArrows (Switch: Toggle);
  37. procedure CheckForPullDown (MsgLineNum: byte);
  38. procedure CheckForPop;
  39.  
  40. {$ifdef UseHelpWndwCode }
  41. function  HelpKeyPressed: boolean;
  42. procedure PullHelpWndw (WndwNum: byte);
  43. {$endif }
  44.  
  45. function  Popped: boolean;
  46. procedure GotoKeyDispatcher;
  47. procedure InitPull (Attr: integer; ClearScr: boolean);
  48. procedure HiLiteRow (Row: byte; Attr: integer);
  49.  
  50. function StrSL  (S: string; Field: byte): string;
  51. function StrSR  (S: string; Field: byte): string;
  52. function InRangeW (Low,Value,High: word): boolean;
  53.  
  54. { -- Data Entry interface -- }
  55. {$ifdef UseDataEntryCode }
  56. procedure Enter         (RecNum: word);
  57. procedure EnterSeq      (First,Last: word; VAR Start: word);
  58. procedure DisplayFields (First,Last: word);
  59. {$endif }
  60.  
  61.  
  62. IMPLEMENTATION
  63.  
  64. END.
  65.