home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PULLDIR.ZIP / PULLVAR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-13  |  4.2 KB  |  101 lines
  1. {$R+,S+,I-,D+,T-,F-,V-,B-,N-,L+ }
  2. {$M 16384,0,655360 }
  3.  
  4. {############################ PullVar.PAS ###################################}
  5.  
  6. Unit PullVar;
  7.  
  8. Interface
  9.  
  10. TYPE
  11.   ColorType     = (Bor,        { Frame }
  12.                    Tit,        { Title }
  13.                    Ask,        { Prompt }
  14.                    Msk,        { Mask }
  15.                    Sel,        { Select bar }
  16.                    Nor,        { Normal text }
  17.                    Hil,        { Hilited text }
  18.                    Mem,        { Memory prefix }
  19.                    Num,        { Memory number }
  20.                    Err,        { Error messages }
  21.                    Dir,        { <DIR> display }
  22.                    Nam,        { File name }
  23.                    Ext,        { File extension }
  24.                    Siz,        { File size }
  25.                    Dat,        { File date }
  26.                    Tim,        { File time }
  27.                    Key,        { Command key }
  28.                    Cmd,        { Command description }
  29.                    Bk1,        { Directory background }
  30.                    Bk2);       { Help background }
  31.  
  32.   ColorArray    = Array[ColorType] of Byte;
  33.  
  34. CONST
  35.   BlackBlue=    16;               GreenBlue=    18;
  36.   CyanBlue=     19;               RedBlue=      20;
  37.   MagBlue=      21;               BrownBlue=    22;
  38.   LtGrayBlue=   23;               DkGrayBlue=   24;
  39.   LtBlueBlue=   25;               LtGreenBlue=  26;
  40.   LtCyanBlue=   27;               LtRedBlue=    28;
  41.   LtMagBlue=    29;               YellowBlue=   30;
  42.   WhiteBlue=    31;               Blue=         1;
  43.   Green=        2;                Cyan=         3;
  44.   Red=          4;                Magenta=      5;
  45.   Brown=        6;                LtGray=       7;
  46.   DkGray=       8;                LtBlue=       9;
  47.   LtGreen=      10;               LtCyan=       11;
  48.   LtRed=        12;               LtMag=        13;
  49.   Yellow=       14;               White=        15;
  50.   YellowRed=    78;               WhiteRed=     79;
  51.   WhiteGreen=   47;               WhiteYellow=  46;
  52.   BlackGreen=   32;               BlueGreen=    33;
  53.  
  54.   Clr1   : ColorArray = (Red,               { Frame }
  55.                          White,             { Title }
  56.                          Green,             { Prompt }
  57.                          BlueGreen,         { Mask }
  58.                          WhiteRed,          { Select Bar }
  59.                          Brown,             { Normal text }
  60.                          LtGreen,           { Hilited text }
  61.                          BlackGreen,        { Memory prefix }
  62.                          WhiteGreen,        { Memory number }
  63.                          YellowRed,         { Error messages }
  64.                          WhiteBlue,         { <DIR> display }
  65.                          YellowBlue,        { File name }
  66.                          YellowBlue,        { File extension }
  67.                          BlackBlue,         { File size }
  68.                          GreenBlue,         { File date }
  69.                          BrownBlue,         { File time }
  70.                          Yellow,            { Command key }
  71.                          Green,             { Command description }
  72.                          WhiteBlue,         { Directory background }
  73.                          White);            { Help background }
  74.  
  75.   EditArray     : Array[1..19] of String[33] =
  76.   { change this area to customize for your particular help area }
  77.  
  78.    (' Enter a directory mask to scan  ',
  79.     ' for or press ENTER to accept.   ',
  80.     '                                 ',
  81.     '  --<<< EDITING COMMANDS >>>--   ',
  82.     '                                 ',
  83.     ' HOME,^W: First name in DIR      ',
  84.     ' END ,^Z: Last  name in DIR      ',
  85.     ' PgUp,^R: Jump up one page       ',
  86.     ' PgDn,^C: Jump down one page     ',
  87.     ' Up  ,^E: Cursor up one line     ',
  88.     ' Down,^X: Cursor down one line   ',
  89.     ' ENTER  : Accept filename        ',
  90.     ' ESC    : Abort and return       ',
  91.     '                                 ',
  92.     '                                 ',
  93.     '                                 ',
  94.     '                                 ',
  95.     '                                 ',
  96.     '                                 ');
  97.  
  98. Implementation
  99.  
  100. End.
  101.