blob: 744ec26f31e2940a8d474eed8676eef8feb18978 (
plain)
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
|
object Manager: TManager
Left = 555
Top = 124
BorderIcons = []
BorderStyle = bsToolWindow
Caption = 'Manager'
ClientHeight = 72
ClientWidth = 204
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDefault
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object ActionList: TTntActionList
OnUpdate = ActionListUpdate
Left = 176
Top = 8
object LookFeelOptionsAction: TTntAction
Caption = 'Look && Feel Options...'
OnExecute = LookFeelOptionsActionExecute
end
object AboutAction: TTntAction
Caption = 'About...'
OnExecute = AboutActionExecute
end
object BroadcastAction: TTntAction
Caption = 'Broadcast...'
OnExecute = BroadcastActionExecute
end
end
object ConnectedPopupMenu: TTntPopupMenu
AutoPopup = False
Left = 8
Top = 8
object StartAdjournedGameConnected: TTntMenuItem
Caption = 'Start Adjourned Game'
Visible = False
OnClick = StartAdjournedGameConnectedClick
end
object StartStandartGameConnected: TTntMenuItem
Caption = 'Start Standart Game'
OnClick = StartStandartGameConnectedClick
end
object StartPPRandomGameConnected: TTntMenuItem
Caption = 'Start PP Random Game'
OnClick = StartPPRandomGameConnectedClick
end
object N5: TTntMenuItem
Caption = '-'
end
object ChangeColorConnected: TTntMenuItem
Caption = 'Change Color'
OnClick = ChangeColorConnectedClick
end
object TTntMenuItem
Caption = '-'
end
object GameOptionsConnected: TTntMenuItem
Caption = 'Game Options...'
OnClick = GameOptionsConnectedClick
end
object LookFeelOptionsConnected: TTntMenuItem
Action = LookFeelOptionsAction
end
object N1: TTntMenuItem
Caption = '-'
end
object BroadcastConnected: TTntMenuItem
Action = BroadcastAction
end
object N3: TTntMenuItem
Caption = '-'
end
object AboutConnected: TTntMenuItem
Action = AboutAction
end
end
object GamePopupMenu: TTntPopupMenu
AutoPopup = False
OnPopup = GamePopupMenuPopup
Left = 40
Top = 8
object AbortGame: TTntMenuItem
Caption = 'Abort'
OnClick = AbortGameClick
end
object DrawGame: TTntMenuItem
Caption = 'Draw'
OnClick = DrawGameClick
end
object ResignGame: TTntMenuItem
Caption = 'Resign'
OnClick = ResignGameClick
end
object N6: TTntMenuItem
Caption = '-'
end
object AdjournGame: TTntMenuItem
Caption = 'Adjourn'
Visible = False
OnClick = AdjournGameClick
end
object GamePause: TTntMenuItem
Caption = 'Pause'
Visible = False
OnClick = GamePauseClick
end
object TakebackGame: TTntMenuItem
Caption = 'Takeback'
Visible = False
OnClick = TakebackGameClick
end
object N4: TTntMenuItem
Caption = '-'
end
object LookFeelOptionsGame: TTntMenuItem
Action = LookFeelOptionsAction
end
object N2: TTntMenuItem
Caption = '-'
end
object Broadcast: TTntMenuItem
Action = BroadcastAction
end
object N7: TTntMenuItem
Caption = '-'
end
object AboutGame: TTntMenuItem
Action = AboutAction
end
end
object ConnectorTimer: TTimer
Enabled = False
Interval = 500
OnTimer = ConnectorTimerTimer
Left = 8
Top = 40
end
end
|
