-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathfrm_exportsprite.dfm
442 lines (442 loc) · 12.5 KB
/
frm_exportsprite.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
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
object ExportSpriteForm: TExportSpriteForm
Left = 182
Top = 170
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Export Sprite'
ClientHeight = 454
ClientWidth = 676
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Icon.Data = {
0000010001002020000001000800A80800001600000028000000200000004000
000001000800000000000004000000000000000000000001000000000000F7F6
F5003F3D3D003E3D3C003D3B3B003B3939003A39380039373700383736003735
35008F8F8F00595858008B8B8B00FFFFFE0081818100FCFBFB00FAF9F9007D7D
7D00F8F7F700F7F7F600434242006F6F6F003938380038383700373636003534
34005B5B5B00FEFEFE00FCFCFC0049494900FAFAFA00F8F8F800F6F6F6004343
430041414100F2F2F2003D3D3D003B3B3B003939390037373700353535003333
3300454342003D3B3A003B39380039373600D4D4D400E2E0DF00CECECE00C8C8
C8005B5A5900C4C4C4005A58580088878700FFFDFD00FBF9F900F7F5F500F6F5
F400444242004342410042404000F3F1F10041403F00403E3E003F3E3D003E3C
3C003D3C3B003C3A3A003B3A39003A3838003938370038363600373635003634
34008E8E8E00D2D1D000FDFCFC00FCFCFB00F9F8F8003A393900393938003837
3700373736003635350058585800FFFFFF00FDFDFD00FBFBFB00F9F9F900F7F7
F700F5F5F50042424200404040003E3E3E00EFEFEF003A3A3A00383838003636
3600343434003E3C3B00DBDBDB003C3A39003A38370038363500646362005957
5700FFFEFD00FDFCFB00FCFAFA00FBFAF90048474600F9F8F700000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000676D
624040404040404040404040404040404040403B413C0B545454545454546848
2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C47040026495454545454543106
060606060606060606060606060606060606064541386025095454545454332C
050505050505050505050505050505050505054462126027280D54545454332C
050505050505050505050505050505050505054462125F615E2609545454332C
05050505050505050505050505050505050505446212275E5E2725105454332C
050505072A466565652C65656565656544444446081E064E061506183454332C
050505642B022B64452A04040404040404040440461E4E424E15503B2614332C
050505042B486E6C4C4C0E0E0E0E0E0E0E0E0E4D0E360E1B6B1B4B565622332C
050505052B08353D47480808080808080808085004370817080808085023332C
050505052B0869292B4547474747474717171742011E085008171717155C332C
050505052B08693A0607656565656565444444040311064E064444445F23332C
050505052B08693965450505050505050505054462124745070505054E5C332C
050505052B08693965450505050505050505054462124745070505054E5C332C
050505052B08693965450505050505050505054462124745070505054E5C332C
050505052B08693965450505050505050505054462124745070505054E5C332C
050505052B08693965450505050505050505054462124745070505054E5C332C
050505052B08693965450505050505050505054462124745070505054E5C0A50
4F0505054E52691315450505050505050505054440124745070505054E5C5326
2525252525271A5A5F5F0505050505054E4E4E4440584745070505054E5C5326
2525252525271A5A5F5F0505050505054E4E4E4440584745070505054E5C5326
2525255F5E601A5A5F5F0505050505054E4E4E4440586645070505054E5C1925
6060602661601B2026240707070707075050500615590765070505054E5C5755
1B1B1B55565654571F1B6A6A6A6A6A6A4B4B4B4D1B0F0765070505054E5C2F23
5E24242525241A5A5F5C0505050505054E4E4E4252440765070505054E5C5432
232425432B08693965450505050505050505050505050505050505054E5C5454
635E25512B08693965450505050505050505050505050505050505054E5C5454
543027162B08693965450505050505050505050505050505050505054E5C5454
54545D3F033E0C3965450505050505050505050505050505050505054E5C5454
5454544A44450C3965450505050505050505050505050505050505054E5C5454
545454542E620C3965450505050505050505050505050505050505054E5C5454
54545454542D1D1C5B235C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5B210000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000}
OldCreateOrder = False
Position = poMainFormCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnMouseWheelDown = FormMouseWheelDown
OnMouseWheelUp = FormMouseWheelUp
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 16
Width = 23
Height = 13
Caption = 'File: '
end
object Label3: TLabel
Left = 504
Top = 20
Width = 83
Height = 13
Caption = 'Output file type: '
end
object ContainerTypeLabel: TLabel
Left = 592
Top = 20
Width = 27
Height = 13
Caption = 'WAD'
FocusControl = FileNameEdit
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object SelectFileButton: TSpeedButton
Left = 472
Top = 16
Width = 23
Height = 22
Caption = '...'
Flat = True
OnClick = SelectFileButtonClick
end
object PatchRadioGroup: TRadioGroup
Left = 224
Top = 136
Width = 193
Height = 121
Caption = ' Patch Palette '
Items.Strings = (
'Doom'
'Heretic'
'Hexen'
'Strife'
'Radix')
TabOrder = 5
end
object Panel1: TPanel
Left = 0
Top = 405
Width = 676
Height = 49
Align = alBottom
BevelOuter = bvNone
Caption = ' '
TabOrder = 8
object Panel2: TPanel
Left = 373
Top = 0
Width = 303
Height = 49
Align = alRight
BevelOuter = bvNone
Caption = ' '
TabOrder = 0
object Button1: TButton
Left = 96
Top = 8
Width = 75
Height = 25
Caption = 'OK'
Default = True
Enabled = False
ModalResult = 1
TabOrder = 0
end
object Button2: TButton
Left = 200
Top = 8
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
end
end
end
object FileNameEdit: TEdit
Left = 56
Top = 16
Width = 417
Height = 21
TabOrder = 0
OnChange = FileNameEditChange
end
object AnglesRadioGroup: TRadioGroup
Left = 16
Top = 136
Width = 193
Height = 121
Caption = ' Angles '
Items.Strings = (
'1 (All source ports)'
'8 (All source ports)'
'16 (DelphiDoom/Zdoom/EDGE)'
'32 (DelphiDoom)')
TabOrder = 2
OnClick = AnglesRadioGroupClick
end
object SpriteFormatRadioGroup: TRadioGroup
Left = 224
Top = 48
Width = 193
Height = 81
Caption = ' Sprite Format '
Items.Strings = (
'Doom Patch (All source ports)'
'PNG (DelphiDoom/Zdoom/EDGE)')
TabOrder = 4
end
object ProjectionModeRadioGroup: TRadioGroup
Left = 16
Top = 264
Width = 193
Height = 73
Caption = ' 3D Projection mode '
Items.Strings = (
'Perspective (slow)'
'Isometric (fast)')
TabOrder = 3
OnClick = ProjectionModeRadioGroupClick
end
object GroupBox1: TGroupBox
Left = 224
Top = 264
Width = 435
Height = 129
Caption = ' Perspective Parameters '
TabOrder = 6
object Label4: TLabel
Left = 16
Top = 32
Width = 63
Height = 13
Caption = 'View Height: '
OnDblClick = Label4DblClick
end
object Label5: TLabel
Left = 16
Top = 76
Width = 49
Height = 13
Caption = 'View Pos: '
OnDblClick = Label5DblClick
end
object ViewHeightLabel: TLabel
Left = 384
Top = 32
Width = 14
Height = 13
Caption = '41'
FocusControl = ViewHeightTrackBar
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object DistanceLabel: TLabel
Left = 376
Top = 76
Width = 28
Height = 13
Alignment = taRightJustify
Caption = '1024'
FocusControl = DistanceTrackBar
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object ViewHeightTrackBar: TTrackBar
Left = 80
Top = 24
Width = 297
Height = 45
Max = 64
Min = 32
PageSize = 6
Position = 41
TabOrder = 0
OnChange = ViewHeightTrackBarChange
end
object DistanceTrackBar: TTrackBar
Left = 80
Top = 72
Width = 289
Height = 45
Max = 2048
Min = 512
PageSize = 256
Frequency = 64
Position = 1024
TabOrder = 1
OnChange = DistanceTrackBarChange
end
end
object GroupBox2: TGroupBox
Left = 16
Top = 48
Width = 193
Height = 81
Caption = ' General '
TabOrder = 1
object Label2: TLabel
Left = 16
Top = 24
Width = 35
Height = 13
Caption = 'Prefix: '
FocusControl = PrefixEdit
end
object SpritePrefixButton: TSpeedButton
Left = 112
Top = 24
Width = 23
Height = 22
Caption = '...'
Flat = True
OnClick = SpritePrefixButtonClick
end
object PrefixEdit: TEdit
Left = 56
Top = 24
Width = 57
Height = 21
CharCase = ecUpperCase
MaxLength = 5
TabOrder = 0
Text = 'AAAAA'
end
object HQCheckBox: TCheckBox
Left = 16
Top = 56
Width = 145
Height = 17
Caption = 'High quality rotation'
TabOrder = 1
OnClick = HQCheckBoxClick
end
end
object GroupBox3: TGroupBox
Left = 424
Top = 48
Width = 236
Height = 209
Caption = ' Preview '
TabOrder = 7
object Panel3: TPanel
Left = 2
Top = 15
Width = 232
Height = 192
Align = alClient
BevelOuter = bvNone
BorderWidth = 4
Caption = ' '
TabOrder = 0
object PaintBox1: TPaintBox
Left = 4
Top = 4
Width = 184
Height = 184
Cursor = crCross
Align = alLeft
OnDblClick = PaintBox1DblClick
OnPaint = PaintBox1Paint
end
object Panel4: TPanel
Left = 188
Top = 4
Width = 40
Height = 184
Align = alClient
BevelOuter = bvNone
Caption = ' '
TabOrder = 0
object ZoomInSpeedButton: TSpeedButton
Left = 9
Top = 0
Width = 23
Height = 22
Caption = '+'
Flat = True
OnClick = ZoomInSpeedButtonClick
end
object ZoomOutSpeedButton: TSpeedButton
Left = 9
Top = 24
Width = 23
Height = 22
Caption = '-'
Flat = True
OnClick = ZoomOutSpeedButtonClick
end
object HourglassLabel: TLabel
Left = 8
Top = 168
Width = 9
Height = 13
Caption = ' '
end
end
end
end
object SavePK3Dialog: TSaveDialog
DefaultExt = 'pk3'
Filter =
'wad files(*.wad)|*.wad|pk3 files (*.pk3)|*.pk3|zip files (*.zip)' +
'|*.zip|All files (*.*)|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
Left = 33
Top = 345
end
object Timer1: TTimer
Enabled = False
Interval = 100
OnTimer = Timer1Timer
Left = 104
Top = 344
end
object HourglassTimer: TTimer
Enabled = False
Interval = 10
OnTimer = HourglassTimerTimer
Left = 568
Top = 208
end
end