home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pascal / vdl020d.zip / VHELP.DOC < prev    next >
Text File  |  1993-04-14  |  2KB  |  78 lines
  1. {
  2.  ════════════════════════════════════════════════════════════════════════════
  3.  
  4.  Visionix VUI Help Unit (VHELP)
  5.  Copyright 1991,92,93 Visionix
  6.  ALL RIGHTS RESERVED
  7.  
  8.  ────────────────────────────────────────────────────────────────────────────
  9.  
  10.  Revision history in reverse chronological order:
  11.  
  12.  Initials  Date      Comment
  13.  ────────  ────────  ────────────────────────────────────────────────────────
  14.  
  15.  mep       03/30/93  Now uses FileExist in VDOSHigh.
  16.  
  17.  mep       02/11/93  Cleaned up code for beta release
  18.  
  19.  jrt       02/08/93  Sync with beta 0.12 release
  20.  
  21.  jrt       12/07/92  Sync with beta 0.11 release
  22.  
  23.  mep       11/30/92  Updated code for beta 0.11
  24.  
  25.  jrt       11/21/92  Sync with beta 0.08
  26.  
  27.  jrt       11/18/92  First logged revision.
  28.  
  29.  ════════════════════════════════════════════════════════════════════════════
  30. }
  31.  
  32. {$D+}
  33.  
  34. Unit VHelp;
  35.  
  36. {-------------------------------------------------------------------------}
  37. {                                                                         }
  38. { PURPOSE: extended help routine that reads data from an external Ascii   }
  39. { help file.  Includes windowing, buttons, dialogs, etc.  All indexed in  }
  40. { the external  help file                                                 }
  41. { ORIGINAL SOURCE: Steve Lewis                                            }
  42. {                                                                         }
  43. {-------------------------------------------------------------------------}
  44.  
  45.  
  46. Uses
  47.  
  48.   VTypes,
  49.   VGen,
  50.   VCRT,
  51.   DOS,
  52.   VDOSHigh,
  53.   VWinHigh,
  54.   VWinLow;
  55.  
  56. {────────────────────────────────────────────────────────────────────────────}
  57.  
  58. Const
  59.  
  60.   erVHelp_None         = 0;
  61.   erVHelp_NoHelpBegin  = 1;
  62.   erVHelp_NoHelpPage   = 2;
  63.   erVHelp_NoTextBegin  = 3;
  64.   erVHelp_NoTextEnd    = 4;
  65.   erVHelp_NoPageEnd    = 5;
  66.   erVHelp_FileNotFound = 6;
  67.  
  68. Var
  69.  
  70.   VHelpPage  : ST80;
  71.   VHelpFile  : ST80;
  72.   VHelpError : BYTE;
  73.  
  74. Procedure VHelpGo;
  75.  
  76. {────────────────────────────────────────────────────────────────────────────}
  77.  
  78.