-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathUMain.dfm
151 lines (151 loc) · 3.3 KB
/
UMain.dfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
object Form1: TForm1
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Minesweeper'
ClientHeight = 463
ClientWidth = 632
Color = clBtnFace
Constraints.MinHeight = 160
Constraints.MinWidth = 210
DoubleBuffered = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Menu = MainMenu1
Position = poScreenCenter
OnCreate = FormCreate
OnResize = FormResize
TextHeight = 15
object Panel1: TPanel
Left = 0
Top = 0
Width = 632
Height = 65
Align = alTop
Caption = 'Panel1'
Color = 11783167
ParentBackground = False
ShowCaption = False
TabOrder = 0
DesignSize = (
632
65)
object lblTime: TLabel
Left = 8
Top = 21
Width = 105
Height = 21
Caption = '00:00:00'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = 4227072
Font.Height = -16
Font.Name = 'Yu Gothic'
Font.Style = [fsBold]
ParentFont = False
end
object lblMines: TLabel
Left = 552
Top = 21
Width = 67
Height = 21
Anchors = [akTop, akRight]
BiDiMode = bdRightToLeft
Caption = '999'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = 4194432
Font.Height = -16
Font.Name = 'Yu Gothic'
Font.Style = [fsBold]
ParentBiDiMode = False
ParentFont = False
end
inline DogFrame1: TDogFrame
Left = 256
Top = 16
Width = 44
Height = 44
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 0
ExplicitLeft = 256
ExplicitTop = 16
end
end
inline BoardFrame1: TBoardFrame
Left = 0
Top = 65
Width = 632
Height = 398
Align = alClient
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 1
ExplicitTop = 65
ExplicitWidth = 632
ExplicitHeight = 398
inherited PaintBox1: TPaintBox
Width = 632
Height = 398
end
end
object MainMenu1: TMainMenu
OwnerDraw = True
Left = 120
Top = 65528
object Game1: TMenuItem
Caption = 'Game'
object NewGame1: TMenuItem
Caption = '&New Game'
OnClick = NewGame1Click
end
object HighScores1: TMenuItem
Caption = 'High Scores'
OnClick = HighScores1Click
end
object HelpAremyflagsgood1: TMenuItem
Caption = 'Help: Are my flags good?'
OnClick = HelpAremyflagsgood1Click
end
object NewGame2: TMenuItem
Caption = '&Exit'
OnClick = NewGame2Click
end
end
object Board1: TMenuItem
Caption = 'Board'
object Small1: TMenuItem
Caption = 'Small'
GroupIndex = 1
RadioItem = True
OnClick = Small1Click
end
object Medium1: TMenuItem
Caption = 'Medium'
GroupIndex = 1
RadioItem = True
OnClick = Medium1Click
end
object Medium2: TMenuItem
Caption = 'Large'
GroupIndex = 1
RadioItem = True
OnClick = Medium2Click
end
object Custom1: TMenuItem
Caption = 'Custom...'
GroupIndex = 1
OnClick = Custom1Click
end
end
end
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
Left = 488
Top = 8
end
end