Subversion Repositories jumper

Rev

Rev 8 | Go to most recent revision | 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.   // Resourcennamen
  20.   RES_JUMP = 'Jump';
  21.   RES_UNDO = 'Undo';
  22.   RES_WIN1 = 'Win1';
  23.   RES_WIN2 = 'Win2';
  24.   RES_LOSE = 'Lose';
  25.   RES_EMPTY = 'EmptyField';
  26.   RES_GREEN = 'GreenStone';
  27.   RES_YELLOW = 'YellowStone';
  28.   RES_RED = 'RedStone';
  29.  
  30.   // Registry
  31.   REG_KEY = 'Software\ViaThinkSoft\PegSolitaire\';
  32.   REG_SOUND = 'Sound';
  33.   REG_PLAYERNAME = 'LastPlayerName';
  34.   REG_REPLAY = 'Replay';
  35.  
  36.   // Levels
  37.   LVL_EXT = '.brd';
  38.   LVL_PATH = 'Boards' + PathDelim;
  39.   LVL_FILE = LVL_PATH + '%s' + LVL_EXT;
  40.  
  41.   // Journal
  42.   JNL_EXT = '.jnl';
  43.   JNL_PATH = 'Journal' + PathDelim;
  44.   JNL_FILE = JNL_PATH + '%s' + JNL_EXT;
  45.   JNL_SEP = '|';
  46.   JNL_ENTRY = '%s' + JNL_SEP + '%s' + JNL_SEP + '%d' + JNL_SEP + '%d' + JNL_SEP + '%d' + JNL_SEP + '%d';
  47.  
  48. resourcestring
  49.   LNG_POINTS = 'Score: %d';
  50.   LNG_TIME = 'Time: %s';
  51.   LNG_COULD_NOT_CREATE_DIR = 'Warning: Could not create directory "%s".';
  52.  
  53. implementation
  54.  
  55. end.
  56.