diff --git a/src/editor/f_main.lfm b/src/editor/f_main.lfm
index 9598f105109476fdd8c44361bcd3e5dd4d83c33f..238c1122fd4396ea9cfee8683ac9950d3d911796 100644 (file)
--- a/src/editor/f_main.lfm
+++ b/src/editor/f_main.lfm
object MainForm: TMainForm
- Left = 432
+ Left = 221
Height = 480
- Top = 732
+ Top = 232
Width = 672
AllowDropFiles = True
Caption = '2'
- ClientHeight = 453
+ ClientHeight = 480
ClientWidth = 672
Color = clBtnFace
Constraints.MinHeight = 480
OnKeyDown = FormKeyDown
OnKeyUp = FormKeyUp
OnResize = FormResize
+ OnWindowStateChange = FormWindowStateChange
LCLVersion = '2.2.4.0'
object Splitter1: TSplitter
Left = 518
- Height = 284
+ Height = 317
Top = 34
Width = 5
Align = alRight
Cursor = crVSplit
Left = 0
Height = 3
- Top = 318
+ Top = 351
Width = 672
Align = alBottom
MinSize = 64
end
object PanelProps: TPanel
Left = 523
- Height = 284
+ Height = 317
Top = 34
Width = 149
Align = alRight
BevelInner = bvRaised
BevelOuter = bvLowered
- ClientHeight = 284
+ ClientHeight = 317
ClientWidth = 149
TabOrder = 0
object vleObjectProperty: TValueListEditor
Left = 2
- Height = 250
+ Height = 283
Top = 2
Width = 145
Align = alClient
object PanelPropApply: TPanel
Left = 2
Height = 30
- Top = 252
+ Top = 285
Width = 145
Align = alBottom
BevelOuter = bvNone
end
object PanelMap: TPanel
Left = 0
- Height = 284
+ Height = 317
Top = 34
Width = 518
Align = alClient
BevelOuter = bvNone
- ClientHeight = 284
+ ClientHeight = 317
ClientWidth = 518
TabOrder = 1
object sbHorizontal: TScrollBar
Left = 0
Height = 16
- Top = 268
+ Top = 301
Width = 518
Align = alBottom
LargeChange = 256
end
object sbVertical: TScrollBar
Left = 502
- Height = 268
+ Height = 301
Top = 0
Width = 16
Align = alRight
end
object RenderPanel: TOpenGLControl
Left = 0
- Height = 268
+ Height = 301
Top = 0
Width = 502
Align = alClient
end
object StatusBar: TStatusBar
Left = 0
- Height = 21
- Top = 432
+ Height = 15
+ Top = 465
Width = 672
AutoHint = True
Panels = <
object PanelObjs: TPanel
Left = 0
Height = 111
- Top = 321
+ Top = 354
Width = 672
Align = alBottom
BevelInner = bvRaised
TabOrder = 0
object tsPanels: TTabSheet
Caption = 'Панели'
- ClientHeight = 77
- ClientWidth = 664
+ ClientHeight = 68
+ ClientWidth = 662
ImageIndex = 12
object lbTextureList: TListBox
Left = 206
- Height = 77
+ Height = 70
Hint = 'Список текстур'
Top = 0
- Width = 246
+ Width = 244
Align = alClient
Constraints.MaxHeight = 600
Constraints.MinHeight = 70
ItemHeight = 13
OnClick = lbTextureListClick
OnDrawItem = lbTextureListDrawItem
+ Options = [lboDrawFocusRect]
Style = lbOwnerDrawFixed
TabOrder = 0
- TopIndex = -1
end
object PanelTextures: TPanel
- Left = 452
- Height = 77
+ Left = 450
+ Height = 68
Top = 0
Width = 212
Align = alRight
BevelOuter = bvNone
- ClientHeight = 77
+ ClientHeight = 68
ClientWidth = 212
TabOrder = 1
object LabelTxH: TLabel
Left = 33
- Height = 14
+ Height = 13
Top = 22
- Width = 105
+ Width = 95
Caption = 'Высота текстуры:'
ParentColor = False
end
object LabelTxW: TLabel
Left = 33
- Height = 14
+ Height = 13
Top = 0
- Width = 109
+ Width = 101
Caption = 'Ширина текстуры:'
ParentColor = False
end
end
object cbPreview: TCheckBox
Left = 35
- Height = 21
+ Height = 18
Top = 54
- Width = 187
+ Width = 205
Caption = 'Предварительный просмотр'
TabOrder = 0
end
end
object PanelPanelType: TPanel
Left = 0
- Height = 77
+ Height = 68
Top = 0
Width = 206
Align = alLeft
BevelOuter = bvNone
- ClientHeight = 77
+ ClientHeight = 68
ClientWidth = 206
TabOrder = 2
object lbPanelType: TListBox
Left = 0
- Height = 77
+ Height = 68
Hint = 'Тип панели'
Top = 0
Width = 201
'Блокиратор монстров'
)
ItemHeight = 20
+ Options = [lboDrawFocusRect]
TabOrder = 0
end
end
end
object tsItems: TTabSheet
Caption = 'Предметы'
- ClientHeight = 77
- ClientWidth = 664
+ ClientHeight = 68
+ ClientWidth = 662
ImageIndex = 4
object lbItemList: TListBox
Left = 0
- Height = 77
+ Height = 68
Hint = 'Список предметов'
Top = 0
Width = 201
'Бутылек здоровья'
'Часть брони'
)
- ItemHeight = 0
+ ItemHeight = 20
+ Options = [lboDrawFocusRect]
TabOrder = 0
- TopIndex = -1
end
object cbOnlyDM: TCheckBox
Left = 208
- Height = 21
+ Height = 18
Top = 0
- Width = 110
+ Width = 102
Caption = 'Только в DM'
TabOrder = 1
end
object cbFall: TCheckBox
Left = 208
- Height = 21
+ Height = 18
Top = 16
- Width = 74
+ Width = 67
Caption = 'Падает'
TabOrder = 2
end
end
object tsMonsters: TTabSheet
Caption = 'Монстры'
- ClientHeight = 77
- ClientWidth = 664
+ ClientHeight = 68
+ ClientWidth = 662
ImageIndex = 15
object lbMonsterList: TListBox
Left = 0
- Height = 77
+ Height = 68
Hint = 'Список монстров'
Top = 0
Width = 201
'Робот'
'Приколист'
)
- ItemHeight = 0
+ ItemHeight = 20
+ Options = [lboDrawFocusRect]
TabOrder = 0
- TopIndex = -1
end
object rbMonsterLeft: TRadioButton
Left = 208
- Height = 21
+ Height = 18
Top = 0
- Width = 65
+ Width = 58
Caption = 'Влево'
Checked = True
TabOrder = 1
end
object rbMonsterRight: TRadioButton
Left = 208
- Height = 21
+ Height = 18
Top = 16
- Width = 73
+ Width = 66
Caption = 'Вправо'
TabOrder = 2
end
end
object tsAreas: TTabSheet
Caption = 'Области'
- ClientHeight = 77
- ClientWidth = 664
+ ClientHeight = 68
+ ClientWidth = 662
ImageIndex = 3
object lbAreasList: TListBox
Left = 0
- Height = 77
+ Height = 68
Hint = 'Список областей'
Top = 0
Width = 201
'Красная команда'
'Синяя команда'
)
- ItemHeight = 0
+ ItemHeight = 20
+ Options = [lboDrawFocusRect]
TabOrder = 0
- TopIndex = -1
end
object rbAreaLeft: TRadioButton
Left = 208
- Height = 21
+ Height = 18
Top = 0
- Width = 65
+ Width = 58
Caption = 'Влево'
Checked = True
TabOrder = 1
end
object rbAreaRight: TRadioButton
Left = 208
- Height = 21
+ Height = 18
Top = 16
- Width = 73
+ Width = 66
Caption = 'Вправо'
TabOrder = 2
end
end
object tsTriggers: TTabSheet
Caption = 'Триггеры'
- ClientHeight = 77
- ClientWidth = 664
+ ClientHeight = 68
+ ClientWidth = 662
ImageIndex = 6
object lbTriggersList: TListBox
Left = 0
- Height = 77
+ Height = 68
Hint = 'Список триггеров'
Top = 0
Width = 201
'Создать предмет'
'Музыка'
)
- ItemHeight = 0
+ ItemHeight = 20
+ Options = [lboDrawFocusRect]
TabOrder = 0
- TopIndex = -1
end
object clbActivationType: TCheckListBox
Left = 201
- Height = 77
+ Height = 68
Hint = 'Тип активации триггера'
Top = 0
Width = 128
'Выстрел'
'Монстров нет'
)
- ItemHeight = 0
+ ItemHeight = 20
TabOrder = 1
- TopIndex = -1
Data = {
06000000000000000000
}
end
object clbKeys: TCheckListBox
Left = 329
- Height = 77
+ Height = 68
Hint = 'Ключи для активации'
Top = 0
Width = 128
'Красная команда'
'Синяя команда'
)
- ItemHeight = 0
+ ItemHeight = 20
TabOrder = 2
- TopIndex = -1
Data = {
050000000000000000
}
DefaultExt = '.dfz'
Filter = 'Карты Doom 2D: Forever (*.dfz, *.dfzip, *.zip, *.wad)|*.dfz;*.dfzip;*.zip;*.wad|Старые карты Doom 2D: Forever 0.30 (*.ini)|*.ini|Все файлы (*.*)|*.*'
Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofFileMustExist, ofEnableSizing, ofDontAddToRecent]
- left = 32
- top = 64
+ Left = 32
+ Top = 64
end
object ImageList: TImageList
- left = 32
- top = 101
+ Left = 32
+ Top = 101
Bitmap = {
4C7A1E00000010000000100000003A1000000000000078DAED5D4DAC234711F6
D1471FDFD512A018118209903884102C72F101212B512483E06090001F22300A
DefaultExt = '.dfz'
Filter = 'Карты Doom 2D: Forever (*.dfz)|*.dfz|Карты Doom 2D: Forever (*.dfzip)|*.dfzip|Карты Doom 2D: Forever (*.zip)|*.zip|Карты Doom 2D: Forever (*.wad)|*.wad|Все файлы (*.*)|*.*'
Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofDontAddToRecent]
- left = 64
- top = 64
+ Left = 64
+ Top = 64
end
object MainMenu: TMainMenu
Images = ImageList
- left = 96
- top = 64
+ Left = 96
+ Top = 64
+ object miApple: TMenuItem
+ Caption = ''
+ Enabled = False
+ Visible = False
+ object miAppleAbout: TMenuItem
+ Caption = 'About Editor'
+ OnClick = aAboutExecute
+ end
+ object miAppleLine0: TMenuItem
+ Caption = '-'
+ end
+ object miApplePref: TMenuItem
+ Caption = 'Preferences...'
+ ShortCut = 4284
+ OnClick = aEditorOptionsExecute
+ end
+ object miAppleLine1: TMenuItem
+ Caption = '-'
+ end
+ end
object miMenuFile: TMenuItem
- Caption = 'Файл'
+ Caption = 'File'
object miNewMap: TMenuItem
- Caption = 'Новая карта'
+ Caption = 'New'
ImageIndex = 0
ShortCut = 16462
OnClick = aNewMapExecute
end
object miOpenMap: TMenuItem
- Caption = 'Открыть карту'
+ Caption = 'Open...'
ImageIndex = 1
ShortCut = 16463
OnClick = aOpenMapExecute
end
+ object miMacRecentSubMenu: TMenuItem
+ Caption = 'Open Recent'
+ Enabled = False
+ Visible = False
+ object miMacRecentEnd: TMenuItem
+ Caption = '-'
+ end
+ object miMacRecentClear: TMenuItem
+ Caption = 'Clear Recent'
+ OnClick = miMacRecentClearClick
+ end
+ end
+ object Separator1: TMenuItem
+ Caption = '-'
+ end
object miSaveMap: TMenuItem
- Caption = 'Сохранить карту'
+ Caption = 'Save'
ImageIndex = 2
ShortCut = 16467
OnClick = aSaveMapExecute
end
object miSaveMapAs: TMenuItem
- Caption = 'Сохранить карту как...'
+ Caption = 'Save As...'
ImageIndex = 21
OnClick = aSaveMapAsExecute
end
object miOpenWadMap: TMenuItem
- Caption = 'Выбрать карту'
+ Caption = 'Select Map...'
ImageIndex = 28
OnClick = miOpenWadMapClick
end
- object miLine1: TMenuItem
- Caption = '-'
- end
object miReopenMap: TMenuItem
- Caption = 'Открыть заново'
+ Caption = 'Revert to Saved'
ImageIndex = 1
ShortCut = 116
OnClick = miReopenMapClick
end
+ object miLine1: TMenuItem
+ Caption = '-'
+ end
object miSaveMiniMap: TMenuItem
- Caption = 'Сохранить мини-карту'
+ Caption = 'Export Minimap...'
ImageIndex = 22
OnClick = miSaveMiniMapClick
end
object miDeleteMap: TMenuItem
- Caption = 'Удалить карту из WAD...'
+ Caption = 'Delete from WAD...'
ImageIndex = 11
OnClick = aDeleteMap
end
object miPackMap: TMenuItem
- Caption = 'Упаковать карту'
+ Caption = 'Pack to WAD...'
ImageIndex = 26
OnClick = miPackMapClick
end
+ object miWinRecentStart: TMenuItem
+ Caption = '-'
+ Enabled = False
+ Visible = False
+ end
+ object miWinRecent: TMenuItem
+ Caption = 'Recent Files'
+ Enabled = False
+ Visible = False
+ end
object miLine2: TMenuItem
Caption = '-'
+ Enabled = False
+ Visible = False
end
object miExit: TMenuItem
- Caption = 'Выход'
+ Caption = 'Exit'
+ Enabled = False
ImageIndex = 10
ShortCut = 121
+ Visible = False
OnClick = aExitExecute
end
end
object miMenuEdit: TMenuItem
- Caption = 'Правка'
+ Caption = 'Edit'
object miUndo: TMenuItem
- Caption = 'Отменить'
+ Caption = 'Undo'
Enabled = False
ImageIndex = 5
ShortCut = 16474
Caption = '-'
end
object miCopy: TMenuItem
- Caption = 'Копировать объект'
+ Caption = 'Copy'
Enabled = False
ImageIndex = 8
ShortCut = 16451
OnClick = aCopyObjectExecute
end
object miCut: TMenuItem
- Caption = 'Вырезать объект'
+ Caption = 'Cut'
Enabled = False
ImageIndex = 7
ShortCut = 16472
OnClick = aCutObjectExecute
end
object miPaste: TMenuItem
- Caption = 'Вставить объект'
+ Caption = 'Paste'
ImageIndex = 9
ShortCut = 16470
OnClick = aPasteObjectExecute
Caption = '-'
end
object miSelectAll: TMenuItem
- Caption = 'Выделить все объекты'
+ Caption = 'Select All'
ImageIndex = 24
ShortCut = 16449
OnClick = aSelectAllExecute
object miLine5: TMenuItem
Caption = '-'
end
+ object miSnapToGrid: TMenuItem
+ Caption = 'Snap to Grid'
+ ImageIndex = 20
+ ShortCut = 16465
+ OnClick = miSnapToGridClick
+ end
+ object miSwitchGrid: TMenuItem
+ Caption = 'Switch Grid Granularity'
+ ImageIndex = 19
+ ShortCut = 16453
+ OnClick = miSwitchGridClick
+ end
+ object Separator2: TMenuItem
+ Caption = '-'
+ end
object miToFore: TMenuItem
- Caption = 'Передвинуть вперед'
+ Caption = 'Bring to Front'
Enabled = False
ImageIndex = 25
ShortCut = 16605
OnClick = aMoveToFore
end
object miToBack: TMenuItem
- Caption = 'Передвинуть назад'
+ Caption = 'Send to Back'
Enabled = False
ImageIndex = 13
ShortCut = 16603
OnClick = aMoveToBack
end
- end
- object miMenuTools: TMenuItem
- Caption = 'Инструменты'
- object miSnapToGrid: TMenuItem
- Caption = 'Привязка к сетке'
- ImageIndex = 20
- ShortCut = 16465
- OnClick = miSnapToGridClick
+ object miLine6: TMenuItem
+ Caption = '-'
end
- object miMiniMap: TMenuItem
- Caption = 'Мини-карта'
+ object miMapOptions: TMenuItem
+ Caption = 'Map Properties...'
ImageIndex = 14
- ShortCut = 16471
- OnClick = miMiniMapClick
- end
- object miSwitchGrid: TMenuItem
- Caption = 'Переключить сетку'
- ImageIndex = 19
- ShortCut = 16453
- OnClick = miSwitchGridClick
+ ShortCut = 16461
+ OnClick = aMapOptionsExecute
end
- object miShowEdges: TMenuItem
- Caption = 'Границы карты'
- ImageIndex = 29
- OnClick = miShowEdgesClick
+ object miOptions: TMenuItem
+ Caption = 'Preferences...'
+ Enabled = False
+ ImageIndex = 16
+ Visible = False
+ OnClick = aEditorOptionsExecute
end
+ end
+ object miMenuView: TMenuItem
+ Caption = 'View'
object miLayers: TMenuItem
- Caption = 'Слои'
+ Caption = 'Show Layers'
ImageIndex = 25
object miLayer1: TMenuItem
Caption = 'Фон'
OnClick = miLayer9Click
end
end
+ object miViewLine1: TMenuItem
+ Caption = '-'
+ end
+ object miMiniMap: TMenuItem
+ Caption = 'Show Minimap'
+ ImageIndex = 14
+ ShortCut = 16471
+ OnClick = miMiniMapClick
+ end
+ object miShowEdges: TMenuItem
+ Caption = 'Show Map Bounds'
+ ImageIndex = 29
+ OnClick = miShowEdgesClick
+ end
+ object miViewLine2: TMenuItem
+ Caption = '-'
+ end
+ object miMapPreview: TMenuItem
+ Caption = 'Preview Mode'
+ ImageIndex = 23
+ ShortCut = 9
+ OnClick = miMapPreviewClick
+ end
end
object miMenuService: TMenuItem
- Caption = 'Сервис'
+ Caption = 'Service'
object miCheckMap: TMenuItem
- Caption = 'Проверка карты'
+ Caption = 'Analyse Map...'
ImageIndex = 17
OnClick = aCheckMapExecute
end
object miOptimmization: TMenuItem
- Caption = 'Оптимизация карты'
+ Caption = 'Optimize Map...'
ImageIndex = 18
OnClick = aOptimizeExecute
end
- object miMapPreview: TMenuItem
- Caption = 'Предварительный просмотр'
- ImageIndex = 23
- ShortCut = 9
- OnClick = miMapPreviewClick
- end
object miTestMap: TMenuItem
- Caption = 'Тест карты в игре'
+ Caption = 'Run Test'
ImageIndex = 27
OnClick = miTestMapClick
end
end
- object miMenuSettings: TMenuItem
- Caption = 'Настройка'
- object miMapOptions: TMenuItem
- Caption = 'Карта'
- ImageIndex = 14
- ShortCut = 16461
- OnClick = aMapOptionsExecute
- end
- object miLine6: TMenuItem
- Caption = '-'
+ object miMenuWindow: TMenuItem
+ Caption = 'Window'
+ Enabled = False
+ Visible = False
+ object miMacMinimize: TMenuItem
+ Caption = 'Minimize'
+ ShortCut = 4173
+ OnClick = miMacMinimizeClick
end
- object miOptions: TMenuItem
- Caption = 'Редактор'
- ImageIndex = 16
- OnClick = aEditorOptionsExecute
+ object miMacZoom: TMenuItem
+ Caption = 'Zoom'
+ OnClick = miMacZoomClick
end
end
object miMenuHelp: TMenuItem
- Caption = 'Справка'
+ Caption = 'Help'
object miAbout: TMenuItem
- Caption = 'О программе'
+ Caption = 'About Editor'
+ Enabled = False
ImageIndex = 16
+ Visible = False
OnClick = aAboutExecute
end
end
- object miHidden1: TMenuItem
+ object miMenuHidden: TMenuItem
Caption = 'hidden'
Visible = False
object minexttab: TMenuItem
end
object pmShow: TPopupMenu
Images = ImageList
- left = 128
- top = 64
+ Left = 128
+ Top = 64
object miLayerP1: TMenuItem
Caption = 'Фон'
Checked = True
object ilToolbar: TImageList
Height = 24
Width = 24
- left = 64
- top = 101
+ Left = 64
+ Top = 101
Bitmap = {
4C7A090000001800000018000000810800000000000078DAED9C4D6C13471886
73E4C021C71C9020200E415C0C17A2860A0511513797BAD046A610D1084465A4
'ColorS=F0FBFF'
'ColorT=A4A0A0'
)
- left = 64
- top = 146
+ Left = 64
+ Top = 146
end
object MapTestTimer: TTimer
OnTimer = MapTestCheck
- left = 192
- top = 64
+ Left = 192
+ Top = 64
end
end