home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TVTOOL.ZIP / TVCONST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-09-23  |  1.5 KB  |  67 lines
  1. {*
  2. *   TvConst.pas
  3. *
  4. *   Declare Turbo Vision command constants.
  5. *
  6. *   Copyright 1992 by Richard W. Hansen
  7. *
  8. *}
  9.  
  10. UNIT TvConst;
  11.  
  12. {$I TVDEFS.INC}
  13.  
  14. INTERFACE
  15.  
  16.  
  17. CONST
  18.   efRequired      = $0001;  { Field entry is required       }
  19.   efRJustify      = $0002;  { Trim and Right justify result }
  20.   efLJustify      = $0004;  { Trim and Left justify result  }
  21.   efTrim          = $0008;  { Trim all pad chars from result}
  22.   efHide          = $0010;  { Password input                }
  23.  
  24.  
  25.   cmMaximize      = 250;    { minimize a window }
  26.   cmMinimize      = 251;    { maximize a window }
  27.   cmStartJob      = 252;    
  28.   cmPauseJob      = 253;
  29.   cmContinueJob   = 254;
  30.   cmCancelJob     = 255;
  31.   cmJobComplete   = 9999;
  32.  
  33.   cmMarkStart     = 10000;  { Start of marked menu items            }
  34.   cmMarkEnd       = 11000;  { End of marked menu items
  35.                              Start and End are used by HandleEvent
  36.                              to toggle menu markers.               }
  37.   cmCursorMoved   = 11001;
  38.   cmUpdateView    = 11002;
  39.   cmEditView      = 11003;
  40.  
  41.   cmScrollUp      = 11010;
  42.   cmScrollDown    = 11011;
  43.   cmPrint         = 11012;
  44.  
  45.   cmDisplayStr    = 11020;
  46.   cmDisplayClr    = 11021;
  47.  
  48.   cmPopMenu       = 11030;
  49.  
  50.   {$IFDEF TVSCROLL}
  51.   gfGrowXYRel     = $80;
  52.   cmDragView      = 11040;
  53.   {$ENDIF}
  54.  
  55.   cmFieldError    = 11060;
  56.   cmIdentify      = 11061;
  57.   cmLoseFocus     = 11062;
  58.  
  59.   cmListItemFocused = 13000;
  60.  
  61. CONST
  62.   ErrorMsg        : String[80] = '';
  63.  
  64.  
  65. IMPLEMENTATION
  66. END.
  67.