home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PASCAL / PULL70.ZIP / PULL70-.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-21  |  2KB  |  68 lines
  1. { ========================================================================== }
  2. { Pull70-.pas - TP full featured pull-down menus.          ver 7.0, 06-21-93 }
  3. {               Interface only.                                              }
  4. { This file contains all the procedures for pull-down menus and data entry   }
  5. { windows.  Full source provided with registration.                          }
  6. {   Copyright (c) 1988,1993 James H. LeMay, All rights reserved.             }
  7. { ========================================================================== }
  8.  
  9. {$i pulldefs.inc }
  10.  
  11. UNIT Pull;
  12.  
  13. INTERFACE
  14.  
  15. uses
  16.   Crt,Qwik,Wutil,Wndw,
  17.   {$ifdef UseStrg }
  18.   Strg,
  19.   {$else }
  20.   Strs,
  21.   {$endif }
  22.   Goof;
  23.  
  24. {$I p70-var.inc }
  25.  
  26. procedure SetCmdSeq (const 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. {$ifndef UseStrg }
  51. function  StrJL (const S: string; Field: byte): string;
  52. function  StrJR (const S: string; Field: byte): string;
  53. procedure ChrCat (var S: OpenString; Fill: char);
  54. {$endif }
  55.  
  56. { -- Data Entry interface -- }
  57. {$ifdef UseDataEntryCode }
  58. procedure Enter         (RecNum: word);
  59. procedure EnterSeq      (First,Last: word; var Start: word);
  60. procedure DisplayFields (First,Last: word);
  61. {$endif }
  62.  
  63.  
  64. IMPLEMENTATION
  65.  
  66.  
  67. END.
  68.