Rev 8 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1 | daniel-mar | 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'; |
||
| 7 | daniel-mar | 21 | RES_UNDO = 'Undo'; |
| 8 | daniel-mar | 22 | RES_WIN1 = 'Win1'; |
| 23 | RES_WIN2 = 'Win2'; |
||
| 4 | daniel-mar | 24 | RES_LOSE = 'Lose'; |
| 1 | daniel-mar | 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. |