DEADSOFTWARE

gui: implement new settings dialog
[d2df-editor.git] / src / editor / f_options.lfm
index f82ccf8dc9b8860737c012e0919541d2fdd0a150..3e331173159df91e493bc4aede3224be0434f7eb 100644 (file)
 object OptionsForm: TOptionsForm
-  Left = 202
-  Height = 310
-  Top = 174
-  Width = 435
+  Left = 812
+  Height = 360
+  Top = 429
+  Width = 640
   BorderIcons = [biSystemMenu]
   BorderStyle = bsSingle
   Caption = 'Настройки редактора'
-  ClientHeight = 310
-  ClientWidth = 435
+  ClientHeight = 360
+  ClientWidth = 640
   Color = clBtnFace
   Font.Color = clWindowText
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   OnActivate = FormActivate
+  OnCreate = FormCreate
   Position = poScreenCenter
-  LCLVersion = '1.8.4.0'
-  object GroupBox1: TGroupBox
+  LCLVersion = '2.2.4.0'
+  object PageControl: TPageControl
     Left = 8
-    Height = 272
-    Top = 0
-    Width = 425
-    ClientHeight = 272
-    ClientWidth = 423
-    TabOrder = 0
-    object sDotColor: TShape
-      Left = 344
-      Height = 25
-      Top = 2
-      Width = 57
-    end
-    object LabelGrid: TLabel
-      Left = 6
-      Height = 14
-      Top = 74
-      Width = 73
-      Caption = 'Шаги сетки:'
-      ParentColor = False
-    end
-    object LabelGridCol: TLabel
-      Left = 190
-      Height = 14
-      Top = 2
-      Width = 69
-      Caption = 'Цвет сетки:'
-      ParentColor = False
-    end
-    object LabelBack: TLabel
-      Left = 190
-      Height = 14
-      Top = 43
-      Width = 66
-      Caption = 'Цвет фона:'
-      ParentColor = False
-    end
-    object sBackColor: TShape
-      Left = 344
-      Height = 25
-      Top = 43
-      Width = 57
-      Brush.Color = clBlack
-    end
-    object LabelPreview: TLabel
-      Left = 190
-      Height = 14
-      Top = 72
-      Width = 252
-      Caption = 'Цвет фона поля предпросмотра текстуры:'
-      ParentColor = False
-      WordWrap = True
-    end
-    object sPreviewColor: TShape
-      Left = 344
-      Height = 25
-      Top = 88
-      Width = 57
-      Brush.Color = clBlack
-    end
-    object LabelMinimap: TLabel
-      Left = 190
-      Height = 14
-      Top = 129
-      Width = 129
-      Caption = 'Масштаб мини-карты:'
-      ParentColor = False
-    end
-    object LabelRecent: TLabel
-      Left = 190
-      Height = 14
-      Top = 162
-      Width = 233
-      Caption = 'Запоминать последних открытых карт:'
-      ParentColor = False
-      WordWrap = True
-    end
-    object LabelLanguage: TLabel
-      Left = 6
-      Height = 14
-      Top = 162
-      Width = 34
-      Caption = 'Язык:'
-      ParentColor = False
-    end
-    object LabelGridSize: TLabel
-      Left = 6
-      Height = 14
-      Top = 122
-      Width = 121
-      Caption = 'Размер точек сетки:'
-      ParentColor = False
-      WordWrap = True
-    end
-    object cbShowDots: TCheckBox
-      Left = 6
-      Height = 21
-      Top = 2
-      Width = 130
-      Caption = 'Показывать сетку'
-      TabOrder = 0
-    end
-    object UpDown1: TUpDown
-      Left = 143
-      Height = 26
-      Top = 74
-      Width = 12
-      Associate = eDotStepOne
-      Max = 2048
-      Min = 4
-      Position = 16
-      TabOrder = 4
-      Wrap = False
-    end
-    object eDotStepOne: TEdit
-      Left = 86
-      Height = 26
-      Top = 74
-      Width = 57
-      TabOrder = 3
-      Text = '16'
-    end
-    object bGrid: TButton
-      Left = 402
-      Height = 25
-      Top = 2
-      Width = 11
-      Caption = '..'
-      OnClick = bGridClick
-      TabOrder = 10
-    end
-    object bBack: TButton
-      Left = 402
-      Height = 25
-      Top = 43
-      Width = 11
-      Caption = '..'
-      OnClick = bBackClick
-      TabOrder = 11
-    end
-    object bPreview: TButton
-      Left = 402
-      Height = 25
-      Top = 88
-      Width = 11
-      Caption = '..'
-      OnClick = bPreviewClick
-      TabOrder = 13
-    end
-    object cbScale: TComboBox
-      Left = 344
-      Height = 27
-      Top = 129
-      Width = 70
-      ItemHeight = 0
-      ItemIndex = 0
-      Items.Strings = (
-        '1x'
-        '2x'
-      )
-      Style = csDropDownList
-      TabOrder = 14
-      Text = '1x'
-    end
-    object cbShowTexture: TCheckBox
-      Left = 6
-      Height = 21
-      Top = 18
-      Width = 196
-      Caption = 'Показывать текстуру панели'
-      TabOrder = 1
-    end
-    object cbShowSize: TCheckBox
-      Left = 6
-      Height = 21
-      Top = 34
-      Width = 194
-      Caption = 'Показывать размеры панели'
-      TabOrder = 2
-    end
-    object eRecent: TEdit
-      Left = 344
-      Height = 26
-      Top = 180
-      Width = 57
-      TabOrder = 15
-      Text = '5'
-    end
-    object UpDown3: TUpDown
-      Left = 401
-      Height = 26
-      Top = 180
-      Width = 12
-      Associate = eRecent
-      Max = 10
-      Min = 2
-      Position = 5
-      TabOrder = 16
-      Wrap = False
-    end
-    object eDotStepTwo: TEdit
-      Left = 86
-      Height = 26
-      Top = 98
-      Width = 57
-      TabOrder = 5
-      Text = '8'
-    end
-    object UpDown2: TUpDown
-      Left = 143
-      Height = 26
-      Top = 98
-      Width = 12
-      Associate = eDotStepTwo
-      Max = 2048
-      Min = 4
-      Position = 8
-      TabOrder = 6
-      Wrap = False
-    end
-    object rbRussian: TRadioButton
-      Left = 86
-      Height = 21
-      Top = 162
-      Width = 71
-      Caption = 'Русский'
-      Checked = True
-      TabOrder = 8
-      TabStop = True
-    end
-    object rbEnglish: TRadioButton
-      Left = 86
-      Height = 21
-      Top = 186
-      Width = 64
-      Caption = 'English'
-      TabOrder = 9
-    end
-    object cbDotSize: TComboBox
-      Left = 82
-      Height = 27
-      Top = 136
-      Width = 73
-      ItemHeight = 0
-      ItemIndex = 0
-      Items.Strings = (
-        '1'
-        '2'
-      )
-      TabOrder = 7
-      Text = '1'
-    end
-    object cbCheckerboard: TCheckBox
-      Left = 190
-      Height = 21
-      Top = 94
-      Width = 166
-      Caption = 'Использовать шахматку'
-      Checked = True
-      State = cbChecked
-      TabOrder = 12
+    Height = 312
+    Top = 8
+    Width = 624
+    ActivePage = TabGeneral
+    TabIndex = 0
+    TabOrder = 2
+    object TabGeneral: TTabSheet
+      Caption = 'General'
+      ClientHeight = 284
+      ClientWidth = 620
+      object cbShowDots: TCheckBox
+        Left = 8
+        Height = 21
+        Top = 8
+        Width = 128
+        Caption = 'Показывать сетку'
+        TabOrder = 0
+      end
+      object cbShowTexture: TCheckBox
+        Left = 8
+        Height = 21
+        Top = 32
+        Width = 193
+        Caption = 'Показывать текстуру панели'
+        TabOrder = 1
+      end
+      object cbShowSize: TCheckBox
+        Left = 8
+        Height = 21
+        Top = 56
+        Width = 191
+        Caption = 'Показывать размеры панели'
+        TabOrder = 2
+      end
+      object cbCheckerboard: TCheckBox
+        Left = 8
+        Height = 21
+        Top = 80
+        Width = 164
+        Caption = 'Использовать шахматку'
+        Checked = True
+        State = cbChecked
+        TabOrder = 8
+      end
+      object LabelGrid: TLabel
+        Left = 8
+        Height = 14
+        Top = 112
+        Width = 72
+        Caption = 'Шаги сетки:'
+        ParentColor = False
+      end
+      object eDotStepOne: TEdit
+        Left = 8
+        Height = 22
+        Top = 128
+        Width = 57
+        TabOrder = 3
+        Text = '16'
+      end
+      object UpDown1: TUpDown
+        Left = 65
+        Height = 22
+        Top = 128
+        Width = 12
+        Associate = eDotStepOne
+        Max = 2048
+        Min = 4
+        Position = 16
+        TabOrder = 4
+      end
+      object eDotStepTwo: TEdit
+        Left = 8
+        Height = 22
+        Top = 152
+        Width = 57
+        TabOrder = 5
+        Text = '8'
+      end
+      object UpDown2: TUpDown
+        Left = 65
+        Height = 22
+        Top = 152
+        Width = 12
+        Associate = eDotStepTwo
+        Max = 2048
+        Min = 4
+        Position = 8
+        TabOrder = 6
+      end
+      object LabelGridSize: TLabel
+        Left = 8
+        Height = 14
+        Top = 184
+        Width = 118
+        Caption = 'Размер точек сетки:'
+        ParentColor = False
+        WordWrap = True
+      end
+      object cbDotSize: TComboBox
+        Left = 8
+        Height = 25
+        Top = 200
+        Width = 73
+        ItemHeight = 0
+        ItemIndex = 0
+        Items.Strings = (
+          '1'
+          '2'
+        )
+        TabOrder = 7
+        Text = '1'
+      end
+      object LabelMinimap: TLabel
+        Left = 8
+        Height = 14
+        Top = 240
+        Width = 128
+        Caption = 'Масштаб мини-карты:'
+        ParentColor = False
+      end
+      object cbScale: TComboBox
+        Left = 8
+        Height = 23
+        Top = 256
+        Width = 70
+        ItemHeight = 0
+        ItemIndex = 0
+        Items.Strings = (
+          '1x'
+          '2x'
+        )
+        Style = csDropDownList
+        TabOrder = 9
+        Text = '1x'
+      end
+      object LabelGridCol: TLabel
+        Left = 304
+        Height = 14
+        Top = 8
+        Width = 68
+        Caption = 'Цвет сетки:'
+        ParentColor = False
+      end
+      object sDotColor: TShape
+        Left = 304
+        Height = 25
+        Top = 24
+        Width = 56
+      end
+      object bGrid: TButton
+        Left = 360
+        Height = 25
+        Top = 24
+        Width = 11
+        Caption = '..'
+        OnClick = bGridClick
+        TabOrder = 10
+      end
+      object LabelBack: TLabel
+        Left = 304
+        Height = 14
+        Top = 64
+        Width = 65
+        Caption = 'Цвет фона:'
+        ParentColor = False
+      end
+      object sBackColor: TShape
+        Left = 304
+        Height = 25
+        Top = 80
+        Width = 56
+        Brush.Color = clBlack
+      end
+      object bBack: TButton
+        Left = 360
+        Height = 25
+        Top = 80
+        Width = 11
+        Caption = '..'
+        OnClick = bBackClick
+        TabOrder = 11
+      end
+      object LabelPreview: TLabel
+        Left = 304
+        Height = 14
+        Top = 120
+        Width = 248
+        Caption = 'Цвет фона поля предпросмотра текстуры:'
+        ParentColor = False
+        WordWrap = True
+      end
+      object sPreviewColor: TShape
+        Left = 304
+        Height = 25
+        Top = 136
+        Width = 56
+        Brush.Color = clBlack
+      end
+      object bPreview: TButton
+        Left = 360
+        Height = 25
+        Top = 136
+        Width = 11
+        Caption = '..'
+        OnClick = bPreviewClick
+        TabOrder = 12
+      end
+      object LabelLanguage: TLabel
+        Left = 304
+        Height = 14
+        Top = 172
+        Width = 34
+        Caption = 'Язык:'
+        ParentColor = False
+      end
+      object rbRussian: TRadioButton
+        Left = 304
+        Height = 21
+        Top = 204
+        Width = 70
+        Caption = 'Русский'
+        Checked = True
+        TabOrder = 13
+        TabStop = True
+      end
+      object rbEnglish: TRadioButton
+        Left = 304
+        Height = 21
+        Top = 188
+        Width = 63
+        Caption = 'English'
+        TabOrder = 14
+      end
     end
