forked from brian-scott-andrews/TurboRisk
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Move.lfm
335 lines (335 loc) · 10.8 KB
/
Move.lfm
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
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
object fMove: TfMove
Left = 281
Top = 208
HelpContext = 110
BorderStyle = bsDialog
Caption = 'Troops move'
ClientHeight = 201
ClientWidth = 211
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poDesigned
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
object Label1: TLabel
Left = 5
Top = 5
Width = 23
Height = 13
Caption = 'From'
end
object Label2: TLabel
Left = 110
Top = 5
Width = 13
Height = 13
Caption = 'To'
end
object SpeedButton1: TSpeedButton
Tag = 1
Left = 5
Top = 65
Width = 51
Height = 21
Caption = '1'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0FFFFF
FFFFFFFFFF00FFFFFFFFFFFFFF000FFFFFFFFFFFFF0000FFFFFFFFFFFF00000F
FFFFFFFFFF0000FFFFFFFFFFFF000FFFFFFFFFFFFF00FFFFFFFFFFFFFF0FFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
}
Layout = blGlyphRight
Spacing = 0
OnClick = MoveArmiesClick
end
object SpeedButton2: TSpeedButton
Tag = 5
Left = 55
Top = 65
Width = 51
Height = 21
Caption = '5'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0FFFFF
FFFFFFFFFF00FFFFFFFFFFFFFF000FFFFFFFFFFFFF0000FFFFFFFFFFFF00000F
FFFFFFFFFF0000FFFFFFFFFFFF000FFFFFFFFFFFFF00FFFFFFFFFFFFFF0FFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
}
Layout = blGlyphRight
Spacing = 0
OnClick = MoveArmiesClick
end
object SpeedButton3: TSpeedButton
Tag = 10
Left = 105
Top = 65
Width = 51
Height = 21
Caption = '10'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0FFFFF
FFFFFFFFFF00FFFFFFFFFFFFFF000FFFFFFFFFFFFF0000FFFFFFFFFFFF00000F
FFFFFFFFFF0000FFFFFFFFFFFF000FFFFFFFFFFFFF00FFFFFFFFFFFFFF0FFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
}
Layout = blGlyphRight
Spacing = 0
OnClick = MoveArmiesClick
end
object SpeedButton4: TSpeedButton
Tag = 25
Left = 155
Top = 65
Width = 51
Height = 21
Caption = '25'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0FFFFF
FFFFFFFFFF00FFFFFFFFFFFFFF000FFFFFFFFFFFFF0000FFFFFFFFFFFF00000F
FFFFFFFFFF0000FFFFFFFFFFFF000FFFFFFFFFFFFF00FFFFFFFFFFFFFF0FFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
}
Layout = blGlyphRight
Spacing = 0
OnClick = MoveArmiesClick
end
object SpeedButton6: TSpeedButton
Tag = -1
Left = 5
Top = 85
Width = 51
Height = 21
Caption = '1'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0FF
FFFFFFFFFFFF00FFFFFFFFFFFFF000FFFFFFFFFFFF0000FFFFFFFFFFF00000FF
FFFFFFFFFF0000FFFFFFFFFFFFF000FFFFFFFFFFFFFF00FFFFFFFFFFFFFFF0FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
}
Spacing = 0
OnClick = MoveArmiesClick
end
object SpeedButton7: TSpeedButton
Tag = -5
Left = 55
Top = 85
Width = 51
Height = 21
Caption = '5'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0FF
FFFFFFFFFFFF00FFFFFFFFFFFFF000FFFFFFFFFFFF0000FFFFFFFFFFF00000FF
FFFFFFFFFF0000FFFFFFFFFFFFF000FFFFFFFFFFFFFF00FFFFFFFFFFFFFFF0FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
}
Spacing = 0
OnClick = MoveArmiesClick
end
object SpeedButton8: TSpeedButton
Tag = -10
Left = 105
Top = 85
Width = 51
Height = 21
Caption = '10'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0FF
FFFFFFFFFFFF00FFFFFFFFFFFFF000FFFFFFFFFFFF0000FFFFFFFFFFF00000FF
FFFFFFFFFF0000FFFFFFFFFFFFF000FFFFFFFFFFFFFF00FFFFFFFFFFFFFFF0FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
}
Spacing = 0
OnClick = MoveArmiesClick
end
object SpeedButton9: TSpeedButton
Tag = -25
Left = 155
Top = 85
Width = 51
Height = 21
Caption = '25'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0FF
FFFFFFFFFFFF00FFFFFFFFFFFFF000FFFFFFFFFFFF0000FFFFFFFFFFF00000FF
FFFFFFFFFF0000FFFFFFFFFFFFF000FFFFFFFFFFFFFF00FFFFFFFFFFFFFFF0FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
}
Spacing = 0
OnClick = MoveArmiesClick
end
object panFromTerr: TPanel
Left = 5
Top = 20
Width = 96
Height = 21
BevelOuter = bvNone
BorderStyle = bsSingle
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object panFromArmies: TPanel
Left = 5
Top = 40
Width = 96
Height = 21
BevelOuter = bvNone
BorderStyle = bsSingle
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object panToTerr: TPanel
Left = 110
Top = 20
Width = 96
Height = 21
BevelOuter = bvNone
BorderStyle = bsSingle
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object panToArmies: TPanel
Left = 110
Top = 40
Width = 96
Height = 21
BevelOuter = bvNone
BorderStyle = bsSingle
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object cmdOk: TBitBtn
Left = 5
Top = 110
Width = 76
Height = 40
Caption = '&OK'
Kind = bkOK
TabOrder = 4
OnClick = cmdOkClick
end
object cmdCancel: TBitBtn
Left = 100
Top = 110
Width = 100
Height = 40
Caption = '&Cancel'
Kind = bkCancel
TabOrder = 5
OnClick = cmdCancelClick
end
object cmdAll: TBitBtn
Left = 5
Top = 152
Width = 76
Height = 40
Caption = '&All'
Glyph.Data = {
F2010000424DF201000000000000760000002800000024000000130000000100
0400000000007C01000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334433333
3333333333388F3333333333000033334224333333333333338338F333333333
0000333422224333333333333833338F33333333000033422222243333333333
83333338F3333333000034222A22224333333338F33F33338F33333300003222
A2A2224333333338F383F3338F33333300003A2A222A222433333338F8333F33
38F33333000034A22222A22243333338833333F3338F333300004222A2222A22
2433338F338F333F3338F3330000222A3A2224A22243338F3838F338F3338F33
0000A2A333A2224A2224338F83338F338F3338F300003A33333A2224A2224338
333338F338F3338F000033333333A2224A2243333333338F338F338F00003333
33333A2224A2233333333338F338F83300003333333333A2224A333333333333
8F338F33000033333333333A222433333333333338F338F30000333333333333
A224333333333333338F38F300003333333333333A223333333333333338F8F3
000033333333333333A3333333333333333383330000
}
ModalResult = 1
NumGlyphs = 2
TabOrder = 6
OnClick = cmdAllClick
end
object cmdBalance: TBitBtn
Left = 100
Top = 152
Width = 100
Height = 40
Caption = '&Balance'
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
33333333333F8888883F33330000324334222222443333388F3833333388F333
000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
3338888300003AAAAAAA33333333333888888833333333330000333333333333
333333333333333333FFFFFF000033333333333344444433FFFF333333888888
00003A444333333A22222438888F333338F3333800003A2243333333A2222438
F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
3333333333338888883333330000333333333333333333333333333333333333
0000
}
ModalResult = 1
NumGlyphs = 2
TabOrder = 7
OnClick = cmdBalanceClick
end
end