Rev 18 | 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 | object MainForm: TMainForm |
2 | Left = 242 |
||
3 | Top = 142 |
||
4 | BorderIcons = [biSystemMenu, biMinimize] |
||
5 | BorderStyle = bsSingle |
||
6 | Caption = 'ViaThinkSoft Peg Solitaire' |
||
7 | ClientHeight = 277 |
||
8 | ClientWidth = 340 |
||
9 | Color = clBtnFace |
||
10 | Constraints.MinHeight = 320 |
||
11 | Constraints.MinWidth = 300 |
||
12 | Font.Charset = DEFAULT_CHARSET |
||
13 | Font.Color = clWindowText |
||
14 | Font.Height = -11 |
||
15 | Font.Name = 'Tahoma' |
||
16 | Font.Style = [] |
||
17 | Menu = MainMenu |
||
18 | OldCreateOrder = False |
||
18 | daniel-mar | 19 | Position = poScreenCenter |
1 | daniel-mar | 20 | OnClose = FormClose |
14 | daniel-mar | 21 | OnCloseQuery = FormCloseQuery |
1 | daniel-mar | 22 | OnCreate = FormCreate |
23 | OnDestroy = FormDestroy |
||
24 | OnShow = FormShow |
||
25 | PixelsPerInch = 96 |
||
26 | TextHeight = 13 |
||
27 | object Playground: TPanel |
||
19 | daniel-mar | 28 | Left = 0 |
29 | Top = 0 |
||
1 | daniel-mar | 30 | Width = 313 |
31 | Height = 289 |
||
32 | BevelOuter = bvNone |
||
33 | TabOrder = 0 |
||
34 | end |
||
35 | object Statistics: TStatusBar |
||
36 | Left = 0 |
||
37 | Top = 258 |
||
38 | Width = 340 |
||
39 | Height = 19 |
||
40 | Panels = < |
||
41 | item |
||
42 | Width = 85 |
||
43 | end |
||
44 | item |
||
45 | Alignment = taCenter |
||
46 | Width = 140 |
||
47 | end |
||
48 | item |
||
49 | Alignment = taRightJustify |
||
50 | Width = 50 |
||
51 | end> |
||
52 | end |
||
53 | object MainMenu: TMainMenu |
||
54 | Left = 8 |
||
55 | Top = 8 |
||
56 | object Help1: TMenuItem |
||
57 | Caption = 'Game' |
||
58 | object MNewGame: TMenuItem |
||
59 | Caption = 'New game...' |
||
60 | ShortCut = 16462 |
||
61 | OnClick = MNewGameClick |
||
62 | end |
||
63 | object N1: TMenuItem |
||
64 | Caption = '-' |
||
65 | end |
||
66 | object MRestartGame: TMenuItem |
||
67 | Caption = 'Restart level' |
||
68 | ShortCut = 16466 |
||
69 | OnClick = MRestartGameClick |
||
70 | end |
||
71 | object MPauseTime: TMenuItem |
||
72 | Caption = 'Pause timer' |
||
73 | ShortCut = 16464 |
||
74 | OnClick = MPauseTimeClick |
||
75 | end |
||
76 | object N2: TMenuItem |
||
77 | Caption = '-' |
||
78 | end |
||
79 | object MUndo: TMenuItem |
||
80 | Caption = 'Undo' |
||
81 | Enabled = False |
||
82 | ShortCut = 16474 |
||
6 | daniel-mar | 83 | OnClick = MUndoClick |
1 | daniel-mar | 84 | end |
85 | object N3: TMenuItem |
||
86 | Caption = '-' |
||
87 | end |
||
88 | object MJumpHistory: TMenuItem |
||
89 | Caption = 'View jump history...' |
||
90 | ShortCut = 16458 |
||
91 | OnClick = MJumpHistoryClick |
||
92 | end |
||
93 | object MHighScores: TMenuItem |
||
94 | Caption = 'High scores of this level...' |
||
95 | ShortCut = 16456 |
||
96 | OnClick = MHighScoresClick |
||
97 | end |
||
98 | object N4: TMenuItem |
||
99 | Caption = '-' |
||
100 | end |
||
101 | object MExit: TMenuItem |
||
102 | Caption = 'Exit' |
||
103 | ShortCut = 32883 |
||
104 | OnClick = MExitClick |
||
105 | end |
||
106 | end |
||
107 | object MSettings: TMenuItem |
||
108 | Caption = 'Settings' |
||
109 | object MEnableSound: TMenuItem |
||
110 | Caption = 'Enable sound' |
||
111 | Checked = True |
||
112 | ShortCut = 32851 |
||
113 | OnClick = MEnableSoundClick |
||
114 | end |
||
115 | end |
||
116 | object Help2: TMenuItem |
||
117 | Caption = 'Help' |
||
118 | object MHelp: TMenuItem |
||
119 | Caption = 'Help...' |
||
120 | ShortCut = 112 |
||
121 | OnClick = MHelpClick |
||
122 | end |
||
14 | daniel-mar | 123 | object Aboutthislevel1: TMenuItem |
124 | Caption = 'About this level' |
||
125 | OnClick = Aboutthislevel1Click |
||
126 | end |
||
1 | daniel-mar | 127 | object N5: TMenuItem |
128 | Caption = '-' |
||
129 | end |
||
130 | object MAbout: TMenuItem |
||
131 | Caption = 'About...' |
||
132 | OnClick = MAboutClick |
||
133 | end |
||
134 | end |
||
135 | end |
||
136 | object Timer: TTimer |
||
137 | Enabled = False |
||
138 | OnTimer = TimerTimer |
||
139 | Left = 40 |
||
140 | Top = 8 |
||
141 | end |
||
142 | end |