home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / tptools.zip / MSINST.ZIP / MSIVARS.INC < prev   
Text File  |  1987-12-21  |  4KB  |  110 lines
  1. {                          MSIVARS.INC
  2.                            MSINST 4.0
  3.              Copyright (c) 1985, 87 by Borland International, Inc.            }
  4.  
  5. const
  6.   version = '4.00A';         {installation program version number}
  7.   ProgName = 'MS.EXE';       {name of editor}
  8.   TxtFile = 'MS.TXT';        {name of text help file to read}
  9.   HelpFile = 'MS.HLP';       {name of indexed help file to write}
  10.   NameLength = 26;           {Maximum length title for command}
  11.   CmdListBytes = 1024;       {Maximum Number of bytes of installable commands}
  12.   HelpWidth = 60;            {Max line length of help screen}
  13.   HelpHeight = 15;           {Number of rows of help screen}
  14.  
  15. type
  16.   String255 = string[255];
  17.   Filepath = string[64];
  18.   CommandName = string[NameLength];
  19.   CommandString = string[4];
  20.   PackedCommandList = array[0..CmdListBytes] of Char;
  21.  
  22.   commandrec =
  23.   record
  24.     name : CommandName;
  25.     main : keyrec;
  26.     alt : keyrec;
  27.   end;
  28.  
  29.   commandlist = array[CommandType] of commandrec;
  30.  
  31.   {Color type for installation}
  32.   ColorType = (              {Screen colors}
  33.                TxtColor,     {Text color}
  34.                BlockColor,   {Block color}
  35.                BordColor,    {Window status lines}
  36.                CmdColor,     {Command line color}
  37.                CursorColor,  {Color for solid block cursor, if activated}
  38.                MnColor,      {Normal menu color}
  39.                MfColor,      {Menu frame color}
  40.                MsColor,      {Selected menu item color}
  41.                MhColor,      {Highlighted selection character in menu}
  42.                BoldColor,    {Color for bold attribute}
  43.                DblColor,     {Color for doublestrike attribute}
  44.                UndColor,     {Color for underscore attribute}
  45.                SupColor,     {Color for superscript attribute}
  46.                SubColor,     {Color for subscript attribute}
  47.                Alt1Color,    {Color for alternate 1 attribute - Compressed}
  48.                Alt2Color     {Color for alternate 2 attribute - Italic}
  49.                );
  50.  
  51.   {Stores screen attributes}
  52.   AttributeArray = array[ColorType] of Byte;
  53.  
  54.   MInstallRec =              {Must match order of installation area in MSVARS.PAS}
  55.   record
  56.     SaveUndoLimit : Integer;
  57.     DefExtension : string[3];
  58.     SaveTabSize : Integer;
  59.     ReadExpandTabs : Boolean;
  60.     WriteCompressTabs : Boolean;
  61.     SaveDeviceName : Filepath;
  62.     SaveOutputName : Filepath;
  63.     SavePrinterPort : Byte;
  64.     SaveToFile : Boolean;
  65.     SaveFormatState : Boolean;
  66.     SaveStripMode : Boolean;
  67.     SaveSupportPath : Filepath;
  68.     SaveKeyHelpMode : Boolean;
  69.     SaveInitZoomState : Boolean;
  70.     SaveInsertMode : Boolean;
  71.     SaveIndentMode : Boolean;
  72.     SaveWWmode : Boolean;
  73.     SaveJustMode : Boolean;
  74.     SavePageMode : Boolean;
  75.     SaveAttrMode : Boolean;
  76.     SaveFTmode : Boolean;
  77.     SaveTabMode : Boolean;
  78.     SaveLeftMargin : Integer;
  79.     SaveRightMargin : Integer;
  80.     SaveTopMargin : Integer;
  81.     SaveBottomMargin : Integer;
  82.     SavePageLen : Integer;
  83.     SaveCompressWrap : Boolean;
  84.   end;
  85.  
  86.   SInstallRec =              {Must match order of installation area in SCRN.PAS}
  87.   record
  88.     MonoAttr : AttributeArray;
  89.     ColorAttr : AttributeArray;
  90.     GoodColorCard : Boolean;
  91.     SolidCursor : Boolean;
  92.     Ega43LineMode : Boolean;
  93.   end;
  94.  
  95. const
  96.  
  97.   {Marks start of INSTALLATION AREA}
  98.   MIDstring : string[22] = 'MAIN INSTALLATION AREA';
  99.  
  100.   {Marks start of KEYBOARD INSTALLATION AREA}
  101.   KIDstring : string[26] = 'KEYBOARD INSTALLATION AREA';
  102.  
  103.   {Marks start of SCREEN INSTALLATION AREA}
  104.   SIDstring : string[24] = 'SCREEN INSTALLATION AREA';
  105. var
  106.   Commands, OrigCommands : commandlist;
  107.   MainDefaults : MInstallRec;
  108.   ScreenDefaults : SInstallRec;
  109.   WP : WindowPtr;
  110.