Rev 7 | Rev 21 | 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_SAVED = 'History successfully saved!'; |
||
50 | LNG_STONES_REMOVED = '%d of %d stones removed'; |
||
51 | LNG_POINTS = 'Score: %d'; |
||
52 | LNG_TIME = 'Time: %s'; |
||
53 | LNG_LVL_INVALID_NO_JUMP = 'Warning! The level is not playable. There are no jumps possible.'; |
||
54 | LNG_JUMP_LOG = '%d [%d, %d] -> %d [%d, %d];'; |
||
55 | LNG_COULD_NOT_CREATE_DIR = 'Warning: Could not create directory "%s".'; |
||
56 | LNG_SCORE = 'Score: %d'; |
||
57 | LNG_REMAINING = 'Remaining stones: %d (%f%%)'; |
||
58 | LNG_TIME_SECONDS = 'Time: %d seconds'; |
||
59 | LNG_POINTS_PER_MINUTE = '%d points per minute'; |
||
60 | LNG_ENTER_NAME = 'Please enter your name to get added to the high score lists.'; |
||
8 | daniel-mar | 61 | LNG_GOAL_RED = 'Red stone in target field (%d points)'; |
62 | LNG_GOAL_YELLOW = 'Yellow stone in target field (%d points)'; |
||
63 | LNG_GOAL_GREEN = 'Green stone in target field (%d points)'; |
||
64 | LNG_GOAL_MISSED = 'No stone in target field (%d points)'; |
||
1 | daniel-mar | 65 | |
66 | implementation |
||
67 | |||
68 | end. |