-    object cbCompress: TCheckBox
-      Left = 190
-      Height = 21
-      Top = 208
-      Width = 212
-      Caption = 'Сжимать архив при сохранении'
-      TabOrder = 17
+    object TabFiles: TTabSheet
+      Caption = 'Files'
+      ClientHeight = 284
+      ClientWidth = 620
+      object cbCompress: TCheckBox
+        Left = 8
+        Height = 21
+        Top = 8
+        Width = 208
+        Caption = 'Сжимать архив при сохранении'
+        TabOrder = 2
+      end
+      object cbBackup: TCheckBox
+        Left = 8
+        Height = 21
+        Top = 32
+        Width = 218
+        Caption = 'Резервная копия при сохранении'
+        TabOrder = 3
+      end
+      object LabelRecent: TLabel
+        Left = 8
+        Height = 14
+        Top = 64
+        Width = 230
+        Caption = 'Запоминать последних открытых карт:'
+        ParentColor = False
+        WordWrap = True
+      end
+      object eRecent: TEdit
+        Left = 8
+        Height = 22
+        Top = 80
+        Width = 57
+        TabOrder = 0
+        Text = '5'
+      end
+      object UpDown3: TUpDown
+        Left = 65
+        Height = 22
+        Top = 80
+        Width = 12
+        Associate = eRecent
+        Max = 10
+        Min = 2
+        Position = 5
+        TabOrder = 1
+      end
     end
