home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / OPBONUS.ZIP / FBROWSE.LZH / FBROWSE.ICD < prev    next >
Encoding:
Text File  |  1990-09-20  |  4.6 KB  |  122 lines
  1. {*********************************************************}
  2. {*                   FBROWSE.ICD 5.06                    *}
  3. {*       Copyright (c) TurboPower Software 1990.         *}
  4. {*                 All rights reserved.                  *}
  5. {*********************************************************}
  6.  
  7. {.F-}
  8. const
  9.   ucFBrowser         = 99;
  10.   otFBrowser         = 999;
  11.   veFBrowser         = 0;
  12.   otVBrowser         = 998;
  13.   veVBrowser         = 0;
  14.   ptFBrowserCommands = 999;
  15.   ptNullFilterFunc   = 998;
  16.   ptNullRefreshFunc  = 997;
  17.  
  18.   {special command codes}
  19.   ccFirstRec  = ccTopOfFile; {Cursor to first record}
  20.   ccLastRec   = ccEndOfFile; {Cursor to last record}
  21.   ccPlus      = ccToggle;    {Reread current record}
  22.   ccTask0     = 180;         {user-defined task commands}
  23.   ccTask1     = 181;
  24.   ccTask2     = 182;
  25.   ccTask3     = 183;
  26.   ccTask4     = 184;
  27.   ccTask5     = 185;
  28.   ccTask6     = 186;
  29.   ccTask7     = 187;
  30.   ccTask8     = 188;
  31.   ccTask9     = 189;
  32.   ccTask10    = 190;
  33.   ccTask11    = 191;
  34.   ccTask12    = 192;
  35.   ccTask13    = 193;
  36.   ccTask14    = 194;
  37.   ccTask15    = 195;
  38.   ccTask16    = 196;
  39.   ccTask17    = 197;
  40.   ccTask18    = 198;
  41.   ccTask19    = 199;
  42.  
  43.   {Keystroke to command mapping}
  44.   FBrowserKeyMax = 200;   {last available slot in FBrowserKeySet}
  45.   {ID string for installation programs}
  46.   FBrowserKeyID : string[13] = 'fbrowser keys';
  47.   {default key assignments}
  48.   FBrowserKeySet : array[0..FBrowserKeyMax] of Byte = (
  49.    {length keys         command type      key sequence}
  50.     3,     $00, $00,    ccQuit,          {^Break}
  51.     3,     $00, $3B,    ccHelp,          {F1}
  52.     3,     $00, $47,    ccHome,          {Home}
  53.     3,     $00, $48,    ccUp,            {Up}
  54.     3,     $00, $49,    ccPageUp,        {PgUp}
  55.     3,     $00, $4B,    ccLeft,          {Left}
  56.     3,     $00, $4D,    ccRight,         {Right}
  57.     3,     $00, $4F,    ccEnd,           {End}
  58.     3,     $00, $50,    ccDown,          {Down}
  59.     3,     $00, $51,    ccPageDn,        {PgDn}
  60.     3,     $00, $76,    ccLastRec,       {^PgDn}
  61.     3,     $00, $84,    ccFirstRec,      {^PgUp}
  62.     2,     $03,         ccPageDn,        {^C}
  63.     2,     $04,         ccRight,         {^D}
  64.     2,     $05,         ccUp,            {^E}
  65.     2,     $0D,         ccSelect,        {^M, Enter}
  66.     2,     $12,         ccPageUp,        {^R}
  67.     2,     $13,         ccLeft,          {^S}
  68.     2,     $17,         ccUp,            {^W}
  69.     2,     $18,         ccDown,          {^X}
  70.     2,     $1A,         ccDown,          {^Z}
  71.     2,     $1B,         ccQuit,          {Esc}
  72.     2,     $2B,         ccPlus,          {+}
  73.     3,     $11, $03,    ccLastRec,       {^Q^C}
  74.     3,     $11, $04,    ccEnd,           {^Q^D}
  75.     3,     $11, $12,    ccFirstRec,      {^Q^R}
  76.     3,     $11, $13,    ccHome,          {^Q^S}
  77.   {$IFDEF UseMouse}
  78.     3,     $00, $EF,    ccMouseSel,      {click left  = mouse select}
  79.     3,     $00, $EE,    ccQuit,          {click right = ESC}
  80.     3,     $00, $ED,    ccHelp,          {click both  = help}
  81.   {$ELSE}
  82.                       0, 0, 0, 0,        {100}
  83.     0, 0, 0, 0, 0, 0, 0, 0,              {110}
  84.   {$ENDIF}
  85.     {-----------pad to end of array----------}
  86.                             0, 0,        {110}
  87.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0,        {120}
  88.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0,        {130}
  89.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0,        {140}
  90.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0,        {150}
  91.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0,        {160}
  92.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0,        {170}
  93.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0,        {180}
  94.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0,        {190}
  95.     0, 0, 0, 0, 0, 0, 0, 0, 0, 0);       {200}
  96.  
  97. const
  98.   FBrowserCfgEnd : Byte = 0;
  99. {.F+}
  100.  
  101.   {error codes}
  102. const
  103.   ecWinTooSmall     = 06000; {init error--window/max rows too small}
  104.   ecNoIndex         = 06001; {init error--Fileblock is not indexed}
  105.   ecIsamError       = 06002; {fatal Isam error--IsamError has actual code}
  106.   ecNoKeysFound     = 06003; {no keys found in requested range}
  107.   ecRecordGone      = 06004; {tried to select record that no longer exists}
  108.   ecRecordLocked    = 06005; {tried to select record and lock error occurred}
  109.   ecFileBlockLocked = 06006; {non-fatal error due to locked fileblock}
  110.  
  111.   {error messages}
  112. const
  113.   emIsamError       : string[40] = 'Fatal error accessing data or index file';
  114. const
  115.   emNoKeysFound     : string[35] = 'No records found in requested range';
  116. const
  117.   emRecordGone      : string[32] = 'Selected record no longer exists';
  118. const
  119.   emRecordLocked    : string[40] = 'Lock error while reading selected record';
  120. const
  121.   emFileBlockLocked : string[14] = 'File is locked';
  122.