home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PULL20.ZIP / PULLDIR-.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-12  |  1.4 KB  |  43 lines
  1. { =========================================================================== }
  2. { Pulldir-.pas - Submenu pull-down directory.               ver 2.0, 01-12-87 }
  3. {                                                                             }
  4. { This directory was designed with a heavy emphasis on end-user human factors.}
  5. { High speed retrieval, scrolling, non-flickering hilite, letter scanning,    }
  6. { single column and lower-case readability, right-justified extension,        }
  7. { pick list.  This file only contains the interface.                          }
  8. { (c) 1987, 1988 James H. LeMay                                               }
  9. { =========================================================================== }
  10.  
  11. {$R-,S-,I-,D-,T-,F-,V-,B-,N-,L+ }
  12.  
  13. UNIT PullDir;
  14.  
  15. INTERFACE
  16.  
  17. uses
  18.   DOS,Qwik,WndwVars,Wndw,PullVars,Pull;
  19.  
  20. type
  21.   FileNameStr = string[12];
  22.   DirectoryMenuRec = record
  23.     Title:                   string[9];
  24.     LinkDir:                 DirType;
  25.     MenuLines,
  26.     Row,Col,Rows,Cols,
  27.     HiLiteLine,
  28.     Battr,Wattr,Hattr:       byte;
  29.     Border:                  Borders;
  30.     MsgLineNum, HelpWndwNum: byte
  31.   end;
  32.  
  33. var
  34.   DirectoryMenu: DirectoryMenuRec;
  35.  
  36. const
  37.   FileMask:  FileNameStr = '*.*';
  38.  
  39. procedure PullDirectory (VAR NameToChange: FileNameStr;
  40.                              NameToHiLite: FileNameStr);
  41.  
  42. IMPLEMENTATION
  43.