Revert to old wad read/write method
[d2df-editor.git] / src / editor / f_main.lfm
blob79d039a252cdbedeefd5193501b79a03c3d3dbd6
1 object MainForm: TMainForm
2   Left = 176
3   Height = 480
4   Top = 142
5   Width = 672
6   AllowDropFiles = True
7   Caption = '2'
8   ClientHeight = 480
9   ClientWidth = 672
10   Color = clBtnFace
11   Constraints.MinHeight = 480
12   Constraints.MinWidth = 672
13   Font.Color = clWindowText
14   Font.Height = -11
15   Font.Name = 'MS Sans Serif'
16   KeyPreview = True
17   Menu = MainMenu
18   OnActivate = FormActivate
19   OnCloseQuery = FormCloseQuery
20   OnCreate = FormCreate
21   OnDestroy = FormDestroy
22   OnDropFiles = FormDropFiles
23   OnKeyDown = FormKeyDown
24   OnKeyUp = FormKeyUp
25   OnResize = FormResize
26   OnWindowStateChange = FormWindowStateChange
27   LCLVersion = '2.2.4.0'
28   object PanelMap: TPanel
29     Left = 0
30     Height = 317
31     Top = 34
32     Width = 518
33     Align = alClient
34     BevelOuter = bvNone
35     ClientHeight = 317
36     ClientWidth = 518
37     TabOrder = 1
38     object RenderPanel: TOpenGLControl
39       Left = 0
40       Height = 301
41       Top = 0
42       Width = 502
43       Align = alClient
44       AlphaBits = 8
45       OnMouseDown = RenderPanelMouseDown
46       OnMouseMove = RenderPanelMouseMove
47       OnMouseUp = RenderPanelMouseUp
48       OnPaint = RenderPanelPaint
49       OnResize = RenderPanelResize
50     end
51     object sbHorizontal: TScrollBar
52       Left = 0
53       Height = 16
54       Top = 301
55       Width = 518
56       Align = alBottom
57       LargeChange = 256
58       Max = 0
59       PageSize = 0
60       SmallChange = 16
61       TabOrder = 0
62       TabStop = False
63       OnScroll = sbHorizontalScroll
64     end
65     object sbVertical: TScrollBar
66       Left = 502
67       Height = 301
68       Top = 0
69       Width = 16
70       Align = alRight
71       Kind = sbVertical
72       LargeChange = 256
73       Max = 0
74       PageSize = 0
75       SmallChange = 16
76       TabOrder = 1
77       TabStop = False
78       OnScroll = sbVerticalScroll
79     end
80   end
81   object pLoadProgress: TPanel
82     Left = 168
83     Height = 56
84     Top = 144
85     Width = 176
86     ClientHeight = 56
87     ClientWidth = 176
88     TabOrder = 7
89     Visible = False
90     object pbLoad: TProgressBar
91       Left = 8
92       Height = 16
93       Top = 8
94       Width = 160
95       Step = 1
96       TabOrder = 0
97     end
98     object lLoad: TLabel
99       Left = 8
100       Height = 16
101       Top = 32
102       Width = 160
103       AutoSize = False
104       ParentColor = False
105     end
106   end
107   object Splitter1: TSplitter
108     Left = 518
109     Height = 317
110     Top = 34
111     Width = 5
112     Align = alRight
113     Beveled = True
114     MinSize = 64
115     OnCanResize = Splitter1CanResize
116     OnMoved = Splitter1Moved
117     ResizeAnchor = akRight
118   end
119   object Splitter2: TSplitter
120     Cursor = crVSplit
121     Left = 0
122     Height = 3
123     Top = 351
124     Width = 672
125     Align = alBottom
126     MinSize = 64
127     OnCanResize = Splitter2CanResize
128     OnMoved = Splitter1Moved
129     ResizeAnchor = akBottom
130   end
131   object PanelProps: TPanel
132     Left = 523
133     Height = 317
134     Top = 34
135     Width = 149
136     Align = alRight
137     BevelInner = bvRaised
138     BevelOuter = bvLowered
139     ClientHeight = 317
140     ClientWidth = 149
141     TabOrder = 0
142     object vleObjectProperty: TValueListEditor
143       Left = 2
144       Height = 283
145       Top = 2
146       Width = 145
147       Align = alClient
148       AutoAdvance = aaNone
149       Constraints.MinWidth = 145
150       DefaultColWidth = 60
151       DefaultRowHeight = 20
152       FixedCols = 0
153       Flat = True
154       Font.Color = clWindowText
155       Font.Height = -12
156       Font.Name = 'MS Sans Serif'
157       MouseWheelOption = mwGrid
158       ParentFont = False
159       RowCount = 2
160       ScrollBars = ssAutoVertical
161       TabOrder = 0
162       OnEditButtonClick = vleObjectPropertyEditButtonClick
163       OnEnter = vleObjectPropertyEnter
164       OnExit = vleObjectPropertyExit
165       OnKeyDown = vleObjectPropertyKeyDown
166       DisplayOptions = [doColumnTitles, doAutoColResize]
167       DropDownRows = 11
168       Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goAlwaysShowEditor, goThumbTracking]
169       Strings.Strings = (
170         ''
171       )
172       TitleCaptions.Strings = (
173         'Свойство'
174         'Значение'
175       )
176       OnGetPickList = vleObjectPropertyGetPickList
177       ColWidths = (
178         72
179         72
180       )
181     end
182     object PanelPropApply: TPanel
183       Left = 2
184       Height = 30
185       Top = 285
186       Width = 145
187       Align = alBottom
188       BevelOuter = bvNone
189       ClientHeight = 30
190       ClientWidth = 145
191       TabOrder = 1
192       object bApplyProperty: TButton
193         Left = 6
194         Height = 25
195         Top = 1
196         Width = 129
197         Caption = 'Применить свойства'
198         OnClick = bApplyPropertyClick
199         TabOrder = 0
200       end
201     end
202   end
203   object StatusBar: TStatusBar
204     Left = 0
205     Height = 15
206     Top = 465
207     Width = 672
208     AutoHint = True
209     Panels = <    
210       item
211         Width = 600
212       end    
213       item
214         Width = 50
215       end>
216     SimplePanel = False
217     SizeGrip = False
218   end
219   object PanelObjs: TPanel
220     Left = 0
221     Height = 111
222     Top = 354
223     Width = 672
224     Align = alBottom
225     BevelInner = bvRaised
226     BevelOuter = bvLowered
227     ClientHeight = 111
228     ClientWidth = 672
229     Constraints.MinHeight = 111
230     TabOrder = 2
231     object pcObjects: TPageControl
232       Left = 2
233       Height = 107
234       Top = 2
235       Width = 668
236       ActivePage = tsPanels
237       Align = alClient
238       Images = ImageList
239       TabIndex = 0
240       TabOrder = 0
241       object tsPanels: TTabSheet
242         Caption = 'Панели'
243         ClientHeight = 68
244         ClientWidth = 662
245         ImageIndex = 12
246         object lbTextureList: TListBox
247           Left = 206
248           Height = 70
249           Hint = 'Список текстур'
250           Top = 0
251           Width = 244
252           Align = alClient
253           Constraints.MaxHeight = 600
254           Constraints.MinHeight = 70
255           ItemHeight = 13
256           OnClick = lbTextureListClick
257           OnDrawItem = lbTextureListDrawItem
258           Options = [lboDrawFocusRect]
259           Style = lbOwnerDrawFixed
260           TabOrder = 0
261         end
262         object PanelTextures: TPanel
263           Left = 450
264           Height = 68
265           Top = 0
266           Width = 212
267           Align = alRight
268           BevelOuter = bvNone
269           ClientHeight = 68
270           ClientWidth = 212
271           TabOrder = 1
272           object LabelTxH: TLabel
273             Left = 33
274             Height = 13
275             Top = 22
276             Width = 95
277             Caption = 'Высота текстуры:'
278             ParentColor = False
279           end
280           object LabelTxW: TLabel
281             Left = 33
282             Height = 13
283             Top = 0
284             Width = 101
285             Caption = 'Ширина текстуры:'
286             ParentColor = False
287           end
288           object lTextureHeight: TLabel
289             Left = 139
290             Height = 13
291             Top = 22
292             Width = 33
293             AutoSize = False
294             ParentColor = False
295           end
296           object lTextureWidth: TLabel
297             Left = 139
298             Height = 13
299             Top = 0
300             Width = 33
301             AutoSize = False
302             ParentColor = False
303           end
304           object cbPreview: TCheckBox
305             Left = 35
306             Height = 18
307             Top = 54
308             Width = 205
309             Caption = 'Предварительный просмотр'
310             TabOrder = 0
311           end
312           object bbAddTexture: TBitBtn
313             Left = 3
314             Height = 25
315             Hint = 'Добавить текстуру в список'
316             Top = 0
317             Width = 25
318             Caption = '+'
319             OnClick = bbAddTextureClick
320             TabOrder = 1
321           end
322           object bbRemoveTexture: TBitBtn
323             Left = 3
324             Height = 25
325             Hint = 'Удалить текстуру из списка'
326             Top = 24
327             Width = 25
328             Caption = '-'
329             OnClick = bbRemoveTextureClick
330             TabOrder = 2
331           end
332           object bClearTexture: TButton
333             Left = 3
334             Height = 25
335             Hint = 'Убрать выбор текстуры'
336             Top = 48
337             Width = 25
338             OnClick = bClearTextureClick
339             TabOrder = 3
340           end
341         end
342         object PanelPanelType: TPanel
343           Left = 0
344           Height = 68
345           Top = 0
346           Width = 206
347           Align = alLeft
348           BevelOuter = bvNone
349           ClientHeight = 68
350           ClientWidth = 206
351           TabOrder = 2
352           object lbPanelType: TListBox
353             Left = 0
354             Height = 68
355             Hint = 'Тип панели'
356             Top = 0
357             Width = 201
358             Align = alLeft
359             Items.Strings = (
360               'Стена'
361               'Фон'
362               'Передний план'
363               'Закрытая дверь'
364               'Открытая дверь'
365               'Ступень'
366               'Вода'
367               'Кислота 1'
368               'Кислота 2'
369               'Лифт вверх'
370               'Лифт вниз'
371               'Блокиратор монстров'
372             )
373             ItemHeight = 20
374             Options = [lboDrawFocusRect]
375             TabOrder = 0
376           end
377         end
378       end
379       object tsItems: TTabSheet
380         Caption = 'Предметы'
381         ClientHeight = 68
382         ClientWidth = 662
383         ImageIndex = 4
384         object lbItemList: TListBox
385           Left = 0
386           Height = 68
387           Hint = 'Список предметов'
388           Top = 0
389           Width = 201
390           Align = alLeft
391           Items.Strings = (
392             'Аптечка'
393             'Большая аптечка'
394             'Черная аптечка'
395             'Зеленая броня'
396             'Синяя броня'
397             'Шарик 100%'
398             'Мегасфера'
399             'Костюм'
400             'Акваланг'
401             'Неуязвимость'
402             'Бензопила'
403             'Ружье'
404             'Двустволка'
405             'Пулемет'
406             'Ракетница'
407             'Плазменная пушка'
408             'BFG9000'
409             'Суперпулемет'
410             'Патроны'
411             'Ящик патронов'
412             '4 гильзы'
413             '25 гильз'
414             '1 ракета'
415             '5 ракет'
416             'Батарейка'
417             'Батарея'
418             'Рюкзак'
419             'Красный ключ'
420             'Зеленый ключ'
421             'Синий ключ'
422             'Бутылек здоровья'
423             'Часть брони'
424           )
425           ItemHeight = 20
426           Options = [lboDrawFocusRect]
427           TabOrder = 0
428         end
429         object cbOnlyDM: TCheckBox
430           Left = 208
431           Height = 18
432           Top = 0
433           Width = 102
434           Caption = 'Только в DM'
435           TabOrder = 1
436         end
437         object cbFall: TCheckBox
438           Left = 208
439           Height = 18
440           Top = 16
441           Width = 67
442           Caption = 'Падает'
443           TabOrder = 2
444         end
445       end
446       object tsMonsters: TTabSheet
447         Caption = 'Монстры'
448         ClientHeight = 68
449         ClientWidth = 662
450         ImageIndex = 15
451         object lbMonsterList: TListBox
452           Left = 0
453           Height = 68
454           Hint = 'Список монстров'
455           Top = 0
456           Width = 201
457           Align = alLeft
458           Items.Strings = (
459             'Демон'
460             'Бес'
461             'Зомби'
462             'Сержант'
463             'Кибердемон'
464             'Пулемётчик'
465             'Барон ада'
466             'Рыцарь ада'
467             'Какодемон'
468             'Огненный череп'
469             'Авиабаза'
470             'Большой паук'
471             'Арахнотрон'
472             'Манкубус'
473             'Скелет'
474             'Колдун'
475             'Рыба'
476             'Бочка'
477             'Робот'
478             'Приколист'
479           )
480           ItemHeight = 20
481           Options = [lboDrawFocusRect]
482           TabOrder = 0
483         end
484         object rbMonsterLeft: TRadioButton
485           Left = 208
486           Height = 18
487           Top = 0
488           Width = 58
489           Caption = 'Влево'
490           Checked = True
491           TabOrder = 1
492           TabStop = True
493         end
494         object rbMonsterRight: TRadioButton
495           Left = 208
496           Height = 18
497           Top = 16
498           Width = 66
499           Caption = 'Вправо'
500           TabOrder = 2
501         end
502       end
503       object tsAreas: TTabSheet
504         Caption = 'Области'
505         ClientHeight = 68
506         ClientWidth = 662
507         ImageIndex = 3
508         object lbAreasList: TListBox
509           Left = 0
510           Height = 68
511           Hint = 'Список областей'
512           Top = 0
513           Width = 201
514           Align = alLeft
515           Items.Strings = (
516             '1ый игрок'
517             '2ой игрок'
518             'Точка DM'
519             'Красный флаг'
520             'Синий флаг'
521             'DOM флаг'
522             'Красная команда'
523             'Синяя команда'
524           )
525           ItemHeight = 20
526           Options = [lboDrawFocusRect]
527           TabOrder = 0
528         end
529         object rbAreaLeft: TRadioButton
530           Left = 208
531           Height = 18
532           Top = 0
533           Width = 58
534           Caption = 'Влево'
535           Checked = True
536           TabOrder = 1
537           TabStop = True
538         end
539         object rbAreaRight: TRadioButton
540           Left = 208
541           Height = 18
542           Top = 16
543           Width = 66
544           Caption = 'Вправо'
545           TabOrder = 2
546         end
547       end
548       object tsTriggers: TTabSheet
549         Caption = 'Триггеры'
550         ClientHeight = 68
551         ClientWidth = 662
552         ImageIndex = 6
553         object lbTriggersList: TListBox
554           Left = 0
555           Height = 68
556           Hint = 'Список триггеров'
557           Top = 0
558           Width = 201
559           Align = alLeft
560           Items.Strings = (
561             'Выход'
562             'Телепортация'
563             'Открыть дверь'
564             'Закрыть дверь'
565             'Дверь'
566             'Дверь (5 сек)'
567             'Закрыть ловушку'
568             'Ловушка'
569             'Расширитель'
570             'Секрет'
571             'Лифт вверх'
572             'Лифт вниз'
573             'Лифт'
574             'Смена текстуры'
575             'Включатель'
576             'Выключатель'
577             'Переключатель'
578             'Звук'
579             'Создать монстра'
580             'Создать предмет'
581             'Музыка'
582           )
583           ItemHeight = 20
584           Options = [lboDrawFocusRect]
585           TabOrder = 0
586         end
587         object clbActivationType: TCheckListBox
588           Left = 201
589           Height = 68
590           Hint = 'Тип активации триггера'
591           Top = 0
592           Width = 128
593           Align = alLeft
594           Items.Strings = (
595             'Игрок близко'
596             'Монстр близко'
597             'Игрок нажал'
598             'Монстр нажал'
599             'Выстрел'
600             'Монстров нет'
601           )
602           ItemHeight = 20
603           TabOrder = 1
604           Data = {
605             06000000000000000000
606           }
607         end
608         object clbKeys: TCheckListBox
609           Left = 329
610           Height = 68
611           Hint = 'Ключи для активации'
612           Top = 0
613           Width = 128
614           Align = alLeft
615           Items.Strings = (
616             'Красный ключ'
617             'Зеленый ключ'
618             'Синий ключ'
619             'Красная команда'
620             'Синяя команда'
621           )
622           ItemHeight = 20
623           TabOrder = 2
624           Data = {
625             050000000000000000
626           }
627         end
628       end
629     end
630   end
631   object MainToolBar: TToolBar
632     Left = 0
633     Height = 34
634     Top = 0
635     Width = 672
636     ButtonHeight = 31
637     ButtonWidth = 31
638     Caption = 'MainToolBar'
639     Images = ilToolbar
640     TabOrder = 3
641     object tbNewMap: TToolButton
642       Left = 1
643       Hint = 'Очистить карту'
644       Top = 2
645       Caption = 'tbNewMap'
646       ImageIndex = 0
647       OnClick = aNewMapExecute
648     end
649     object tbOpenMap: TToolButton
650       Left = 32
651       Hint = 'Открыть карту'
652       Top = 2
653       Caption = 'tbOpenMap'
654       ImageIndex = 1
655       OnClick = aOpenMapExecute
656     end
657     object tbSaveMap: TToolButton
658       Left = 63
659       Hint = 'Сохранить карту'
660       Top = 2
661       Caption = 'tbSaveMap'
662       ImageIndex = 2
663       OnClick = aSaveMapExecute
664     end
665     object tbOpenWadMap: TToolButton
666       Left = 94
667       Hint = 'Открыть другую карты из этого же WAD''а'
668       Top = 2
669       Caption = 'tbOpenWadMap'
670       ImageIndex = 8
671       OnClick = miOpenWadMapClick
672     end
673     object tbLine1: TToolButton
674       Left = 125
675       Height = 31
676       Top = 2
677       Caption = 'tbLine1'
678       ImageIndex = 3
679       Style = tbsSeparator
680     end
681     object tbShowMap: TToolButton
682       Left = 133
683       Hint = 'Показать мини-карту'
684       Top = 2
685       Caption = 'tbShowMap'
686       ImageIndex = 3
687       OnClick = miMiniMapClick
688     end
689     object tbLine2: TToolButton
690       Left = 164
691       Height = 31
692       Top = 2
693       Caption = 'tbLine2'
694       ImageIndex = 6
695       Style = tbsSeparator
696     end
697     object tbShow: TToolButton
698       Left = 172
699       Hint = 'Отрисовка панелей/объектов'
700       Top = 2
701       Caption = 'tbShow'
702       DropdownMenu = pmShow
703       ImageIndex = 4
704       OnClick = tbShowClick
705       Style = tbsDropDown
706     end
707     object tbLine3: TToolButton
708       Left = 215
709       Height = 31
710       Top = 2
711       Caption = 'tbLine3'
712       ImageIndex = 7
713       Style = tbsSeparator
714     end
715     object tbGridOn: TToolButton
716       Left = 223
717       Hint = 'Включить/Отключить отображение сетки'
718       Top = 2
719       Caption = 'tbGridOn'
720       ImageIndex = 6
721       OnClick = tbGridOnClick
722     end
723     object tbGrid: TToolButton
724       Left = 254
725       Hint = 'Изменить шаг сетки'
726       Top = 2
727       Caption = 'tbGrid'
728       ImageIndex = 5
729       OnClick = miSwitchGridClick
730     end
731     object tbLine4: TToolButton
732       Left = 285
733       Height = 31
734       Top = 2
735       Caption = 'tbLine4'
736       ImageIndex = 7
737       Style = tbsSeparator
738     end
739     object tbTestMap: TToolButton
740       Left = 293
741       Hint = 'Тест карты в игре'
742       Top = 2
743       Caption = 'tbTestMap'
744       ImageIndex = 7
745       OnClick = miTestMapClick
746     end
747   end
748   object OpenDialog: TOpenDialog
749     DefaultExt = '.wad'
750     Filter = 'Карты Doom 2D: Forever (*.wad)|*.wad|Старые карты Doom 2D: Forever (*.ini)|*.ini|Все файлы (*.*)|*.*'
751     Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofFileMustExist, ofEnableSizing, ofDontAddToRecent]
752     Left = 32
753     Top = 64
754   end
755   object ImageList: TImageList
756     Left = 32
757     Top = 101
758     Bitmap = {
759       4C7A1E00000010000000100000003A1000000000000078DAED5D4DAC234711F6
760       D1471FDFD512A018118209903884102C72F101212B512483E06090001F22300A
761       3F464444161C9870409650248B4322733307C0E2B0F2811CBCAB080C22C24841
762       7837441B678982510879207E86FA7ABAE695DBDDD33DE3B7FB7697D7D2A799E9
763       E9AFBBFAA77AA6ABCBE352A954EAF7FBB1C4603048311C0EF7503242AFD78B7D
764       61B95CAAE36CB55465D8F89BF8D88AE3E3E378369BA934ABE3ADCA039C3CFCC9
765       64B2234FA7D3D9E3AF299D0DE08F46A3388A22253BB879F9ABD52A5E2C16AA1E
766       E3F1386EB7DBC17CC672BB8917EB75BC26487EB7DB4DDA66BB0D0242ABD54AF9
767       A84BC2DF0401A1D96C9E1A1FB2A831B2D90401A1D1681CC4AFD7EB7BFCF97A15
768       04938FBA20A06F42E0E2E709B55A6D67FCE0BA5AADC64747474190FD7F1A01BA
769       6122940BDD824E98407C68D94A3F47542E1D471A88E779CC9CE3241F739A4D7E
770       463AF74502621E74CD9380BA47E931EEA52E6F08035D3FC833D472A22FA59CBD
771       7E2F9E2EE66ADC2E68ECA5D8AC533E3803A4C591CA9CD15C0BCC69CEB182F84B
772       C1C7FC012E8E139A9F381DE65985A5C02AC917E398F93C1FF649FED972A1E43D
773       C1C935EE29B9A8FC81E85BCC65E00FA8AD917E329F3B81FB739241F23196C11F
774       CDA69466E601E54172483EF4AF43751F137F3475638CB95BE721F9988B709DA4
775       9B383055F28D288F8131AE151FE36C3C52F74220F9AD563BCE0393EF1BFF2E9D
776       602EC633DA3624E0598876C638E0770D3CD343F908684FF4A11AEFE0936EE5E3
777       4FD538C278071FBA90871FD1BB04F818739001B2A04EA1F51F503F632C61DC43
778       06E4059982F97AACF1B8876EA14D3634471CEBF78D2D3DE725380EEF0E7D9A27
779       257F42FC683256F51AD2BC3BA0FB7D9AB34E10EDA087F142E5416F5007A95F18
780       E3B887BC7C60BED22BE261CECF0AA89F9A4F291D00BD411D46BA3CDC53EF7634
781       6746C6FB1EF3D15FA7C9471D5827D3F7D0CDEE7844BB238EF99C1ECF6C9E3B00
782       8C858D7E3F31CBC5FB238E6A9E147CE860E8B31FE9382D705ACFFEE178160387
783       F0EB6DCC276D0BC2F9E5D24420222C1C79EEE6BBCF4FB809A29D7C6D3265959F
784       1C232737B4FCACB608293F8C1F09ECD7DF27BFAD9D77F38C32DBCF2E5D78FF1D
785       3EFE6E4D3EB887F0CDD0C2BC68818F572E95E22ACD33741A1F6954352A3896CB
786       31D2B8B8659DAE4D181BE8135A3A4F330FE6E2DE9CCA3FA639FD98E43DA6B919
787       88714E652F74DED5FD3CE2A1468CB5209E43F45C52E7585BD35A6D43F7D68429
788       619470636EAB8AE64E90A65251BC05C9B1D41CA48F080B9261AEAF9B00A56D52
789       DE5C36D22F290EB24F28ED50F3BA8415EA4269B97CB4478DD2A0FCB12E7BAE8F
790       C803F26EE8FE86CE51EF35EA4F18E934635D7E9BF21CE96B708EE9B9704CB26F
791       E97C8678E48178C845CF8EB58E1F697E4BCB3FD6F223ED96DB8AEE4F743BAC44
792       FC4CD7B70EF9895FE3BAEBFB7C3E233EB0D4755BEBE354B709F8DC7F251D0F39
793       17848EEEE3B26E6B94C963A087B8649C9E8C5B9DE752E4DFD4E8E8FA71DFD51C
794       63B0A2F31EEA3CB624C796CA99EB7E449FD52D5C994703CF663D4E7B242FD0D1
795       65D6283F17F734F4F73C18764D7ACF359187DBEC76F61092878B1B9A07A7ABD1
796       3C6482EFD9CA9465737A331DE761CAC0ED93C595F299F7659D6B1EDB94ED7E68
797       D959799A38D78070FB1DDBBAA4FD0ED7B015E01CF677698F93F673B67B61FD23
798       6D5F6C9752F6318C2F9D0690F663BEC7F60006D2A8F5999643E629ED9F90BFAF
799       ED67D276C76B25E6B39C597C692301B7427336F2421A179FDB0AF1580FE31EE4
800       643ECE110F707B48FB3FDA1665B47A5DB59E447AE48173D899957D8BDA1BF921
801       8DD9FEB2AF9096E5E77E60FB2AF2E2381B9FFB85DB81ED3B38471CE451764243
802       7E6E3FD38E2AFB9EDB8FDB59B61FE76FF6BF8C431EDCFFDC3EE6F8293AFEB8EE
803       9C9E81BA721CCBC3B652C9C739DA86ED090CB4B78CE3346C37B819E7028C45C0
804       17E75C0B513BDBF8C3C067EFA17C9E03380FE6CAFDC6CC772F1A57482BF9E678
805       0D95019C3C659B32C863EE35207118B9783D7A378806717B483A308E14DA7D9A
806       BF68DE09E122AD5AD376A8EC412FAE7592F25B148FFB3EFECE7B8671DD1EB865
807       A835EB54DEC9FDEEA01F37BAEDB83338697BF01B9D666C5F8337559DDB11E978
808       D44F65850C9D21CD97239A4F08D556DD2D439BE66BAA2F8E7BF1DD5626F7AC82
809       CD7720CB5720D47760A9F79ACCBD3A17DFDCEF0F95CBB6F70E7E965CEBD93C95
810       CBCBDF6C53987E08BC7F60DBFB4FF9D82FD6603F04E983E0DA7B77F16147963E
811       0879F88CCD6291FA20B8F6DE39DFE3D5DA0AF60170ED9DE7E59B81E5DA527FD9
812       C07BF0AEBD73CE1775B5C1DCC3DF5BE304ECE9CB3D7CDBB8F6D9F55B37608D22
813       75288F5EBBF4DBD41FCECFB5CF28F5C8A63FE0B6E9D8EAB4D5D18459BEA93F98
814       171A78B77280F9585F7230F5A78EF76C0798CBEB530EAC3F28BF8A7E26F0DE1D
815       C0D7CCED90CCBC3EE680F187F2CBE5B24ABFC6FE12F663F53E601697C71FF301
816       C864DA3B2417FB58E6F8431D64608EC945DE2843BEF7F2DEBFD253D85E75F9E0
817       9932B38DCF7CEF653D5F59F89C47087FAEF92D7AE6DB6C2E90DFC6673D8F34DF
818       0ADDDFE09B3ADFD063C417587E932FF7F442F7FE6C7A9AE5C362C2F64C663F80
819       10D8F8283F946F7B1F4EFC00C2FCDFB026B3F143FDC7E4DA57CE73A1FE5F72ED
820       2B7DF89CFE3A066CF33E64DAF1D3C9808B9FF8EAD8B1567E0B63756EEA30EB71
821       96DF0EB8D04D9CBBF8891F801FB6B56FB28F3F0D828B1FE2B300D8F8A813FB05
822       F8607BEE2B3F00D8510260E3B37EFB00FD37F9B793FF2FA67320C4FF17E9249F
823       B980CFFF97D3493E64B4E561FAFFCA34E61A42DEB7F9FF9A5C9BFFAFCC43CE7B
824       92EBF3FF9569CD6BE4EFF3FF35EBC93CEEC710FF5F939BC7FF57F2F83CD4FF57
825       CA8A6B994788FF2FD29B73BECCA3A8FFAFCCE310FF5F397E46C25FD6079B4F2F
826       C78700F3898B0FFDB0E525E3B3F8384ADB3543C667F1198DD6600FD57A5FC116
827       6FE3737A46E5A8E78C3F6D3EC787C26C7F5B3D5D907C6E679B9C2E84D63F8B2F
828       F794D45A2A67FDCDF1E0AA3FF78119B7F71C77C86FEBC3EBC1CF5BFF5667E645
829       BD3175AEF7F97E162AD5F10DE1C36FD30773EFDBE467EDBBDBF6A6AF17DFE67B
830       605B9B67F1E53AD806A43B94CFFD0314E1EFAC41CE982FFD078AF04D7F84B3E4
831       4BFB49167CF637EF6F623CF6371B9016E0B54696FDCD679B033FCBFE6603DEC3
832       17C2FF9FED6F3620B8EE752CF6455B38AA1E59C1FEFFE5A34A2EB0FCECBFCFF6
833       BBBC3894CFFEFB1946AB1350601ECB2FF95BED1FE882B481495B9EB4FF65C1C7
834       9F6BFF3E17249FE5E7BD79B6FF65C1563EEFE387061B3FD4FE67F3FFCFFA0D40
835       BD4EF37967AE8073DF5E31D2F57A4B85763B398FA24D0A5C239FC160ADD2F2FA
836       1332B05F04D28D46DB943B99603D1CAB23E753AB45A9DE711DD8B785CB4539B6
837       F201F88E4B8EF289215992F61BA6F2F7FB2B2DE72CAD1BE28E8E063B1CAE03CD
838       B871A5823D92B5AA23D2E39C8F88831CC8DBD6F6901979371A13555FAE33AEB9
839       2D704439667F707D390FA439414BC43569BE59A8B490277D67AC46691CEAC07D
840       2EFB12D7687B96A7563BF90D1938E572570165203DDA0D7D893C71C475D2FE25
841       2DCBBE0D34A957537120278F411C71AD65CE1C8F2C6792867F2B807DC2A98AF3
842       8D65A485BC3826ED398CD13E9019FD88781F3F19CFC9D8417B01384F6C1E7E3E
843       DA16654A7F1F0079F8F9E91B40DAE71803B2BF7C6180DF2866A0E3F96D2FA771
844       A16AF1E3E84D68BC6914E537077D85D3E6F37C6BE377227A4F23F8F8B001721E
845       26BFDEEB06F0B7E933A0089F7F1B289E234E3ECBC8407AEC5FF1EF08651E36BE
846       09A455FBBE3A0FF93C633ED255DA2D2BF899CBBF818B76FA24E1BB506A2A3BA1
847       DAAF058FE530E5F7F1B94C9683F9699A2C88DF8BE0A86C998BE54E3FE408F174
848       3A8DE7F379517EC990E7FFC2773F2F57AE9F783F3B946FFAD817C9C3255351BE
849       6FBDE86BC7A2DCA2E5DADAF1ACC65051FE59CB7F1EECF642A0288F6D6579B9D2
850       969965CFB4BED306F26CF5F2D96FCD72CC3C7CF65719904EE691A76C338FBC65
851       DBEA91B76C53862265CB3C6E057D380DFBDF77BFF1D94260FBDFB71FFF947A1F
852       C4D13CCF02DBFF9E7CEC5105AC956CE72EB0FDEF9B9FFF7821B01DE2EB9F496C
853       48389AE75960FBDF573EFD5105C86C3B7781ED775FFEC483562064C533FF8B8F
854       DEEF04E470C5B3FDEEB187EF2D8443F96CBF3B4B3EEAE0BA8F9015CFF63F5F19
855       AEF8D3B0FFDD2CFA5F04A6FE2348FDF65DDBF41FED1A7A2DF5BF084CFDCF0B53
856       FF4D7DF75DDBF4DFD4F7ACEB9B4DFF4D7DF35DDBF4DFD4B7AC6B9FFEFB10A2FF
857       3EFE69D8FF6FC6EF7FC9DF74AEB50F7591EF7F299F76F3370081DFFF72951FFA
858       FD2F9397F7FB5F5CFEF9F7BFCEBFFF753DBFFF755AFA1FBA7F9EF7FB7F72CF7C
859       A174C5AEFFA1FBE7C1DFFF73EC5D67E97FC8DE7596FEFBF68E51BE4BFF43F78E
860       CFF5FF5CFF4FF3FB7FB743582C57F19C746B388CD4776CF97B1BEA9B1BF8ED23
861       8DFBF97CE16CB3118D078C25708191FA7E718281FA0D7FF2CD8BC9C46E936AD1
862       3D55761FDF2D69A9EF7EA0CF7054BF33A4B11145898F2DF2B695AFFB34F50D29
863       27DFC74A7D5D30F70EF45CBFFFFB9FAEAA23D2A28CC572B933674036F84ED5EA
864       F57896EC3DED8431D50BA82663720F6807E47FE41877286F3A9BC7E88746F2DB
865       80E43B72D406539A1F00B4C560308C5DFD873A7749BFC6E349CA419FA23F900F
866       CA473A571FAAFED7DF40E1BD77C882369B2F96995C290797CD08E1DDCAF6BF43
867       FDFF6AB57A21F0F33FCB7FCF86767BAAC0CF7F8C49175AADA9F31E3FFF1B8D69
868       262AF4CE6143EAFF5729E742AD3655E0E777097A5E0045FCFFA44EF3F3BB549A
869       06E1849F5C9FF0270263818901BBFF1ECD7E8170F18781606E72CDCFFF52A91F
870       08BBFF5FA9D435D0735C9FBEFF5F93F4D087463BE35B6EFA7E166ACDC60DE117
871       F1FF37F979FDF7AF173FF4771959FC90DF551CCAE7FE018AF05DFEFB67C197FE
872       FF37D3EF5A8AF0E59E71166EA7DFFF5EFDEF5BF1D5FF68D0F92BFA3AF4FF7F5E
873       FED79B1A7F4B8EFF4EAE43FFFFE7CA3FDF885F225CF9C709701DFCFF3F6FFD55
874       E18F7F07B6EA38A7E70B9FAF0959FFFFF3E21BAFEF005C1FE4EF777FFF973F13
875       5E8B57849F3CF0C00E7EFAE10FEFC50192FFC26BAF2A3C4BCFB450C8DFDFFEE6
876       D5AB8457E25FD3F1FB77DF1D04C9FFD5D597E35F1270443B7FEBCE3BBD90FCE7
877       FFF4D20E90C797EEB823FD2DB0049EA738CADFEF5EBA728570591F9373A4B974
878       F9727C9170E97212773BFEFFCFAD1A3EF7C413F1D79E7A2AFECED34FC779E3D2
879       FE7BF861E5E7F655B1AE0E8DBB99F2C0B5F2D7A3FBB74ADCC7F02DCE471E893F
880       F0D043B9E3CE83FD7FBBF200CF4335F7BFF0420A84679E7926BE70E142FAED00
881       9C234E06FE962BC2B56BD71438C8BC6CD7BC3FC6CFBE22015C3CBB9EFBC1270B
882       015C3C878BF2F9FB79385F4E9F8C57179E4EEFBDB4FC791A0F701CF0E273CFAA
883       6BFE3E27CE7FFBB3EFC56FBE7E355EFCF00BEAFED5DFFD42C5AF2FFD38CD8B8F
884       7C0F5C3C7B988FF2AFFDE1F93D0E9FE39EBCE6EFEF319FC13C9603C039F3186C
885       67C3F9F33F7A5C81EFC9BC6CD700DBE88AB63FF38B06F6C1291A783DCE7BC517
886       2F5E4CEFB1AEACF5FB1EC7B15E49FE21B891FE3F1FB9FF7D07F9FF3C785F3DD3
887       FFC78707EEB9EB20FFBF0FBDFF5D4EFFBF107CF0EE771EE4FF73DF7BEFC8E5FF
888       67A2F19E7778FD7FB270EF5D6FDFB9CEEBBF73CFBBDF7690FF8FC9CFEBBFE7E2
889       233E1479FCFF6E05FF9FFF01EC9EB8A4
890     }
891   end
892   object SaveDialog: TSaveDialog
893     DefaultExt = '.wad'
894     Filter = 'Карты Doom 2D: Forever (*.wad)|*.wad|Все файлы (*.*)|*.*'
895     Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofDontAddToRecent]
896     Left = 64
897     Top = 64
898   end
899   object MainMenu: TMainMenu
900     Images = ImageList
901     Left = 96
902     Top = 64
903     object miApple: TMenuItem
904       Caption = ''
905       Enabled = False
906       Visible = False
907       object miAppleAbout: TMenuItem
908         Caption = 'About Editor'
909         OnClick = aAboutExecute
910       end
911       object miAppleLine0: TMenuItem
912         Caption = '-'
913       end
914       object miApplePref: TMenuItem
915         Caption = 'Preferences...'
916         ShortCut = 4284
917         OnClick = aEditorOptionsExecute
918       end
919       object miAppleLine1: TMenuItem
920         Caption = '-'
921       end
922     end
923     object miMenuFile: TMenuItem
924       Caption = 'File'
925       object miNewMap: TMenuItem
926         Caption = 'New'
927         ImageIndex = 0
928         ShortCut = 16462
929         OnClick = aNewMapExecute
930       end
931       object miOpenMap: TMenuItem
932         Caption = 'Open...'
933         ImageIndex = 1
934         ShortCut = 16463
935         OnClick = aOpenMapExecute
936       end
937       object miMacRecentSubMenu: TMenuItem
938         Caption = 'Open Recent'
939         Enabled = False
940         Visible = False
941         object miMacRecentEnd: TMenuItem
942           Caption = '-'
943         end
944         object miMacRecentClear: TMenuItem
945           Caption = 'Clear Recent'
946           OnClick = miMacRecentClearClick
947         end
948       end
949       object Separator1: TMenuItem
950         Caption = '-'
951       end
952       object miSaveMap: TMenuItem
953         Caption = 'Save'
954         ImageIndex = 2
955         ShortCut = 16467
956         OnClick = aSaveMapExecute
957       end
958       object miSaveMapAs: TMenuItem
959         Caption = 'Save As...'
960         ImageIndex = 21
961         OnClick = aSaveMapAsExecute
962       end
963       object miOpenWadMap: TMenuItem
964         Caption = 'Select Map...'
965         ImageIndex = 28
966         OnClick = miOpenWadMapClick
967       end
968       object miReopenMap: TMenuItem
969         Caption = 'Revert to Saved'
970         ImageIndex = 1
971         ShortCut = 116
972         OnClick = miReopenMapClick
973       end
974       object miLine1: TMenuItem
975         Caption = '-'
976       end
977       object miSaveMiniMap: TMenuItem
978         Caption = 'Export Minimap...'
979         ImageIndex = 22
980         OnClick = miSaveMiniMapClick
981       end
982       object miDeleteMap: TMenuItem
983         Caption = 'Delete from WAD...'
984         ImageIndex = 11
985         OnClick = aDeleteMap
986       end
987       object miPackMap: TMenuItem
988         Caption = 'Pack to WAD...'
989         ImageIndex = 26
990         OnClick = miPackMapClick
991       end
992       object miWinRecentStart: TMenuItem
993         Caption = '-'
994         Enabled = False
995         Visible = False
996       end
997       object miWinRecent: TMenuItem
998         Caption = 'Recent Files'
999         Enabled = False
1000         Visible = False
1001       end
1002       object miLine2: TMenuItem
1003         Caption = '-'
1004         Enabled = False
1005         Visible = False
1006       end
1007       object miExit: TMenuItem
1008         Caption = 'Exit'
1009         Enabled = False
1010         ImageIndex = 10
1011         ShortCut = 121
1012         Visible = False
1013         OnClick = aExitExecute
1014       end
1015     end
1016     object miMenuEdit: TMenuItem
1017       Caption = 'Edit'
1018       object miUndo: TMenuItem
1019         Caption = 'Undo'
1020         Enabled = False
1021         ImageIndex = 5
1022         ShortCut = 16474
1023         OnClick = aUndoExecute
1024       end
1025       object miLine3: TMenuItem
1026         Caption = '-'
1027       end
1028       object miCopy: TMenuItem
1029         Caption = 'Copy'
1030         Enabled = False
1031         ImageIndex = 8
1032         ShortCut = 16451
1033         OnClick = aCopyObjectExecute
1034       end
1035       object miCut: TMenuItem
1036         Caption = 'Cut'
1037         Enabled = False
1038         ImageIndex = 7
1039         ShortCut = 16472
1040         OnClick = aCutObjectExecute
1041       end
1042       object miPaste: TMenuItem
1043         Caption = 'Paste'
1044         ImageIndex = 9
1045         ShortCut = 16470
1046         OnClick = aPasteObjectExecute
1047       end
1048       object miLine4: TMenuItem
1049         Caption = '-'
1050       end
1051       object miSelectAll: TMenuItem
1052         Caption = 'Select All'
1053         ImageIndex = 24
1054         ShortCut = 16449
1055         OnClick = aSelectAllExecute
1056       end
1057       object miLine5: TMenuItem
1058         Caption = '-'
1059       end
1060       object miSnapToGrid: TMenuItem
1061         Caption = 'Snap to Grid'
1062         ImageIndex = 20
1063         ShortCut = 16465
1064         OnClick = miSnapToGridClick
1065       end
1066       object miSwitchGrid: TMenuItem
1067         Caption = 'Switch Grid Granularity'
1068         ImageIndex = 19
1069         ShortCut = 16453
1070         OnClick = miSwitchGridClick
1071       end
1072       object Separator2: TMenuItem
1073         Caption = '-'
1074       end
1075       object miToFore: TMenuItem
1076         Caption = 'Bring to Front'
1077         Enabled = False
1078         ImageIndex = 25
1079         ShortCut = 16605
1080         OnClick = aMoveToFore
1081       end
1082       object miToBack: TMenuItem
1083         Caption = 'Send to Back'
1084         Enabled = False
1085         ImageIndex = 13
1086         ShortCut = 16603
1087         OnClick = aMoveToBack
1088       end
1089       object miLine6: TMenuItem
1090         Caption = '-'
1091       end
1092       object miMapOptions: TMenuItem
1093         Caption = 'Map Properties...'
1094         ImageIndex = 14
1095         ShortCut = 16461
1096         OnClick = aMapOptionsExecute
1097       end
1098       object miOptions: TMenuItem
1099         Caption = 'Preferences...'
1100         Enabled = False
1101         ImageIndex = 16
1102         Visible = False
1103         OnClick = aEditorOptionsExecute
1104       end
1105     end
1106     object miMenuView: TMenuItem
1107       Caption = 'View'
1108       object miLayers: TMenuItem
1109         Caption = 'Show Layers'
1110         ImageIndex = 25
1111         object miLayer1: TMenuItem
1112           Caption = 'Фон'
1113           Checked = True
1114           SubMenuImages = ImageList
1115           OnClick = miLayer1Click
1116         end
1117         object miLayer2: TMenuItem
1118           Caption = 'Стены'
1119           Checked = True
1120           OnClick = miLayer2Click
1121         end
1122         object miLayer3: TMenuItem
1123           Caption = 'Передний план'
1124           Checked = True
1125           OnClick = miLayer3Click
1126         end
1127         object miLayer4: TMenuItem
1128           Caption = 'Лестницы'
1129           Checked = True
1130           OnClick = miLayer4Click
1131         end
1132         object miLayer5: TMenuItem
1133           Caption = 'Жидкости'
1134           Checked = True
1135           OnClick = miLayer5Click
1136         end
1137         object miLayer6: TMenuItem
1138           Caption = 'Предметы'
1139           Checked = True
1140           OnClick = miLayer6Click
1141         end
1142         object miLayer7: TMenuItem
1143           Caption = 'Монстры'
1144           Checked = True
1145           OnClick = miLayer7Click
1146         end
1147         object miLayer8: TMenuItem
1148           Caption = 'Области'
1149           Checked = True
1150           OnClick = miLayer8Click
1151         end
1152         object miLayer9: TMenuItem
1153           Caption = 'Триггеры'
1154           Checked = True
1155           OnClick = miLayer9Click
1156         end
1157       end
1158       object miViewLine1: TMenuItem
1159         Caption = '-'
1160       end
1161       object miMiniMap: TMenuItem
1162         Caption = 'Show Minimap'
1163         ImageIndex = 14
1164         ShortCut = 16471
1165         OnClick = miMiniMapClick
1166       end
1167       object miShowEdges: TMenuItem
1168         Caption = 'Show Map Bounds'
1169         ImageIndex = 29
1170         OnClick = miShowEdgesClick
1171       end
1172       object miViewLine2: TMenuItem
1173         Caption = '-'
1174       end
1175       object miMapPreview: TMenuItem
1176         Caption = 'Preview Mode'
1177         ImageIndex = 23
1178         ShortCut = 9
1179         OnClick = miMapPreviewClick
1180       end
1181     end
1182     object miMenuService: TMenuItem
1183       Caption = 'Service'
1184       object miCheckMap: TMenuItem
1185         Caption = 'Analyse Map...'
1186         ImageIndex = 17
1187         OnClick = aCheckMapExecute
1188       end
1189       object miOptimmization: TMenuItem
1190         Caption = 'Optimize Map...'
1191         ImageIndex = 18
1192         OnClick = aOptimizeExecute
1193       end
1194       object miTestMap: TMenuItem
1195         Caption = 'Run Test'
1196         ImageIndex = 27
1197         OnClick = miTestMapClick
1198       end
1199     end
1200     object miMenuWindow: TMenuItem
1201       Caption = 'Window'
1202       Enabled = False
1203       Visible = False
1204       object miMacMinimize: TMenuItem
1205         Caption = 'Minimize'
1206         ShortCut = 4173
1207         OnClick = miMacMinimizeClick
1208       end
1209       object miMacZoom: TMenuItem
1210         Caption = 'Zoom'
1211         OnClick = miMacZoomClick
1212       end
1213     end
1214     object miMenuHelp: TMenuItem
1215       Caption = 'Help'
1216       object miAbout: TMenuItem
1217         Caption = 'About Editor'
1218         Enabled = False
1219         ImageIndex = 16
1220         Visible = False
1221         OnClick = aAboutExecute
1222       end
1223     end
1224     object miMenuHidden: TMenuItem
1225       Caption = 'hidden'
1226       Visible = False
1227       object minexttab: TMenuItem
1228         Caption = 'next tab'
1229         ShortCut = 16393
1230         OnClick = minexttabClick
1231       end
1232       object selectall1: TMenuItem
1233         Caption = 'select all'
1234         ShortCut = 49217
1235         OnClick = selectall1Click
1236       end
1237     end
1238   end
1239   object pmShow: TPopupMenu
1240     Images = ImageList
1241     Left = 128
1242     Top = 64
1243     object miLayerP1: TMenuItem
1244       Caption = 'Фон'
1245       Checked = True
1246       OnClick = miLayer1Click
1247     end
1248     object miLayerP2: TMenuItem
1249       Caption = 'Стены'
1250       Checked = True
1251       OnClick = miLayer2Click
1252     end
1253     object miLayerP3: TMenuItem
1254       Caption = 'Передний план'
1255       Checked = True
1256       OnClick = miLayer3Click
1257     end
1258     object miLayerP4: TMenuItem
1259       Caption = 'Лестницы'
1260       Checked = True
1261       OnClick = miLayer4Click
1262     end
1263     object miLayerP5: TMenuItem
1264       Caption = 'Жидкости'
1265       Checked = True
1266       OnClick = miLayer5Click
1267     end
1268     object miLayerP6: TMenuItem
1269       Caption = 'Предметы'
1270       Checked = True
1271       OnClick = miLayer6Click
1272     end
1273     object miLayerP7: TMenuItem
1274       Caption = 'Монстры'
1275       Checked = True
1276       OnClick = miLayer7Click
1277     end
1278     object miLayerP8: TMenuItem
1279       Caption = 'Области'
1280       Checked = True
1281       OnClick = miLayer8Click
1282     end
1283     object miLayerP9: TMenuItem
1284       Caption = 'Триггеры'
1285       Checked = True
1286       OnClick = miLayer9Click
1287     end
1288   end
1289   object ilToolbar: TImageList
1290     Height = 24
1291     Width = 24
1292     Left = 64
1293     Top = 101
1294     Bitmap = {
1295       4C7A090000001800000018000000810800000000000078DAED9C4D6C13471886
1296       73E4C021C71C9020200E415C0C17A2860A0511513797BAD046A610D1084465A4
1297       0859296903B4A2AE04C554855A42540E8283252EAE9A83D51E624A8B64E84F2C
1298       B5A42E42C4A228C18594384A4169E9613AEFD86376C7E3DD19EF889FC423BD9A
1299       9DBF6766677667BEFD1C686A7A7A211C0E13AB86868698229188A354F9A15088
1300       A8866C36CBE2542ECBC6629A9FC964589C9B2FB23ED056955F20F38E9A9F9F27
1301       A954AAC257ED43879F4824AAEE29180C2AF1F3B4BD93C08FC562241A8D569E05
1302       B04DF273B91C5B03CC53329924F1789C040201237CAE6CB14032F93C539ECA8D
1303       DFD7D7675B3355E5E99A20F8FD7E357EB1A825DC8B0A1FEB53E217B4C4F99D9D
1304       9D4AFC6CA1A025553ED687BD9B85BC96B00608EDEDED8E7CCC1FE3979F095561
1305       0DF4F8392D610D9E277E9AB6D111D618C1E7F33D533E9E2FADF52D3C8975F8F5
1306       86B6B636D7FD0D755A5B5B494B4B8BB6DCF687467876C184FDE4C4C6F9594B5E
1307       FB407BD803B5E4950F1B33466D8D58B46473446354B8464CF9DC0E7593935DCB
1308       B81AC2BBE82491EF66235B150AF5D5B6EDE83E81D3264AED3BEBBEA0C3763FCF
1309       0A363EEC12EB3CE27E9027D3105D13A7B3067B759ADA76557CCB77C5134EF5D8
1310       D0B696B2857C159BDB2561819FA2DF0FBA021BF720F26197F075475F187B2A9B
1311       515669FCCE7C3EBFE027A95D9CCCA425AACEC7B8918FEF0B3E7F221FE74290F3
1312       03419248A7B5C4EF017D896C7E2E62DCB80FCC4D229D5216EE017DB0FBA1FDD4
1313       E2830DC5534965811F4FA54AFC6C86CD938C0FBB086CBF3F4062F45B4447BC0F
1314       D60FBD0719DFE76B676733E626964C280BF7803E189FF6236397F83EC647B9AA
1315       C0B5C62A7C8CBF1EF13E6AF14B6BEC275ED5B032BC9DF1BA67A44C325B0079F8
1316       06C4BB526F80CF00EF03F620D11F84330BDF805EF80878E7B04F88E73BE3D333
1317       D33B3FC9F620ECC3221F679B573EDE2FF0453F0DE60BE78E577E84DA92D8E364
1318       7C9C3F46F89421F2B11E3883E229AFFC18DBE7443F10F849C64F7A7A3E87C04F
1319       55F3B1DE5817ACBF273EEC6DCA10BFF34A36439A3DBF056A7FCD977D6C50B158
1320       7414AF03FF58B8BC57CBF8A5B32D5ED9C7B156D8DBC3D1480D45AB14C21E43C7
1321       28FA81305F569B007318A36B81BA3A671A978C5F3AA34B7EC654D9B7ACB32F30
1322       3F38BEA5A8443F0AE62B561E2BEAF1E73418A636239D8BA8C4576B0DA8CF6CFC
1323       67C867EB499F5FBCCBFC390D503E7F26DCF635F0D11E12FD28580F5E867A5857
1324       845064883D17B164C2F1B957E2E33B3156E6D3E794F9D1E9BBC0ED4031F0E71F
1325       75D03FE39719A29F06F3C5CBF02E63CC85B24FAAD698510EC1CF8D352A7D37C8
1326       F9085EFC3E68CBDB430D6B46D3FF40D7D3B444BE3F18302619BF93BEC3A624E3
1327       B7D377CCAB12F85EA212F9119AF6D177CC4D59FA2EA9D48B48F86D74CF70538E
1328       9E812AF5AAF9D4BEC5EF1C0A6AC57B5A4329BA4F41E089F6734B6B8B3189363A
1329       D2CD2DCDC624E32F696EF6AC34B5A120297FC9126392F169644C32BE6BA0EDAA
1330       C4B29F70F17B6AA6C6FCD4643849E0BB8DBF48CB74A4CBCFD1321DE9CE4F9AD6
1331       D191EEF813B44C47BAFC282DD391F6F35347501DBF6935AC1AF5E00FA6888E7C
1332       ED49A2CB471B5535B7C617351FDF753AEAEC73FEBB1C191F6D54D5E6F2BBF242
1333       E7C36FA1A3A0E09F54E1A38DAAC4F57ED1F9FC9DE132CDAFFA3BA606DFF9EF5C
1334       CAEF0C97697ED5DFBD34F84DCEEB1DD6DAEF74F98B3D9C1C8E13D3B2F28F1E3D
1335       4A2E5E38654C070F1EB4F18F1C394212F168E91B83C65C625A55FBF6EDB3F10F
1336       1F3E4C2E9CF998696FEFB6CAB52CADA2DDBB77DBF883838364F8F487C6B46BD7
1337       2E1B7F6060807C71F27D63DAB163878D7FE0C0017236FA1E9BEF33C7062A12D3
1338       AAEAE9E9B1F1F7EFDF4F3E8FF433ED7CBDAB722D4BAB68FBF6ED363ED6FBD407
1339       2163127FFFDAB3670FF9F4D05E4721A8D6E9EEEEB6F17B7B7BC989C1B75DD5D3
1340       FDB2529DAD5BB7DAF858EF4FDEED35A62D5BB6D8F8588F63E19DC6B469D3A6AA
1341       DFBF4CF23B3A3A6C7CAC8749FE860D1B9E2A1FEB6D92BF7EFD7A1B7FF3E6CD46
1342       F9EBD6ADB3F1B1DE6E6D1054EBAC5DBBD6C6DFB871A3D2B8DE78E525A53A6BD6
1343       ACB1F1D11FB472E54AB27CF972B26CD9322DE1B72F3057AC584156AF5E5D35FE
1344       4668D83F3A692FF68F4A7AB1DA3FAA692FF68F4AFA79B47F7454CBFE41B0DA32
1345       F5A69DEC9F375FEDB0D932F5A417AAFD239EB1F5A69DEC1FF18CAD27BD50ED1F
1346       53F3EF64FF9898FF86FDD3082F6AB0FECEA19BA71AE0BF84CFD3DA56356FB1F5
1347       C17DCAD6B6AA79AA7E6DAB3F59356FA1B2ADBE78DDBC051EC4BFF3F09AE7D447
1348       AD749303C38DEDC4272EF7E995EFB5AECAF88981F13742C3FF5397FF67787898
1349       3C7CF8905CBB768DFD1B035CCFCECEB2FFFB05429AC7A87BFFFE7D56D79A1E1D
1350       1D2513131352FF0FEA80879873D01EED78DFC78F1FAFF4070E64ED97E7C9FC3F
1351       E060DC605AC7896B70C7C7C72BF9D0E4E46465FC225FE6FFE1E3E3E3468CFBE5
1352       3C5CF37C2E7E2FE88BDF2724F3FFCCCDCD1993CCFF9339FF8E31C9FC3F26F932
1353       FFCFAF5F7F5629BF77FB97CA75E166A65286EB99A99B64E287AF581A31D23F27
1354       0FB13ABC4CE6FF29FE9927DF9F798BDCBC7A913CFEE711BB86FE9E29907BF99F
1355       D9F583C9DF2B795713FD2C8D186DC7BEFC8895E15AE6FF99294C904BA77B58FC
1356       D79DDFD8757E6C845CFFE6B4ADECC69504997B7097C510F2797D5E47E6FFB9F1
1357       DD79327DFB3A9D839F58FCEDA96DA478F71699FE639C3C9A9D66F78F34EAA10C
1358       71FEC71176CDEBCF4CDD62F564FE9FD113AF91FF1EFF4BAE9CED634CA4511F31
1359       F270CDF3B9E6A6A7581EE6FCCEF54BE451719AA565FE1F6B3BAF92F97F4CF265
1360       FE9FA9A9296392F97F4CF265FE9F73E7CEB132FC3BC3A54B9756EAAE5AB58A8C
1361       8C8CB0EBAEAE2ED2DFDFCF62A4B10F4028477B944132FF0F6F636D8F7F7BC5DB
1362       F132CE1D1B1BABF48B341F1BAE65FE1FECCDE0F131A03EF2C0C078D0968F1F79
1363       972F5F66E2FD5ADB8AFE1FA44D6BA1D826FF034CA5D344
1364     }
1365   end
1366   object ColorDialog: TColorDialog
1367     Color = clBlack
1368     CustomColors.Strings = (
1369       'ColorA=000000'
1370       'ColorB=000080'
1371       'ColorC=008000'
1372       'ColorD=008080'
1373       'ColorE=800000'
1374       'ColorF=800080'
1375       'ColorG=808000'
1376       'ColorH=808080'
1377       'ColorI=C0C0C0'
1378       'ColorJ=0000FF'
1379       'ColorK=00FF00'
1380       'ColorL=00FFFF'
1381       'ColorM=FF0000'
1382       'ColorN=FF00FF'
1383       'ColorO=FFFF00'
1384       'ColorP=FFFFFF'
1385       'ColorQ=C0DCC0'
1386       'ColorR=F0CAA6'
1387       'ColorS=F0FBFF'
1388       'ColorT=A4A0A0'
1389     )
1390     Left = 64
1391     Top = 146
1392   end
1393   object MapTestTimer: TTimer
1394     OnTimer = MapTestCheck
1395     Left = 192
1396     Top = 64
1397   end