home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Pascal / TP.7_1 / TP / EXAMPLES / TVFM / EQU.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-10-05  |  4.8 KB  |  138 lines
  1. {************************************************}
  2. {                                                }
  3. {   Turbo Vision File Manager Demo               }
  4. {   Copyright (c) 1992 by Borland International  }
  5. {                                                }
  6. {************************************************}
  7.  
  8. unit Equ;  { Equates for TVFM }
  9.  
  10. interface
  11.  
  12. uses Views;
  13.  
  14. const
  15.  
  16.   evIdle              = $0400;     { Idle event type }
  17.  
  18.   { File menu commands }
  19.   cmNewWindow         = 100; { Sent when a new window is created }
  20.   cmDosShell          = cmNewWindow + 1;
  21.   cmRun               = cmDosShell + 1;
  22.  
  23.   { commands depending on the file list being focused }
  24.   cmExecute           = 103;
  25.   cmViewAsHex         = cmExecute + 1;
  26.   cmViewAsText        = cmViewAsHex + 1;
  27.   cmViewCustom        = cmViewAsText + 1;
  28.   cmAssociate         = cmViewCustom + 1;
  29.   cmCopy              = cmAssociate + 1;
  30.   cmDelete            = cmCopy + 1;
  31.   cmRename            = cmDelete + 1;
  32.   cmChangeAttr        = cmRename + 1;
  33.   cmReverseTags       = cmChangeAttr + 1;
  34.   cmClearTags         = cmReverseTags + 1;
  35.   cmTagPerCard        = cmClearTags + 1;
  36.  
  37.   cmExitHere          = cmTagPerCard + 1;  { exit to current directory }
  38.   cmGetCurrentDir     = cmExitHere + 1;  { broadcast looking for current directory }
  39.   cmBeginSearch       = cmGetCurrentDir + 1;
  40.  
  41.  
  42.   { Options menu commands }
  43.   cmVideoMode         = cmBeginSearch + 1;
  44.   cmInstallViewer     = cmVideoMode + 1;
  45.   cmDisplayOptions    = cmInstallViewer + 1;
  46.   cmSaveConfig        = cmDisplayOptions + 1;
  47.   cmColorChange       = cmSaveConfig + 1;
  48.  
  49.   cmStatusUpdate      = 3000; { sent to update the status window }
  50.  
  51.   { broadcasts used to update the file list display }
  52.   cmRefreshDisplay    = 3100; { used when sorting/display options change }
  53.   cmRescan            = 3101; { used to rescan the current directory }
  54.   cmScanComplete      = 3102; { sent when a directory scan if finished }
  55.   cmNewDir            = 3103; { used to begin scanning a new directory }
  56.   cmTagChanged        = 3104; { sent when a file's tag status changes }
  57.  
  58.   cmInvalidDir        = 3200; { invalidate a dir, causing it to be rescanned }
  59.  
  60.   cmTopWindow         = 3300; { get the address of the top window }
  61.   cmFileListFocused   = 3301; { is the File list focused in the top window? }
  62.  
  63.   cmItemDropped       = 4000; { an item has been dropped }
  64.  
  65.   cmFileFound         = 4100; { a file was found by file search }
  66.   cmStopSearch        = 4101; { interrupt the file search }
  67.  
  68.  
  69.   { help contexts }
  70.  
  71.   hcFileMenu          = 6000;
  72.   hcViewSubMenu       = hcFileMenu + 1;
  73.   hcTagSubMenu        = hcViewSubMenu + 1;
  74.   hcOptionsMenu       = hcTagSubMenu + 1;
  75.   hcWindowMenu        = hcOptionsMenu + 1;
  76.  
  77.   hcDisplayFields     = hcWindowMenu + 1;
  78.   hcQuit              = hcDisplayFields + 1;
  79.  
  80.  
  81.   hcNewWindow         = cmNewWindow;
  82.   hcExecute           = cmExecute;
  83.   hcViewAsText        = cmViewAsText;
  84.   hcViewAsHex         = cmViewAsHex;
  85.   hcViewCustom        = cmViewCustom;
  86.   hcAssociate         = cmAssociate;
  87.   hcCopy              = cmCopy;
  88.   hcDelete            = cmDelete;
  89.   hcRename            = cmRename;
  90.   hcChangeAttr        = cmChangeAttr;
  91.   hcBeginSearch       = cmBeginSearch;
  92.   hcReverseTags       = cmReverseTags;
  93.   hcClearTags         = cmClearTags;
  94.   hcTagPerCard        = cmTagPerCard;
  95.   hcRun               = cmRun;
  96.   hcDosShell          = cmDosShell;
  97.   hcExitHere          = cmExitHere;
  98.  
  99.   hcVideoMode         = cmVideoMode;
  100.   hcInstallViewer     = cmInstallViewer;
  101.   hcDisplayOptions    = cmDisplayOptions;
  102.   hcSaveConfig        = cmSaveConfig;
  103.   hcColorChange       = cmColorChange;
  104.  
  105.   { other assorted program strings }
  106.   sNoFiles            = 10000;
  107.   sPleaseWait         = sNoFiles + 1;
  108.   sSameNameErr        = sPleaseWait + 1;
  109.   sRenameErr          = sSameNameErr + 1;
  110.   sSetAttrErr         = sRenameErr + 1;
  111.   sNoAssociation      = sSetAttrErr + 1;
  112.   sPressAnyKey        = sNoAssociation + 1;
  113.   sExecErr            = sPressAnyKey + 1;
  114.   sExecRetCode        = sExecErr + 1;
  115.   sNoViewerErr        = sExecRetCode + 1;
  116.   sInvokeErr          = sNoViewerErr + 1;
  117.   sNoDrivesErr        = sInvokeErr + 1;
  118.   sAccessErr          = sNoDrivesErr + 1;
  119.   sFileIsReadOnly     = sAccessErr + 1;
  120.   sDeleteErr          = sFileIsReadOnly + 1;
  121.   sDeleting           = sDeleteErr + 1;
  122.   sReadAttrErr        = sDeleting + 1;
  123.   sCustomViewer       = sReadAttrErr + 1;
  124.   sPathAndName        = sCustomViewer + 1;
  125.   sCantLocateOnPath   = sPathAndName + 1;
  126.   sFileNotAnExe       = sCantLocateOnPath + 1;
  127.   sWriteCfgErr        = sFileNotAnExe + 1;
  128.   sInvalidCfgErr      = sWriteCfgErr + 1;
  129.   sReading            = sInvalidCfgErr + 1;
  130.   sWriting            = sReading + 1;
  131.   sScanning           = sWriting + 1;
  132.   sDelSingle          = sScanning + 1;
  133.   sDelMult            = sDelSingle + 1;
  134.  
  135. implementation
  136.  
  137. end. { unit }
  138.