forked from nenslen/othello
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathMainForm.dfm
152 lines (152 loc) · 3.08 KB
/
MainForm.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
152
object frmMain: TfrmMain
Left = 0
Top = 0
Caption = 'Othello - Nic Enslen'
ClientHeight = 496
ClientWidth = 714
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Menu = menuMain
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object shCurrentPlayer: TShape
Left = 494
Top = 8
Width = 65
Height = 65
Shape = stCircle
end
object lblCurrentPlayer: TLabel
Left = 565
Top = 32
Width = 135
Height = 25
Caption = 'Current Player'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object shP1Points: TShape
Left = 494
Top = 112
Width = 27
Height = 25
Shape = stCircle
end
object lblP1Points: TLabel
Left = 527
Top = 112
Width = 11
Height = 25
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object shP2Points: TShape
Left = 590
Top = 112
Width = 27
Height = 25
Brush.Color = clBlack
Shape = stCircle
end
object lblP2Points: TLabel
Left = 623
Top = 112
Width = 11
Height = 25
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object pnlGame: TPanel
Left = 8
Top = 8
Width = 480
Height = 480
TabOrder = 0
end
object btnReset: TButton
Left = 494
Top = 448
Width = 213
Height = 40
Caption = 'Reset'
TabOrder = 1
OnClick = btnResetClick
end
object cbHints: TCheckBox
Left = 494
Top = 425
Width = 97
Height = 17
Caption = 'Show Hints'
Checked = True
State = cbChecked
TabOrder = 2
OnClick = cbHintsClick
end
object menuMain: TMainMenu
Left = 552
Top = 288
object menuFile: TMenuItem
Caption = 'File'
object menuReset: TMenuItem
Caption = 'Reset'
OnClick = menuResetClick
end
object menuExit: TMenuItem
Caption = 'Exit'
OnClick = menuExitClick
end
end
object fileOptions: TMenuItem
Caption = 'Options'
object fileColors: TMenuItem
Caption = 'Colors'
object fileBoard: TMenuItem
Caption = 'Board'
OnClick = fileBoardClick
end
object fileP1: TMenuItem
Caption = 'Player 1'
OnClick = fileP1Click
end
object fileP2: TMenuItem
Caption = 'Player 2'
OnClick = fileP2Click
end
object fileDefaults: TMenuItem
Caption = 'Reset to Defaults'
OnClick = fileDefaultsClick
end
end
end
object fileAbout: TMenuItem
Caption = 'About'
OnClick = fileAboutClick
end
end
object clrDialog: TColorDialog
Left = 496
Top = 288
end
end