Subversion Repositories jumper

Rev

Rev 21 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. unit Constants;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. const
  9.   // Metrik
  10.   MET_FIELD_SPACE = 3;
  11.   MET_FIELD_SIZE = 37;
  12.   MET_HALFTAB_SIZE = (MET_FIELD_SIZE+MET_FIELD_SPACE) div 2; // 20
  13.   MET_PREVIEW_SIZE_RATIO = 0.30;
  14.   MET_PERCENT_PNL_TIME = 0.28;
  15.   MET_PERCENT_PNL_STONES = 0.47;
  16.   MET_OUTER_MARGIN = 8;
  17.   MET_SHAPE_MARGIN = 3;
  18.  
  19.   // Field type worth
  20.   WORTH_RED    = 30;
  21.   WORTH_YELLOW = 20;
  22.   WORTH_GREEN  = 10;
  23.  
  24.   // Resourcennamen
  25.   RES_JUMP = 'Jump';
  26.   RES_UNDO = 'Undo';
  27.   RES_WIN1 = 'Win1';
  28.   RES_WIN2 = 'Win2';
  29.   RES_LOSE = 'Lose';
  30.   RES_EMPTY = 'EmptyField';
  31.   RES_GREEN = 'GreenStone';
  32.   RES_YELLOW = 'YellowStone';
  33.   RES_RED = 'RedStone';
  34.  
  35.   // Registry
  36.   REG_KEY = 'Software\ViaThinkSoft\PegSolitaire\';
  37.   REG_SOUND = 'Sound';
  38.   REG_PLAYERNAME = 'LastPlayerName';
  39.   REG_REPLAY = 'Replay';
  40.  
  41.   // Levels
  42.   LVL_EXT = '.brd';
  43.   LVL_PATH = 'Boards' + PathDelim;
  44.   LVL_FILE = LVL_PATH + '%s' + LVL_EXT;
  45.  
  46.   // Journal
  47.   JNL_EXT = '.jnl';
  48.   JNL_PATH = 'Journal' + PathDelim;
  49.   JNL_FILE = JNL_PATH + '%s' + JNL_EXT;
  50.   JNL_SEP = '|';
  51.   JNL_ENTRY = '%s' + JNL_SEP + '%s' + JNL_SEP + '%d' + JNL_SEP + '%d' + JNL_SEP + '%d' + JNL_SEP + '%d';
  52.  
  53. resourcestring
  54.   LNG_POINTS = 'Score: %d';
  55.   LNG_TIME = 'Time: %s';
  56.   LNG_COULD_NOT_CREATE_DIR = 'Warning: Could not create directory "%s".';
  57.  
  58. implementation
  59.  
  60. end.
  61.