1 object PackMapForm: TPackMapForm
2 Left = 312
3 Height = 229
4 Top = 231
5 Width = 360
6 BorderIcons = [biSystemMenu]
7 BorderStyle = bsSingle
8 Caption = 'Упаковать карту'
9 ClientHeight = 229
10 ClientWidth = 360
11 Color = clBtnFace
12 Font.Color = clWindowText
13 Font.Height = -11
14 Font.Name = 'MS Sans Serif'
15 OnCreate = FormCreate
16 Position = poScreenCenter
17 LCLVersion = '1.6.4.0'
18 object Panel1: TPanel
19 Left = 4
20 Height = 189
21 Top = 4
22 Width = 353
23 BevelInner = bvRaised
24 BevelOuter = bvLowered
25 ClientHeight = 189
26 ClientWidth = 353
27 TabOrder = 0
28 object LabelSaveTo: TLabel
29 Left = 6
30 Height = 13
31 Top = 6
32 Width = 65
33 Caption = 'Сохранить в:'
34 ParentColor = False
35 end
36 object LabelMapName: TLabel
37 Left = 214
38 Height = 13
39 Top = 6
40 Width = 109
41 Caption = 'Имя ресурса (карты):'
42 ParentColor = False
43 end
44 object LabelTextures: TLabel
45 Left = 94
46 Height = 13
47 Top = 62
48 Width = 103
49 Caption = 'Секция для текстур:'
50 ParentColor = False
51 end
52 object LabelSky: TLabel
53 Left = 94
54 Height = 13
55 Top = 86
56 Width = 88
57 Caption = 'Секция для неба:'
58 ParentColor = False
59 end
60 object LabelMusic: TLabel
61 Left = 94
62 Height = 13
63 Top = 110
64 Width = 103
65 Caption = 'Секция для музыки:'
66 ParentColor = False
67 end
68 object eWAD: TEdit
69 Left = 6
70 Height = 21
71 Top = 22
72 Width = 169
73 TabOrder = 0
74 end
75 object bSelectWAD: TButton
76 Left = 176
77 Height = 23
78 Hint = 'Выбрать фон'
79 Top = 20
80 Width = 23
81 Caption = '..'
82 OnClick = bSelectWADClick
83 TabOrder = 1
84 end
85 object eResource: TEdit
86 Left = 214
87 Height = 21
88 Top = 22
89 Width = 129
90 CharCase = ecUppercase
91 MaxLength = 16
92 TabOrder = 2
93 end
94 object eTSection: TEdit
95 Left = 214
96 Height = 21
97 Top = 62
98 Width = 129
99 CharCase = ecUppercase
100 MaxLength = 16
101 TabOrder = 4
102 end
103 object eSSection: TEdit
104 Left = 214
105 Height = 21
106 Top = 86
107 Width = 129
108 CharCase = ecUppercase
109 MaxLength = 16
110 TabOrder = 6
111 end
112 object eMSection: TEdit
113 Left = 214
114 Height = 21
115 Top = 110
116 Width = 129
117 CharCase = ecUppercase
118 MaxLength = 16
119 TabOrder = 8
120 end
121 object cbTextrures: TCheckBox
122 Left = 6
123 Height = 17
124 Top = 62
125 Width = 67
126 Caption = 'Текстуры'
127 Checked = True
128 State = cbChecked
129 TabOrder = 3
130 end
131 object cbSky: TCheckBox
132 Left = 6
133 Height = 17
134 Top = 86
135 Width = 44
136 Caption = 'Небо'
137 Checked = True
138 State = cbChecked
139 TabOrder = 5
140 end
141 object cbMusic: TCheckBox
142 Left = 6
143 Height = 17
144 Top = 110
145 Width = 57
146 Caption = 'Музыку'
147 Checked = True
148 State = cbChecked
149 TabOrder = 7
150 end
151 object cbAdd: TCheckBox
152 Left = 6
153 Height = 17
154 Top = 142
155 Width = 149
156 Caption = 'Не перезаписывать WAD'
157 TabOrder = 9
158 end
159 object cbNonStandart: TCheckBox
160 Left = 6
161 Height = 17
162 Hint = 'Не сохранять ресурсы из стандартных WAD''ов - Standart.wad и пр.'
163 Top = 158
164 Width = 182
165 Caption = 'Только нестандартные ресурсы'
166 TabOrder = 10
167 end
168 end
169 object bPack: TButton
170 Left = 282
171 Height = 25
172 Top = 200
173 Width = 75
174 Caption = 'Упаковать'
175 Default = True
176 OnClick = bPackClick
177 TabOrder = 1
178 end
179 object SaveDialog: TSaveDialog
180 DefaultExt = '.wad'
181 Filter = 'Карты Doom2D: Forever (*.wad)|*.wad|All files (*.*)|*.*'
182 Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing, ofDontAddToRecent]
183 left = 8
184 top = 200
185 end
186 end