summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: a879253)
raw | patch | inline | side by side (parent: a879253)
author | DeaDDooMER <deaddoomer@deadsoftware.ru> | |
Sun, 28 May 2023 18:08:44 +0000 (21:08 +0300) | ||
committer | DeaDDooMER <deaddoomer@deadsoftware.ru> | |
Sun, 28 May 2023 18:08:44 +0000 (21:08 +0300) |
src/editor/f_main.lfm | patch | blob | history |
diff --git a/src/editor/f_main.lfm b/src/editor/f_main.lfm
index 238c1122fd4396ea9cfee8683ac9950d3d911796..7c0561f2674bf6ef9142f04077d84e03d6bdfea7 100644 (file)
--- a/src/editor/f_main.lfm
+++ b/src/editor/f_main.lfm
object MainForm: TMainForm
- Left = 221
+ Left = 933
Height = 480
- Top = 232
+ Top = 499
Width = 672
AllowDropFiles = True
Caption = '2'
- ClientHeight = 480
+ ClientHeight = 453
ClientWidth = 672
Color = clBtnFace
Constraints.MinHeight = 480
OnResize = FormResize
OnWindowStateChange = FormWindowStateChange
LCLVersion = '2.2.4.0'
+ object PanelMap: TPanel
+ Left = 0
+ Height = 284
+ Top = 34
+ Width = 518
+ Align = alClient
+ BevelOuter = bvNone
+ ClientHeight = 284
+ ClientWidth = 518
+ TabOrder = 1
+ object RenderPanel: TOpenGLControl
+ Left = 0
+ Height = 268
+ Top = 0
+ Width = 502
+ Align = alClient
+ AlphaBits = 8
+ OnMouseDown = RenderPanelMouseDown
+ OnMouseMove = RenderPanelMouseMove
+ OnMouseUp = RenderPanelMouseUp
+ OnPaint = RenderPanelPaint
+ OnResize = RenderPanelResize
+ end
+ object sbHorizontal: TScrollBar
+ Left = 0
+ Height = 16
+ Top = 268
+ Width = 518
+ Align = alBottom
+ LargeChange = 256
+ Max = 0
+ PageSize = 0
+ SmallChange = 16
+ TabOrder = 0
+ TabStop = False
+ OnScroll = sbHorizontalScroll
+ end
+ object sbVertical: TScrollBar
+ Left = 502
+ Height = 268
+ Top = 0
+ Width = 16
+ Align = alRight
+ Kind = sbVertical
+ LargeChange = 256
+ Max = 0
+ PageSize = 0
+ SmallChange = 16
+ TabOrder = 1
+ TabStop = False
+ OnScroll = sbVerticalScroll
+ end
+ end
+ object pLoadProgress: TPanel
+ Left = 168
+ Height = 56
+ Top = 144
+ Width = 176
+ ClientHeight = 56
+ ClientWidth = 176
+ TabOrder = 7
+ Visible = False
+ object pbLoad: TProgressBar
+ Left = 8
+ Height = 16
+ Top = 8
+ Width = 160
+ Step = 1
+ TabOrder = 0
+ end
+ object lLoad: TLabel
+ Left = 8
+ Height = 16
+ Top = 32
+ Width = 160
+ AutoSize = False
+ ParentColor = False
+ end
+ end
object Splitter1: TSplitter
Left = 518
- Height = 317
+ Height = 284
Top = 34
Width = 5
Align = alRight
Cursor = crVSplit
Left = 0
Height = 3
- Top = 351
+ Top = 318
Width = 672
Align = alBottom
MinSize = 64
end
object PanelProps: TPanel
Left = 523
- Height = 317
+ Height = 284
Top = 34
Width = 149
Align = alRight
BevelInner = bvRaised
BevelOuter = bvLowered
- ClientHeight = 317
+ ClientHeight = 284
ClientWidth = 149
TabOrder = 0
object vleObjectProperty: TValueListEditor
Left = 2
- Height = 283
+ Height = 250
Top = 2
Width = 145
Align = alClient
object PanelPropApply: TPanel
Left = 2
Height = 30
- Top = 285
+ Top = 252
Width = 145
Align = alBottom
BevelOuter = bvNone
end
end
end
- object PanelMap: TPanel
- Left = 0
- Height = 317
- Top = 34
- Width = 518
- Align = alClient
- BevelOuter = bvNone
- ClientHeight = 317
- ClientWidth = 518
- TabOrder = 1
- object sbHorizontal: TScrollBar
- Left = 0
- Height = 16
- Top = 301
- Width = 518
- Align = alBottom
- LargeChange = 256
- Max = 0
- PageSize = 0
- SmallChange = 16
- TabOrder = 0
- TabStop = False
- OnScroll = sbHorizontalScroll
- end
- object sbVertical: TScrollBar
- Left = 502
- Height = 301
- Top = 0
- Width = 16
- Align = alRight
- Kind = sbVertical
- LargeChange = 256
- Max = 0
- PageSize = 0
- SmallChange = 16
- TabOrder = 1
- TabStop = False
- OnScroll = sbVerticalScroll
- end
- object RenderPanel: TOpenGLControl
- Left = 0
- Height = 301
- Top = 0
- Width = 502
- Align = alClient
- AlphaBits = 8
- OnMouseDown = RenderPanelMouseDown
- OnMouseMove = RenderPanelMouseMove
- OnMouseUp = RenderPanelMouseUp
- OnPaint = RenderPanelPaint
- OnResize = RenderPanelResize
- object pLoadProgress: TPanel
- Left = 142
- Height = 49
- Top = 94
- Width = 185
- ClientHeight = 49
- ClientWidth = 185
- TabOrder = 0
- Visible = False
- object lLoad: TLabel
- Left = 6
- Height = 13
- Top = 30
- Width = 169
- AutoSize = False
- ParentColor = False
- end
- object pbLoad: TProgressBar
- Left = 6
- Height = 16
- Top = 6
- Width = 169
- Step = 1
- TabOrder = 0
- end
- end
- end
- end
object StatusBar: TStatusBar
Left = 0
- Height = 15
- Top = 465
+ Height = 21
+ Top = 432
Width = 672
AutoHint = True
Panels = <
object PanelObjs: TPanel
Left = 0
Height = 111
- Top = 354
+ Top = 321
Width = 672
Align = alBottom
BevelInner = bvRaised
TabOrder = 0
object tsPanels: TTabSheet
Caption = 'Панели'
- ClientHeight = 68
- ClientWidth = 662
+ ClientHeight = 77
+ ClientWidth = 664
ImageIndex = 12
object lbTextureList: TListBox
Left = 206
- Height = 70
+ Height = 77
Hint = 'Список текстур'
Top = 0
- Width = 244
+ Width = 246
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 = 450
- Height = 68
+ Left = 452
+ Height = 77
Top = 0
Width = 212
Align = alRight
BevelOuter = bvNone
- ClientHeight = 68
+ ClientHeight = 77
ClientWidth = 212
TabOrder = 1
object LabelTxH: TLabel
Left = 33
- Height = 13
+ Height = 14
Top = 22
- Width = 95
+ Width = 105
Caption = 'Высота текстуры:'
ParentColor = False
end
object LabelTxW: TLabel
Left = 33
- Height = 13
+ Height = 14
Top = 0
- Width = 101
+ Width = 109
Caption = 'Ширина текстуры:'
ParentColor = False
end
end
object cbPreview: TCheckBox
Left = 35
- Height = 18
+ Height = 21
Top = 54
- Width = 205
+ Width = 187
Caption = 'Предварительный просмотр'
TabOrder = 0
end
end
object PanelPanelType: TPanel
Left = 0
- Height = 68
+ Height = 77
Top = 0
Width = 206
Align = alLeft
BevelOuter = bvNone
- ClientHeight = 68
+ ClientHeight = 77
ClientWidth = 206
TabOrder = 2
object lbPanelType: TListBox
Left = 0
- Height = 68
+ Height = 77
Hint = 'Тип панели'
Top = 0
Width = 201
'Блокиратор монстров'
)
ItemHeight = 20
- Options = [lboDrawFocusRect]
TabOrder = 0
end
end
end
object tsItems: TTabSheet
Caption = 'Предметы'
- ClientHeight = 68
- ClientWidth = 662
+ ClientHeight = 77
+ ClientWidth = 664
ImageIndex = 4
object lbItemList: TListBox
Left = 0
- Height = 68
+ Height = 77
Hint = 'Список предметов'
Top = 0
Width = 201
'Бутылек здоровья'
'Часть брони'
)
- ItemHeight = 20
- Options = [lboDrawFocusRect]
+ ItemHeight = 0
TabOrder = 0
+ TopIndex = -1
end
object cbOnlyDM: TCheckBox
Left = 208
- Height = 18
+ Height = 21
Top = 0
- Width = 102
+ Width = 110
Caption = 'Только в DM'
TabOrder = 1
end
object cbFall: TCheckBox
Left = 208
- Height = 18
+ Height = 21
Top = 16
- Width = 67
+ Width = 74
Caption = 'Падает'
TabOrder = 2
end
end
object tsMonsters: TTabSheet
Caption = 'Монстры'
- ClientHeight = 68
- ClientWidth = 662
+ ClientHeight = 77
+ ClientWidth = 664
ImageIndex = 15
object lbMonsterList: TListBox
Left = 0
- Height = 68
+ Height = 77
Hint = 'Список монстров'
Top = 0
Width = 201
'Робот'
'Приколист'
)
- ItemHeight = 20
- Options = [lboDrawFocusRect]
+ ItemHeight = 0
TabOrder = 0
+ TopIndex = -1
end
object rbMonsterLeft: TRadioButton
Left = 208
- Height = 18
+ Height = 21
Top = 0
- Width = 58
+ Width = 65
Caption = 'Влево'
Checked = True
TabOrder = 1
end
object rbMonsterRight: TRadioButton
Left = 208
- Height = 18
+ Height = 21
Top = 16
- Width = 66
+ Width = 73
Caption = 'Вправо'
TabOrder = 2
end
end
object tsAreas: TTabSheet
Caption = 'Области'
- ClientHeight = 68
- ClientWidth = 662
+ ClientHeight = 77
+ ClientWidth = 664
ImageIndex = 3
object lbAreasList: TListBox
Left = 0
- Height = 68
+ Height = 77
Hint = 'Список областей'
Top = 0
Width = 201
'Красная команда'
'Синяя команда'
)
- ItemHeight = 20
- Options = [lboDrawFocusRect]
+ ItemHeight = 0
TabOrder = 0
+ TopIndex = -1
end
object rbAreaLeft: TRadioButton
Left = 208
- Height = 18
+ Height = 21
Top = 0
- Width = 58
+ Width = 65
Caption = 'Влево'
Checked = True
TabOrder = 1
end
object rbAreaRight: TRadioButton
Left = 208
- Height = 18
+ Height = 21
Top = 16
- Width = 66
+ Width = 73
Caption = 'Вправо'
TabOrder = 2
end
end
object tsTriggers: TTabSheet
Caption = 'Триггеры'
- ClientHeight = 68
- ClientWidth = 662
+ ClientHeight = 77
+ ClientWidth = 664
ImageIndex = 6
object lbTriggersList: TListBox
Left = 0
- Height = 68
+ Height = 77
Hint = 'Список триггеров'
Top = 0
Width = 201
'Создать предмет'
'Музыка'
)
- ItemHeight = 20
- Options = [lboDrawFocusRect]
+ ItemHeight = 0
TabOrder = 0
+ TopIndex = -1
end
object clbActivationType: TCheckListBox
Left = 201
- Height = 68
+ Height = 77
Hint = 'Тип активации триггера'
Top = 0
Width = 128
'Выстрел'
'Монстров нет'
)
- ItemHeight = 20
+ ItemHeight = 0
TabOrder = 1
+ TopIndex = -1
Data = {
06000000000000000000
}
end
object clbKeys: TCheckListBox
Left = 329
- Height = 68
+ Height = 77
Hint = 'Ключи для активации'
Top = 0
Width = 128
'Красная команда'
'Синяя команда'
)
- ItemHeight = 20
+ ItemHeight = 0
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
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