home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / tptools.zip / EDINST.ZIP / EDIVARS.INC < prev   
Text File  |  1987-12-21  |  3KB  |  81 lines
  1. {                          EDIVARS.INC
  2.                            EDINST 4.0
  3.              Copyright (c) 1985, 87 by Borland International, Inc.            }
  4.  
  5. const
  6.   Version = '4.00A';         {installation program version number}
  7.   ProgName = 'ED.EXE';       {name of editor}
  8.   NameLength = 26;           {Maximum length title for command}
  9.   CmdListBytes = 512;        {Maximum Number of bytes of installable commands}
  10.  
  11. type
  12.   String255 = string[255];
  13.   FilePath = string[64];
  14.   CommandName = string[NameLength];
  15.   CommandString = string[4];
  16.   PackedCommandList = array[0..CmdListBytes] of Char;
  17.  
  18.   CommandRec =
  19.   record
  20.     Name : CommandName;
  21.     Main : KeyRec;
  22.     Alt : KeyRec;
  23.   end;
  24.  
  25.   CommandList = array[CommandType] of CommandRec;
  26.  
  27.   {Color type for installation}
  28.   ColorType = (              {Screen colors}
  29.                TxtColor,     {Text color}
  30.                BlockColor,   {Block color}
  31.                BordColor,    {Window status lines}
  32.                CmdColor,     {Command line color}
  33.                CursorColor,  {Color for solid block cursor, if activated}
  34.                MnColor,      {Normal menu color}
  35.                MfColor,      {Menu frame color}
  36.                MsColor,      {Selected menu item color}
  37.                MhColor,      {Highlighted selection character in menu}
  38.                BoldColor,    {Color for bold attribute}
  39.                DblColor,     {Color for doublestrike attribute}
  40.                UndColor,     {Color for underscore attribute}
  41.                SupColor,     {Color for superscript attribute}
  42.                SubColor,     {Color for subscript attribute}
  43.                Alt1Color,    {Color for alternate 1 attribute - Compressed}
  44.                Alt2Color     {Color for alternate 2 attribute - Italic}
  45.                );
  46.  
  47.   {Stores screen attributes}
  48.   AttributeArray = array[ColorType] of Byte;
  49.  
  50.   MInstallRec =              {Must match order of installation area in EDVARS.PAS}
  51.   record
  52.     SaveUndoLimit : Integer;
  53.     DefExtension : string[3];
  54.     SaveInsertMode : Boolean;
  55.     SaveIndentMode : Boolean;
  56.   end;
  57.  
  58.   SInstallRec =              {Must match order of installation area in SCRN.PAS}
  59.   record
  60.     MonoAttr : AttributeArray;
  61.     ColorAttr : AttributeArray;
  62.     GoodColorCard : Boolean;
  63.   end;
  64.  
  65. const
  66.  
  67.   {Marks start of INSTALLATION AREA}
  68.   MIDstring : string[22] = 'MAIN INSTALLATION AREA';
  69.  
  70.   {Marks start of KEYBOARD INSTALLATION AREA}
  71.   KIDstring : string[26] = 'KEYBOARD INSTALLATION AREA';
  72.  
  73.   {Marks start of SCREEN INSTALLATION AREA}
  74.   SIDstring : string[24] = 'SCREEN INSTALLATION AREA';
  75.  
  76. var
  77.   Commands, OrigCommands : CommandList;
  78.   MainDefaults : MInstallRec;
  79.   ScreenDefaults : SInstallRec;
  80.   WP : WindowPtr;
  81.