diff --git a/src/editor/f_main.lfm b/src/editor/f_main.lfm
index fcc7377e6df71a29c4e52a7d2adb963b3cb7cd50..b568cbc3d243b405e8bc1b8e86009c85b9ecba7d 100644 (file)
--- a/src/editor/f_main.lfm
+++ b/src/editor/f_main.lfm
Height = 480
Top = 255
Width = 672
+ AllowDropFiles = True
Caption = '2'
ClientHeight = 460
ClientWidth = 672
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
+ OnDropFiles = FormDropFiles
OnKeyDown = FormKeyDown
OnKeyUp = FormKeyUp
OnResize = FormResize
- Position = poDefault
- LCLVersion = '1.6.0.4'
+ LCLVersion = '1.6.4.0'
object Splitter1: TSplitter
Left = 518
Height = 289
Beveled = True
MinSize = 64
OnCanResize = Splitter1CanResize
+ OnMoved = Splitter1Moved
ResizeAnchor = akRight
end
object Splitter2: TSplitter
Align = alBottom
MinSize = 64
OnCanResize = Splitter2CanResize
+ OnMoved = Splitter1Moved
ResizeAnchor = akBottom
end
object PanelProps: TPanel
Top = 2
Width = 145
Align = alClient
+ AutoAdvance = aaNone
Constraints.MinWidth = 145
DefaultColWidth = 60
- DefaultRowHeight = 16
+ DefaultRowHeight = 20
+ Flat = True
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
+ MouseWheelOption = mwGrid
ParentFont = False
RowCount = 2
- ScrollBars = ssVertical
+ ScrollBars = ssAutoVertical
TabOrder = 0
TitleFont.Color = clWindowText
TitleFont.Height = -12
OnKeyDown = vleObjectPropertyKeyDown
DisplayOptions = [doColumnTitles, doAutoColResize]
DropDownRows = 11
+ Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goAlwaysShowEditor, goThumbTracking]
Strings.Strings = (
''
)
)
OnGetPickList = vleObjectPropertyGetPickList
ColWidths = (
- 62
- 62
+ 72
+ 72
)
end
object PanelPropApply: TPanel
Constraints.MinHeight = 70
ItemHeight = 13
OnClick = lbTextureListClick
+ OnDrawItem = lbTextureListDrawItem
Style = lbOwnerDrawFixed
TabOrder = 0
end
end
object cbPreview: TCheckBox
Left = 35
- Height = 19
+ Height = 17
Top = 54
- Width = 165
+ Width = 163
Caption = 'Предварительный просмотр'
TabOrder = 0
end
'Выстрел'
'Монстров нет'
)
- ItemHeight = 17
+ ItemHeight = 15
TabOrder = 1
Data = {
06000000000000000000
'Красная команда'
'Синяя команда'
)
- ItemHeight = 17
+ ItemHeight = 15
TabOrder = 2
Data = {
050000000000000000
end
end
object OpenDialog: TOpenDialog
- DefaultExt = '.wad'
- Filter = 'Карты Doom 2D: Forever (*.wad)|*.wad|Старые карты Doom 2D: Forever (*.ini)|*.ini|Все файлы (*.*)|*.*'
+ 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
}
end
object SaveDialog: TSaveDialog
- DefaultExt = '.wad'
- Filter = 'Карты Doom 2D: Forever (*.wad)|*.wad|Все файлы (*.*)|*.*'
+ 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
object miLine1: TMenuItem
Caption = '-'
end
+ object miReopenMap: TMenuItem
+ Caption = 'Открыть заново'
+ ImageIndex = 1
+ ShortCut = 116
+ OnClick = miReopenMapClick
+ end
object miSaveMiniMap: TMenuItem
Caption = 'Сохранить мини-карту'
Bitmap.Data = {