home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / PASCAL / OOGRID / GLEQUATE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-06-01  |  5.1 KB  |  158 lines
  1. {*****************************************************************************
  2.  
  3.   OOGrid Library(TM) for Borland/Turbo Pascal (Real Mode/TV)
  4.   Copyright (C) 1994, 1995 by Arturo J. Monge
  5.   Portions Copyright (C) 1989,1990 Borland International, Inc.
  6.  
  7.   OOGrid Library(TM) Equates Unit:
  8.     This unit defines command and help context constants that are used
  9.     by the TSpreadsheet object and its resources.
  10.  
  11.   Copyright (C) 1994, 1995 by Arturo J. Monge
  12.  
  13.   Last Modification : February 4th, 1995
  14.  
  15. {****************************************************************************}
  16.  
  17. {$O+,F+}
  18.  
  19. unit GLEquate;
  20.  
  21. {****************************************************************************}
  22.                                  interface
  23. {****************************************************************************}
  24.  
  25. const
  26.  
  27.   InitStandardContextNumber = 3;
  28.   { Value of the first number for standard help contexts }
  29.  
  30.   InitHelpContextNumber = 100;
  31.   { Value of the first item in the help context constants list }
  32.  
  33.   InitCommandNumber = 200;
  34.   { Value of the first item in the command constants list }
  35.  
  36.   InitHistoryId = 100;
  37.   { Value of the first item if the history id's list }
  38.  
  39.   InitObjectTypeId = 20000;
  40.   { Value of the first item in the list of type id's of the objects that
  41.     will be registered for stream access }
  42.  
  43. const
  44.  
  45. { Standard help contexts }
  46.  
  47.   hcYes    = 7;
  48.   hcNo     = 5;
  49.   hcOk     = 6;
  50.   hcCancel = 4;
  51.  
  52. { Help Contexts }
  53.  
  54.   hcBottomMargin       = InitHelpContextNumber;
  55.   hcChangeHeaderInput  = hcBottomMargin + 1;
  56.   hcCondensedCols      = hcChangeHeaderInput + 1;
  57.   hcCurrencyChar       = hcCondensedCols + 1;
  58.   hcDecimalPlaces      = hcCurrencyChar + 1;
  59.   hcFirstKey           = hcDecimalPlaces + 1;
  60.   hcGetWidthInput      = hcFirstKey + 1;
  61.   hcGoToCellInput      = hcGetWidthInput + 1;
  62.   hcInputLine          = hcGoToCellInput + 1;
  63.   hcLeftMargin         = hcInputLine + 1;
  64.   hcNormalCols         = hcLeftMargin + 1;
  65.   hcPageRows           = hcNormalCols + 1;
  66.   hcPleaseWait         = hcPageRows + 1;
  67.   hcRightMargin        = hcPleaseWait +1;
  68.   hcSecondKey          = hcRightMargin + 1;
  69.   hcThirdKey           = hcSecondKey + 1;
  70.   hcTopMargin          = hcThirdKey + 1;
  71.  
  72.   hcCopyColLiteral     = hcTopMargin + 1;
  73.   hcCopyRowLiteral     = hcCopyColLiteral + 1;
  74.  
  75.   hcCurrencyFormat     = hcCopyRowLiteral + 1;
  76.   hcPutCommasInNumbers = hcCurrencyFormat + 1;
  77.  
  78.   hcJustLeft           = hcPutCommasInNumbers + 1;
  79.   hcJustCenter         = hcJustLeft + 1;
  80.   hcJustRight          = hcJustCenter + 1;
  81.  
  82.   hcPrintToPrinter     = hcJustRight + 1;
  83.   hcPrintToFile        = hcPrintToPrinter + 1;
  84.  
  85.   hcPrintNormal        = hcPrintToFile + 1;
  86.   hcPrintCondensed     = hcPrintNormal + 1;
  87.  
  88.   hcPrintRowsNo        = hcPrintCondensed + 1;
  89.   hcPrintRowsLeft      = hcPrintRowsNo + 1;
  90.   hcPrintRowsAlways    = hcPrintRowsLeft + 1;
  91.  
  92.   hcPrintColsNo        = hcPrintRowsAlways + 1;
  93.   hcPrintColsTop       = hcPrintColsNo + 1;
  94.   hcPrintColsAlways    = hcPrintColsTop + 1;
  95.  
  96.   hcLineOutline        = hcPrintColsAlways + 1;
  97.   hcBoldBorders        = hcLineOutline + 1;
  98.  
  99.   hcAscending          = hcBoldBorders + 1;
  100.   hcDescending         = hcAscending + 1;
  101.  
  102. const
  103.  
  104. { Commands }
  105.  
  106.   cmChangeColHeaders     = InitCommandNumber;
  107.   cmChangeColWidth       = cmChangeColHeaders + 1;
  108.   cmDeleteColHeaders     = cmChangeColWidth + 1;
  109.   cmDeleteColumns        = cmDeleteColHeaders + 1;
  110.   cmDeleteRows           = cmDeleteColumns + 1;
  111.   cmEditCell             = cmDeleteRows + 1;
  112.   cmFormatCells          = cmEditCell + 1;
  113.   cmFormatDefault        = cmFormatCells + 1;
  114.   cmGoToCell             = cmFormatDefault + 1;
  115.   cmInsertColumns        = cmGoToCell + 1;
  116.   cmInsertRows           = cmInsertColumns + 1;
  117.   cmNewSheet             = cmInsertRows + 1;
  118.   cmPrintSheet           = cmNewSheet + 1;
  119.   cmRecalc               = cmPrintSheet + 1;
  120.   cmToggleAutoCalc       = cmRecalc + 1;
  121.   cmToggleFormulas       = cmToggleAutoCalc + 1;
  122.   cmToggleHeaders        = cmToggleFormulas + 1;
  123.   cmToggleProtection     = cmToggleHeaders + 1;
  124.   cmSetLocked            = cmToggleProtection + 1;
  125.   cmSetUnlocked          = cmSetLocked + 1;
  126.   cmSortData             = cmSetUnlocked + 1;
  127.  
  128. const
  129.  
  130. { History id's }
  131.  
  132.   hiCurrencyCharacter = InitHistoryId;
  133.   hiDecimalPlaces     = hiCurrencyCharacter + 1;
  134.   hiGoToCell          = hiDecimalPlaces + 1;
  135.   hiNewHeader         = hiGoToCell + 1;
  136.   hiNewWidth          = hiNewHeader + 1;
  137.   hiSortFirstKey      = hiNewWidth + 1;
  138.   hiSortSecondKey     = hiSortFirstKey + 1;
  139.   hiSortThirdKey      = hiSortSecondKey + 1;
  140.  
  141. const
  142.  
  143. { Stream registration Object ID's }
  144.  
  145.   stRValueCell      = InitObjectTypeID;
  146.   stRTextCell       = stRValueCell + 1;
  147.   stRFormulaCell    = stRTextCell + 1;
  148.   stRRepeatCell     = stRFormulaCell + 1;
  149.   stRBlock          = stRRepeatCell + 1;
  150.   stRLimScrollBar   = stRBlock + 1;
  151.   stRSheetInputLine = stRLimScrollBar + 1;
  152.   stRSpreadSheet    = stRSheetInputLine + 1;
  153.  
  154. {****************************************************************************}
  155.                                implementation
  156. {****************************************************************************}
  157.  
  158. end. {...TSEquate unit }