-    object cbBackup: TCheckBox
-      Left = 190
-      Height = 21
-      Top = 224
-      Width = 222
-      Caption = 'Резервная копия при сохранении'
-      TabOrder = 18
+    object TabTesting: TTabSheet
+      Caption = 'Testing'
+      ClientHeight = 284
+      ClientWidth = 620
+      object LabelPath: TLabel
+        Left = 8
+        Height = 14
+        Top = 8
+        Width = 120
+        Caption = 'Путь к Doom2DF.exe:'
+        ParentColor = False
+      end
+      object edD2dexe: TEdit
+        Left = 8
+        Height = 22
+        Top = 24
+        Width = 296
+        TabOrder = 12
+        Text = 'Doom2DF.exe'
+      end
+      object bChooseD2d: TButton
+        Left = 304
+        Height = 22
+        Top = 24
+        Width = 25
+        Caption = '...'
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        Font.Style = [fsBold]
+        OnClick = bChooseD2dClick
+        ParentFont = False
+        TabOrder = 13
+      end
+      object LabelArgs: TLabel
+        Left = 8
+        Height = 14
+        Top = 55
+        Width = 120
+        Caption = 'Параметры запуска:'
+        ParentColor = False
+      end
+      object edD2DArgs: TEdit
+        Left = 8
+        Height = 22
+        Top = 72
+        Width = 296
+        TabOrder = 14
+      end
+      object rbDM: TRadioButton
+        Left = 8
+        Height = 21
+        Top = 104
+        Width = 91
+        Caption = 'Deathmatch'
+        Checked = True
+        TabOrder = 0
+        TabStop = True
+      end
+      object rbTDM: TRadioButton
+        Left = 8
+        Height = 21
+        Top = 120
+        Width = 124
+        Caption = 'Team Deathmatch'
+        TabOrder = 1
+      end
+      object rbCTF: TRadioButton
+        Left = 8
+        Height = 21
+        Top = 136
+        Width = 114
+        Caption = 'Capture the Flag'
+        TabOrder = 2
+      end
+      object rbCOOP: TRadioButton
+        Left = 8
+        Height = 21
+        Top = 152
+        Width = 92
+        Caption = 'Cooperative'
+        TabOrder = 3
+      end
+      object cbTwoPlayers: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 104
+        Width = 89
+        Caption = 'Два игрока'
+        TabOrder = 4
+      end
+      object cbTeamDamage: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 120
+        Width = 141
+        Caption = 'Урон своей команде'
+        TabOrder = 5
+      end
+      object cbAllowExit: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 136
+        Width = 122
+        Caption = 'Выход из уровня'
+        Checked = True
+        State = cbChecked
+        TabOrder = 6
+      end
+      object cbWeaponStay: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 152
+        Width = 125
+        Caption = 'Оружие остается'
+        TabOrder = 7
+      end
+      object cbMonstersDM: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 168
+        Width = 103
+        Caption = 'Монстры в DM'
+        TabOrder = 8
+      end
+      object LabelTime: TLabel
+        Left = 8
+        Height = 14
+        Top = 200
+        Width = 92
+        Caption = 'Лимит времени:'
+        ParentColor = False
+      end
+      object edTime: TEdit
+        Left = 120
+        Height = 22
+        Top = 200
+        Width = 49
+        TabOrder = 9
+        Text = '0'
+      end
+      object LabelSecs: TLabel
+        Left = 174
+        Height = 14
+        Top = 200
+        Width = 42
+        Caption = 'секунд'
+        ParentColor = False
+      end
+      object LabelScore: TLabel
+        Left = 8
+        Height = 14
+        Top = 223
+        Width = 76
+        Caption = 'Лимит очков:'
+        ParentColor = False
+      end
+      object edScore: TEdit
+        Left = 120
+        Height = 22
+        Top = 223
+        Width = 49
+        TabOrder = 10
+        Text = '0'
+      end
+      object cbMapOnce: TCheckBox
+        Left = 8
+        Height = 21
+        Top = 256
+        Width = 241
+        Caption = 'Закрыть игру после выхода из карты'
+        TabOrder = 11
+      end
     end
   end
   object bOK: TButton
-    Left = 262
+    Left = 464
     Height = 25
-    Top = 280
+    Top = 328
     Width = 75
     Caption = 'ОК'
     Default = True
     OnClick = bOKClick
-    TabOrder = 1
+    TabOrder = 0
   end
   object bCancel: TButton
-    Left = 358
+    Left = 557
     Height = 25
-    Top = 280
+    Top = 328
     Width = 75
     Cancel = True
     Caption = 'Отмена'
     OnClick = bCancelClick
-    TabOrder = 2
+    TabOrder = 1
   end
   object ColorDialog: TColorDialog
     Color = clBlack
@@ -339,7 +521,15 @@ object OptionsForm: TOptionsForm
       'ColorS=F0FBFF'
       'ColorT=A4A0A0'
     )
-    left = 96
-    top = 216
+    left = 568
+    top = 264
+  end
+  object FindD2dDialog: TOpenDialog
+    Title = 'Выберите файл игры Doom 2D: Forever'
+    DefaultExt = '.exe'
+    Filter = 'Doom2DF.exe|Doom2DF.exe;Doom2DF'
+    Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing]
+    left = 472
+    top = 264
   end
 end