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