-
Notifications
You must be signed in to change notification settings - Fork 29
Expand file tree
/
Copy pathSSBMainForm.fmx
More file actions
450 lines (450 loc) · 20 KB
/
SSBMainForm.fmx
File metadata and controls
450 lines (450 loc) · 20 KB
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
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
object SSBForm: TSSBForm
Left = 0
Top = 0
Caption = 'SSBForm'
ClientHeight = 890
ClientWidth = 996
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
OnCreate = FormCreate
DesignerMasterStyle = 0
object MenuPanel: TPanel
Align = MostLeft
Size.Width = 115.000000000000000000
Size.Height = 890.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
object Selected: TImage
MultiResBitmap = <
item
end>
Position.X = 8.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 97.000000000000000000
Size.Height = 97.000000000000000000
Size.PlatformDefault = False
end
object InfoLbl: TLabel
Anchors = [akLeft, akBottom]
Position.X = 8.000000000000000000
Position.Y = 678.000000000000000000
Size.Width = 98.000000000000000000
Size.Height = 87.000000000000000000
Size.PlatformDefault = False
Text =
'Double Click on Element to Edit and Double Click to Poly Point t' +
'o add New'
end
end
object SaveProjectBtn: TCornerButton
Anchors = [akLeft, akBottom]
Position.X = 8.000000000000000000
Position.Y = 850.000000000000000000
Sides = [Top, Left, Bottom, Right]
Size.Width = 97.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
Text = 'Save Project'
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
OnClick = SaveProjectBtnClick
end
object LoadProjectBtn: TCornerButton
Anchors = [akLeft, akBottom]
Position.X = 8.000000000000000000
Position.Y = 809.000000000000000000
Sides = [Top, Left, Bottom, Right]
Size.Width = 97.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
Text = 'Load Project'
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
OnClick = LoadProjectBtnClick
end
object OpenDialog: TOpenDialog
Left = 126
Top = 8
end
object SaveForEngineBtn: TCornerButton
Anchors = [akLeft, akBottom]
Position.X = 8.000000000000000000
Position.Y = 769.000000000000000000
Sides = [Top, Left, Bottom, Right]
Size.Width = 97.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
Text = 'Save for Engine'
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
OnClick = SaveForEngineBtnClick
end
object SaveDialog: TSaveDialog
Left = 158
Top = 8
end
object GlowEffect1: TGlowEffect
Softness = 0.400000005960464400
GlowColor = claGold
Opacity = 0.899999976158142100
end
object Instruments: TPanel
Position.X = 9.000000000000000000
Position.Y = 113.000000000000000000
Size.Width = 96.000000000000000000
Size.Height = 432.000000000000000000
Size.PlatformDefault = False
TabOrder = 6
inline PictureFrame: TPictureFrame
Align = Top
Position.Y = 65.000000000000000000
Size.Width = 96.000000000000000000
Size.Height = 144.000000000000000000
Size.PlatformDefault = False
inherited Picture_Inst: TLayout
Size.Width = 96.000000000000000000
Size.Height = 144.000000000000000000
inherited AddPictureBtn: TCornerButton
Size.Width = 96.000000000000000000
end
inherited DelPictureBtn: TCornerButton
Size.Width = 96.000000000000000000
end
inherited ClonePictureBtn: TCornerButton
Size.Width = 96.000000000000000000
end
inherited EditPictureBtn: TCornerButton
Size.Width = 96.000000000000000000
end
end
end
inline ObjectFrame: TObjectFrame
Align = Top
Position.Y = 209.000000000000000000
Size.Width = 96.000000000000000000
Size.Height = 144.000000000000000000
Size.PlatformDefault = False
inherited Object_Inst: TLayout
Size.Width = 96.000000000000000000
Size.Height = 144.000000000000000000
inherited AddObjectBtn: TCornerButton
Size.Width = 96.000000000000000000
end
inherited DelObjectBtn: TCornerButton
Size.Width = 96.000000000000000000
end
inherited EdtObjectBtn: TCornerButton
Size.Width = 96.000000000000000000
end
inherited CloneObjectBtn: TCornerButton
Size.Width = 96.000000000000000000
end
end
end
inline ShapeFrame: TShapeFrame
Align = Top
Position.Y = 353.000000000000000000
Size.Width = 96.000000000000000000
Size.Height = 176.000000000000000000
Size.PlatformDefault = False
inherited Shape_Inst: TLayout
Size.Width = 96.000000000000000000
Size.Height = 185.000000000000000000
inherited AddCircleBtn: TCornerButton
Size.Width = 96.000000000000000000
end
inherited AddPolyBtn: TCornerButton
Size.Width = 96.000000000000000000
end
inherited DelShapeBtn: TCornerButton
Size.Width = 96.000000000000000000
end
inherited EdtShapeBtn: TCornerButton
Size.Width = 96.000000000000000000
end
inherited PointLayout: TLayout
Size.Width = 96.000000000000000000
inherited DelPointBtn: TCornerButton
Margins.Top = 3.000000000000000000
Position.X = 48.000000000000000000
Position.Y = 3.000000000000000000
Size.Height = 26.000000000000000000
end
inherited AddPointBtn: TCornerButton
Margins.Top = 3.000000000000000000
Position.Y = 3.000000000000000000
Size.Height = 26.000000000000000000
end
end
end
end
inline StatusSelectorFrame: TStatusSelectorFrame
Align = MostTop
Size.Width = 96.000000000000000000
Size.Height = 65.000000000000000000
Size.PlatformDefault = False
inherited InsrumentTabs: TLayout
Size.Width = 96.000000000000000000
inherited LineOneLayout: TLayout
Size.Width = 96.000000000000000000
inherited Object_rect: TRectangle
inherited Object_img: TImage
MultiResBitmap.Height = 64
MultiResBitmap.Width = 64
end
end
inherited Picture_rect: TRectangle
inherited Picture_img: TImage
MultiResBitmap.Height = 64
MultiResBitmap.Width = 64
end
end
inherited Shape_rect: TRectangle
inherited Shape_img: TImage
MultiResBitmap.Height = 64
MultiResBitmap.Width = 64
end
end
end
inherited LineTwoLayout: TLayout
Size.Width = 96.000000000000000000
inherited Rendition_rect: TRectangle
inherited Rendition_img: TImage
MultiResBitmap.Height = 64
MultiResBitmap.Width = 64
MultiResBitmap = <
item
Width = 64
Height = 64
PNG = {
89504E470D0A1A0A0000000D4948445200000040000000400806000000AA6971
DE000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
077049444154785EED9A696C545514C7EF5B66DADA4D11D4D2994E29052208C1
D405891A2360900F2A71414D34860F44C4ED83891A4989E887123528241A8D9A
48340D7E503EB97C214613B7B80141A316DA99965603566B99A5336FF17FDE3B
33EDB4633B6F99A184F925937BCE79F7DD3BF7CCBDE7DEF3DE880A152A54A870
0E2371E9899696965759149229D59B92A998A6999424698CCDBE8036ABD0660D
FAD0D1C728D962B1D843D64597F8E280484B248EE23C5B2B2FD158D4D318642E
BD724606EF077E39E0ACE59C77805F31C064D1262386842AF6225065D8622109
69AE29CC6188866D710682E0EDB224AF62D5C26B0C2889030CD338D4DFDFBF92
55110A859A1559D90DF15238E0A86118DB0706067AECABC543BB0D9CB895558B
D91204A74596E56D28EEC4E7320C609322298F591766016571009D0D58B43145
234B792C685EB0221C0EDF02D19799590C6571806EEAAF60597C95CEA4335802
DFC8A6FC225FCA81E9DD6628C6DB9AA6ED832396B3B9E494C501B4DE53A9D44D
8AA2742493C9B5BD277A0FF3250BC4887604B8F720760403C1465DD1F7343535
95E56C51B66DF0E4C993A7E18823C160B009D3FC3A368BD6D6D6258811EF4E8C
EE8813D706D5E0B3AC9694B23980686E6E5EA40AF50006DB8D29DF4183C78EB0
0F03BE9AAB6451E0856D9150E436D64B46D91CD0D6D676912AA9AF61684BA136
63D0DD58EFDD28AFB26B4CA1C694CD5D9148A495F592501607608DD760B02FA3
B7356C2216E16C7039CB05817316233674D1FD6CF29DB23840114A1706730FAB
8E4825531B91026F61D5774AED0009A744FAE51F65DD31353535C1B1D458576B
B8F55636F94A498FC258F78D98FA7402ACC2272F2F70020E52B5C82B0E41BC03
33C9D7A370491C000671E0A1B37FB6FDC9D71D032704D11AED0A57DA169BD999
0B6484842F1C804403CF0D1EBFDE5C14AEFAC40C486366E9ACFA46A96640D938
2BB2C1D94CC5015C7A25C1E559872F31C009C8F2E622E38B412C74BA4B22656E
191A1A3AC57AC971ED0024321124324FE1A8BA0107954BAAAAABFEC089ED2364
765D7D7D7D51AE360524411F6237F8DF2407DBE781582CB691D53CDCF6391DAE
1C802C6DBD2119EF23ABCB7FD203B0558DCAA67C577420FA099BB24838D35F81
F3FFD790A75B7A866EE8AB903A7F0739B7BBB8EC73461CC700CACE3453DB5FE8
8B1064A72F5A208B3329EF4799D7277EF14F59CC826A56BDF1C1BBEF73469C07
415D3CAD2A6A03CBBD18C09A4432514F25E964A62F8469FAA455878984235B29
BB63D542D3B55F30DDD753C9260BAA47F55975DD673138760072F49B59144215
9B318083F4B4874A4336EEE72BF40C7F038BA2BDBDBD01A37A81D52C26D6EF26
12B8CC3F4CA1BE751F70D367B1387600D2D38B5914894482D6698EFAFAFA6F59
1414A45814E9747A0F8A5A5BB3C1AFB79F1E91914C25E9D685716AF93E577D16
8B630754D754FFC922A5AA796F69E2F1F86A160545682AC3E1F0324CE9FB2CE3
387155551F64D982757ACB9C83EEA3FB9DF6E904C70E900CE9631669CABD856D
6DEDBC79F3EAA8C416F50E5F1288CA5644C6DAECA682E42C88DACF1C3F7E7C84
550BD2C9CE6A1699EE77DAA7131C6F831469D1E9610A3A6C9A82B52DC9F20A88
AB31D7E971F7447E4702B30465A1048A1EA0FC8A7291ADDAA0BDC7513C574C9F
D168B48F4D45E178065007B4E752876CCAC3FA22B85E5B5B3B8821EE65731613
6BFD6E2A6D750A05AF63E09D0894F7CED4A7D3C1138E1D40D081435194E5F8B2
AFE3D39F4C26D354924E76BA1E1F8D3F8CAA73EC3B18537C80C8FD036B05B1AE
A31EAB59E648A6B478A63EB9AE234A920B2C9CBF30ACA9DA4F10273A20A1A8CA
FCC96BBF10F4284DD7F4418813DF0E0DAB9ABAF2D8E0B17ED67DC1D50C98094D
D176A09838781DBFD4AE62064F503DAA0F71E213A039DCAEAFF8EE0004C96B30
AF1E60D5C614BBEBEAEABA582B0AAB3EEE63D506ED5AEDFB88DF4B4041D2F239
DC9ADB9BC1894030B0B4A7A7E75FD68B864E829974E66788CDB60518E24BACF7
EB21F9F27C50E1D217B02F6F46B4A63F43E440847E04A96AEEB4E684E1E1E1B1
8686865368733C3D9644B8B1B131363232F2235B3CE1DB0CC0E02F9032D25111
104D6C22BEC09E7F034A57FF0962649C0D3E43997BA34CFF413203E632EC187F
B3C5357EC680ED9306AFC986FC044A2F832790EF58ED68B60AEC7EB6DB8A377C
714028145A8E84256FEA238ABFD93BD0EB6AEA4F86DAA1F658B5A0FEA85F565D
E38B0314597909490ABDFECA720AC7E5E759F6056E2FF7AC90FAA37E59758D67
0760EDD3BBBF75B6C698A21329EE09D67CC16A0FEDB29A651DF7EF1A4F419032
32FC12DF4F7AD273249D49DF08FB9497A1BAAE4B8140003FA6316DBF540FC7DB
29F9028EBFD851830721E6A63E96C66FB077D003123639C29303E0FD4E0C7EF2
7F794E6BBA16C7005CCF2EB4296160531C00C718AAA2D283953ADB6283BA3BB0
23EC64D5119E1C80EDE92F14F909CF996118DBED852C3BC2530CC02187DE009F
71BC7C0FAF4B600BA6E54EACE96A36F902D67980FE54C9EAB4C8B29CC272EBC4
1278834D8EF0E40002C9C9F981B14051BF403A98AE0BA6833306AB62EB1199AA
4C261A8DFEC36A850A152A54A8503442FC0777EC51B1CE56D9BD000000004945
4E44AE426082}
FileName =
'E:\Dropbox\Projects\ShadowEngine\SpriteShapeBuilder\img\Renditio' +
'n_edt.png'
end>
end
end
inherited Sounder_rect: TRectangle
inherited Sounder_img: TImage
MultiResBitmap.Height = 64
MultiResBitmap.Width = 64
MultiResBitmap = <
item
Width = 64
Height = 64
PNG = {
89504E470D0A1A0A0000000D4948445200000040000000400806000000AA6971
DE000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
054549444154785EED9A4B6C1B4518C77776BD761CE74194979C3AB16B397549
0E204595503910046A2F1C9000C185D7A1DC11024E880312BD22C10921101784
D45324383470E029046A8AAAAA818009B6934624761BF2A85FBB3BC37FBC5F39
409AEEFA958DB23F6934DFCCCECAFBFD771EDFAC47F1F1F1F139CA30CA0F2DA9
542AC439EF92F6F2F2F256BDD205874D002D9D4E771B86A10E0C0C94B6B6B6C2
B0938CB3FB38E337F2F9FC67D4CE319E14606A6A2A58A954C2AAAA8A4C26B393
4C26874DD39CC4A57B85100FAB4C3DC1054F23EFB5EF8023823D9E5DC9CE51D1
31072A40341AED0E02386BC462B1DAFAFA7A5CD3B4493829D3ACCAD5B4A22927
D03460DF716720C8999595952FA8E8984E08C0D06D7BE0A406BB522A9502A150
E838DEAE746C1ADDF721A18A49A6B0F17AEB06F18C0070B677696969371E8F8F
3293C515553989B7F908C6E824BA6C0A4D86EC96ADC53302CCCCCCE8C542F126
CC1EBBA633342A804A79CB585B5BD3916DDB25EFD372010841B9E76997008706
5F00CA8F2C87518032D2AA50C41B76B139BC2E8074741EE93584BA67B1D41DCB
E5737D956AE524CA26B5690A4F0800C776907E80A31F213D85345D336A91BAA3
8C3D8DF42EE2FC79ACF36B686E2264BE259808D9773747CB03A17A7CAF077F83
79CCAEF91F37E1E0377883F35CE1572DCBFA05F76C178BC508C264B35028EC52
BB3B323C3CDC130E87DF43F8FC3C55792710DA0B38FC3A62FE59C81DD583FA58
201078616864E8033CF077089C6E2C2C2C18B95CEE6F27CEB79A8E08808DCF5C
7635FB359CFC0BDBDBAAFC70219DA6CB074A4704E09CD7C8F41C9D12406E853D
8927568183A423026019F3ECE6C81780F276E3F700323D872F00E547968E0820
FFE020D373F83D80F2B652AD5639999EC39F04296F2BFE2AE0617C01286F2BAD
1E02F4E568D92E35474704D034ADE155201E8FDF834C1B1B1B1B9C9898382E73
D47531C15AF291C5B343407EF84C8C27CE28967261647864570FE845A6B06599
636B555698729E9A36851787004B2412E9603078553071114FF868381CAE1F82
6A079EEB01E8DEB3828BEF035A2041556DA5E502E06DC9F301F20F8C7F514BCE
F60218E351CBB23E853968D7B49F86FF18191D1D8DE8BACEBBCCAE9E5AB036A1
72B5C754CCEB98F07A31462F53B33A86690CC9EFFF54DC93542AD567548D0FF1
444F50952B84221ECBE7F39F53D131AE7B809C81E5CC1C0A855E46316B048D0D
4C4E97842ABED254EDF7FF3AEF94FEFE7E39B135E4BC042F60874C57B81240BE
2521C4B370B200A7DF82C32374695F9C6C87373737A36436841A547F25D3158E
0588C56261ECEA5E84E3EFA378D7737B6E2997CB25321BE11252D536DDE15880
801238A532F51D2ABAC2490FC0E46970C1AF50D10D9C71F64A23E784258E0490
631E93CCDB54748D699A77FD1D72E055245751239EEB25A1899FA8E81A470204
8C402F5A3E4845D760B5B0C8DC17F4946F31113EA954944DAADA8F3FE0FC0CE7
FC935C2E57A13AD73812A0A6D59A094AD66A80EC7D918E20CDE536728370EE9C
C5AD1C5DBA4D19F51799C51E28954BF763D9BBBCBABA2A8FCC348C2301A0F29F
6436C2854824E2A80710720808EC053E360C631A3D22ACD7F411E403F2780CC2
EA67B2D7B33FB6EA2C81A34028994CF65BA6254F5F9CB26B9C8137B881C028DE
4C176D378E7A809CA098CACEA1FB15A8CA09D7FAFAFAC6BDECBCC49100926C36
7B0543E134CC6B76CDDE9896B90DA19ED383FAE9C5C545CF1E8CB88DEBBD403D
66378C31887156ADAA6F2A5DCA00AA6F613D3A8FF5F8CBEEFEEE9FE1B81CC72D
39C6D66E1ADA0CD58FC4178B723354CE643206CA1A42D96E39DB373B2BFBF8F8
F8F8740C45F9073D0C2D567C48DFF40000000049454E44AE426082}
FileName =
'E:\Dropbox\Projects\ShadowEngine\SpriteShapeBuilder\img\Sounder.' +
'png'
end>
end
end
end
end
end
end
inline WorkspaceFrame: TWorkspaceFrame
Align = Client
Size.Width = 881.000000000000000000
Size.Height = 864.000000000000000000
Size.PlatformDefault = False
inherited GraphicItemWorkspaceFrame: TGraphicItemWorkspaceFrame
Size.Width = 881.000000000000000000
Size.Height = 864.000000000000000000
inherited Panel: TPanel
Size.Width = 881.000000000000000000
Size.Height = 864.000000000000000000
inherited MainImg: TImage
Size.Width = 881.000000000000000000
Size.Height = 864.000000000000000000
end
end
end
end
object StatusBar: TPanel
Align = Bottom
Padding.Left = 5.000000000000000000
Position.X = 115.000000000000000000
Position.Y = 864.000000000000000000
Size.Width = 881.000000000000000000
Size.Height = 26.000000000000000000
Size.PlatformDefault = False
TabOrder = 11
object GlobalPosImg: TImage
MultiResBitmap.Height = 24
MultiResBitmap = <
item
Width = 24
Height = 24
PNG = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F8000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
005F49444154484B63A0356084D2FFA134B501CC7C9A5800369309CCA42120C6
028A7C37287C4011A0B905C8C99494240B4F7E7800B299780D253792C1FA4623
992020C60262221427188D038260D4028260E85B404A094A0EA0289312011818
00EAC60B21F6CC1C4C0000000049454E44AE426082}
FileName =
'E:\Dropbox\Projects\ShadowEngine\SpriteShapeBuilder\img\SSBStatu' +
'sGlobal.png'
end>
Align = Left
Position.X = 5.000000000000000000
Size.Width = 24.000000000000000000
Size.Height = 26.000000000000000000
Size.PlatformDefault = False
end
object GlobalPos: TLabel
Align = Left
Margins.Left = 5.000000000000000000
Position.X = 34.000000000000000000
Size.Width = 180.000000000000000000
Size.Height = 26.000000000000000000
Size.PlatformDefault = False
Text = 'GlobalPos'
end
object LocalPos: TLabel
Align = Left
Margins.Left = 5.000000000000000000
Position.X = 243.000000000000000000
Size.Width = 180.000000000000000000
Size.Height = 26.000000000000000000
Size.PlatformDefault = False
Text = 'LocalPos'
end
object LocalPosImg: TImage
MultiResBitmap.Height = 24
MultiResBitmap = <
item
Width = 24
Height = 24
PNG = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F8000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
008149444154484BED93DB0E80200C43A7FFFFCF9A2DD49404C101F392785E58
0C696737249A259D5B3A6703FD1003D35CAD0C84231A89EB888260CD4CD46B70
76DFBE5F89C86B98113E839A81768EEEB9765133D00161485CBB783422D0D539
78C51F0CF17D030C50779C6B2FA54560CDBE47D4C034FF2137B9758B22286DD7
4C44765F3E151BE1DD98710000000049454E44AE426082}
FileName =
'E:\Dropbox\Projects\ShadowEngine\SpriteShapeBuilder\img\SSBStatu' +
'sLocal.png'
end>
Align = Left
Position.X = 214.000000000000000000
Size.Width = 24.000000000000000000
Size.Height = 26.000000000000000000
Size.PlatformDefault = False
end
end
end