Rev 21 | 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 | |||
25 | daniel-mar | 19 | // Field type worth |
20 | WORTH_RED = 30; |
||
21 | WORTH_YELLOW = 20; |
||
22 | WORTH_GREEN = 10; |
||
23 | |||
1 | daniel-mar | 24 | // Resourcennamen |
25 | RES_JUMP = 'Jump'; |
||
7 | daniel-mar | 26 | RES_UNDO = 'Undo'; |
8 | daniel-mar | 27 | RES_WIN1 = 'Win1'; |
28 | RES_WIN2 = 'Win2'; |
||
4 | daniel-mar | 29 | RES_LOSE = 'Lose'; |
1 | daniel-mar | 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. |