X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Feditor%2Ff_options.lfm;h=0a3eca32107fe2c3f30ee1a89ea02cc5c2193a7b;hb=3c82d66d2cc9d0ea466a0129c1455b2fa194c810;hp=97ef8e2fd75a622bd0d06faedee9f0af34cb576a;hpb=f271e7b72775d6ae5a92a636d38f22e5bc939fa6;p=d2df-editor.git

diff --git a/src/editor/f_options.lfm b/src/editor/f_options.lfm
index 97ef8e2..0a3eca3 100644
--- a/src/editor/f_options.lfm
+++ b/src/editor/f_options.lfm
@@ -1,278 +1,415 @@
 object OptionsForm: TOptionsForm
-  Left = 202
-  Height = 262
-  Top = 174
-  Width = 435
+  Left = 98
+  Height = 360
+  Top = 345
+  Width = 640
   BorderIcons = [biSystemMenu]
   BorderStyle = bsSingle
   Caption = 'Настройки редактора'
-  ClientHeight = 262
-  ClientWidth = 435
+  ClientHeight = 360
+  ClientWidth = 640
   Color = clBtnFace
   Font.Color = clWindowText
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
-  OnActivate = FormActivate
+  OnCreate = FormCreate
+  OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.6.4.0'
-  object GroupBox1: TGroupBox
+  LCLVersion = '2.2.4.0'
+  object PageControl: TPageControl
     Left = 8
-    Height = 225
-    Top = 0
-    Width = 425
-    ClientHeight = 207
-    ClientWidth = 421
+    Height = 312
+    Top = 8
+    Width = 624
+    ActivePage = TabGeneral
+    TabIndex = 0
     TabOrder = 0
-    object sDotColor: TShape
-      Left = 344
-      Height = 25
-      Top = 2
-      Width = 57
+    Options = [nboKeyboardTabSwitch, nboDoChangeOnSetIndex]
+    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 = 3
+      end
+      object LabelGrid: TLabel
+        Left = 8
+        Height = 14
+        Top = 112
+        Width = 72
+        Caption = 'Шаги сетки:'
+        ParentColor = False
+      end
+      object SpinEdit1: TSpinEdit
+        Left = 8
+        Height = 22
+        Top = 128
+        Width = 50
+        MaxValue = 2048
+        MinValue = 4
+        TabOrder = 4
+        Value = 16
+      end
+      object SpinEdit2: TSpinEdit
+        Left = 8
+        Height = 22
+        Top = 152
+        Width = 50
+        MaxValue = 2048
+        MinValue = 4
+        TabOrder = 5
+        Value = 8
+      end
+      object LabelGridSize: TLabel
+        Left = 8
+        Height = 14
+        Top = 184
+        Width = 118
+        Caption = 'Размер точек сетки:'
+        ParentColor = False
+        WordWrap = True
+      end
+      object SpinEdit4: TSpinEdit
+        Left = 8
+        Height = 22
+        Top = 200
+        Width = 50
+        MaxValue = 2
+        MinValue = 1
+        TabOrder = 6
+        Value = 1
+      end
+      object LabelMinimap: TLabel
+        Left = 8
+        Height = 14
+        Top = 232
+        Width = 128
+        Caption = 'Масштаб мини-карты:'
+        ParentColor = False
+      end
+      object SpinEdit5: TSpinEdit
+        Left = 8
+        Height = 22
+        Top = 248
+        Width = 50
+        MaxValue = 10
+        MinValue = 1
+        TabOrder = 7
+        Value = 1
+      end
+      object LabelGridCol: TLabel
+        Left = 304
+        Height = 14
+        Top = 8
+        Width = 68
+        Caption = 'Цвет сетки:'
+        ParentColor = False
+      end
+      object ColorButton1: TColorButton
+        Left = 304
+        Height = 25
+        Top = 24
+        Width = 75
+        BorderWidth = 2
+        ButtonColorSize = 16
+        ButtonColor = clRed
+      end
+      object LabelBack: TLabel
+        Left = 304
+        Height = 14
+        Top = 64
+        Width = 65
+        Caption = 'Цвет фона:'
+        ParentColor = False
+      end
+      object ColorButton2: TColorButton
+        Left = 304
+        Height = 25
+        Top = 80
+        Width = 75
+        BorderWidth = 2
+        ButtonColorSize = 16
+        ButtonColor = clLime
+      end
+      object LabelPreview: TLabel
+        Left = 304
+        Height = 14
+        Top = 120
+        Width = 248
+        Caption = 'Цвет фона поля предпросмотра текстуры:'
+        ParentColor = False
+        WordWrap = True
+      end
+      object ColorButton3: TColorButton
+        Left = 304
+        Height = 25
+        Top = 136
+        Width = 75
+        BorderWidth = 2
+        ButtonColorSize = 16
+        ButtonColor = clBlue
+      end
+      object LabelLanguage: TLabel
+        Left = 304
+        Height = 14
+        Top = 172
+        Width = 34
+        Caption = 'Язык:'
+        ParentColor = False
+      end
+      object cbLanguage: TComboBox
+        Left = 304
+        Height = 26
+        Top = 192
+        Width = 120
+        ItemHeight = 0
+        Style = csDropDownList
+        TabOrder = 8
+      end
     end
-    object LabelGrid: TLabel
-      Left = 6
-      Height = 13
-      Top = 74
-      Width = 61
-      Caption = 'Шаги сетки:'
-      ParentColor = False
+    object TabFiles: TTabSheet
+      Caption = 'Files'
+      ClientHeight = 284
+      ClientWidth = 620
+      object cbCompress: TCheckBox
+        Left = 8
+        Height = 21
+        Top = 8
+        Width = 208
+        Caption = 'Сжимать архив при сохранении'
+        TabOrder = 0
+      end
+      object cbBackup: TCheckBox
+        Left = 8
+        Height = 21
+        Top = 32
+        Width = 218
+        Caption = 'Резервная копия при сохранении'
+        TabOrder = 1
+      end
+      object LabelRecent: TLabel
+        Left = 8
+        Height = 14
+        Top = 64
+        Width = 230
+        Caption = 'Запоминать последних открытых карт:'
+        ParentColor = False
+        WordWrap = True
+      end
+      object SpinEdit3: TSpinEdit
+        Left = 8
+        Height = 22
+        Top = 80
+        Width = 50
+        MaxValue = 10
+        MinValue = 2
+        TabOrder = 2
+        Value = 2
+      end
     end
-    object LabelGridCol: TLabel
-      Left = 190
-      Height = 13
-      Top = 2
-      Width = 60
-      Caption = 'Цвет сетки:'
-      ParentColor = False
-    end
-    object LabelBack: TLabel
-      Left = 190
-      Height = 13
-      Top = 43
-      Width = 57
-      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 = 13
-      Top = 72
-      Width = 216
-      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 = 13
-      Top = 131
-      Width = 112
-      Caption = 'Масштаб мини-карты:'
-      ParentColor = False
-    end
-    object LabelRecent: TLabel
-      Left = 190
-      Height = 13
-      Top = 162
-      Width = 199
-      Caption = 'Запоминать последних открытых карт:'
-      ParentColor = False
-      WordWrap = True
-    end
-    object LabelLanguage: TLabel
-      Left = 6
-      Height = 13
-      Top = 162
-      Width = 31
-      Caption = 'Язык:'
-      ParentColor = False
-    end
-    object LabelGridSize: TLabel
-      Left = 6
-      Height = 13
-      Top = 122
-      Width = 105
-      Caption = 'Размер точек сетки:'
-      ParentColor = False
-      WordWrap = True
-    end
-    object cbShowDots: TCheckBox
-      Left = 6
-      Height = 17
-      Top = 2
-      Width = 112
-      Caption = 'Показывать сетку'
-      TabOrder = 0
-    end
-    object UpDown1: TUpDown
-      Left = 143
-      Height = 21
-      Top = 74
-      Width = 12
-      Associate = eDotStepOne
-      Max = 255
-      Min = 2
-      Position = 16
-      TabOrder = 4
-      Wrap = False
-    end
-    object eDotStepOne: TEdit
-      Left = 86
-      Height = 21
-      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 = 12
-    end
-    object cbScale: TComboBox
-      Left = 344
-      Height = 21
-      Top = 131
-      Width = 70
-      ItemHeight = 13
-      ItemIndex = 0
-      Items.Strings = (
-        '1x'
-        '2x'
-      )
-      Style = csDropDownList
-      TabOrder = 13
-      Text = '1x'
-    end
-    object cbShowTexture: TCheckBox
-      Left = 6
-      Height = 17
-      Top = 18
-      Width = 167
-      Caption = 'Показывать текстуру панели'
-      TabOrder = 1
-    end
-    object cbShowSize: TCheckBox
-      Left = 6
-      Height = 17
-      Top = 34
-      Width = 169
-      Caption = 'Показывать размеры панели'
-      TabOrder = 2
-    end
-    object eRecent: TEdit
-      Left = 344
-      Height = 21
-      Top = 184
-      Width = 57
-      TabOrder = 14
-      Text = '5'
-    end
-    object UpDown3: TUpDown
-      Left = 401
-      Height = 21
-      Top = 184
-      Width = 12
-      Associate = eRecent
-      Max = 10
-      Min = 2
-      Position = 5
-      TabOrder = 15
-      Wrap = False
-    end
-    object eDotStepTwo: TEdit
-      Left = 86
-      Height = 21
-      Top = 98
-      Width = 57
-      TabOrder = 5
-      Text = '8'
-    end
-    object UpDown2: TUpDown
-      Left = 143
-      Height = 21
-      Top = 98
-      Width = 12
-      Associate = eDotStepTwo
-      Max = 255
-      Min = 2
-      Position = 8
-      TabOrder = 6
-      Wrap = False
-    end
-    object rbRussian: TRadioButton
-      Left = 86
-      Height = 17
-      Top = 162
-      Width = 60
-      Caption = 'Русский'
-      Checked = True
-      TabOrder = 8
-      TabStop = True
-    end
-    object rbEnglish: TRadioButton
-      Left = 86
-      Height = 17
-      Top = 186
-      Width = 52
-      Caption = 'English'
-      TabOrder = 9
-    end
-    object cbDotSize: TComboBox
-      Left = 82
-      Height = 21
-      Top = 136
-      Width = 73
-      ItemHeight = 13
-      ItemIndex = 0
-      Items.Strings = (
-        '1'
-        '2'
-      )
-      TabOrder = 7
-      Text = '1'
+    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 ExeEdit: TFileNameEdit
+        Left = 8
+        Height = 22
+        Top = 24
+        Width = 328
+        FileName = 'Doom2DF.exe'
+        DialogOptions = [ofNoChangeDir, ofDontAddToRecent, ofViewDetail]
+        FilterIndex = 0
+        HideDirectories = False
+        ButtonWidth = 23
+        NumGlyphs = 1
+        MaxLength = 0
+        TabOrder = 0
+        Text = 'Doom2DF.exe'
+      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 = 301
+        TabOrder = 1
+      end
+      object rbDM: TRadioButton
+        Left = 8
+        Height = 21
+        Top = 104
+        Width = 91
+        Caption = 'Deathmatch'
+        Checked = True
+        TabOrder = 2
+        TabStop = True
+      end
+      object rbTDM: TRadioButton
+        Left = 8
+        Height = 21
+        Top = 120
+        Width = 124
+        Caption = 'Team Deathmatch'
+        TabOrder = 3
+      end
+      object rbCTF: TRadioButton
+        Left = 8
+        Height = 21
+        Top = 136
+        Width = 114
+        Caption = 'Capture the Flag'
+        TabOrder = 4
+      end
+      object rbCOOP: TRadioButton
+        Left = 8
+        Height = 21
+        Top = 152
+        Width = 92
+        Caption = 'Cooperative'
+        TabOrder = 5
+      end
+      object cbTwoPlayers: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 104
+        Width = 89
+        Caption = 'Два игрока'
+        TabOrder = 6
+      end
+      object cbTeamDamage: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 120
+        Width = 141
+        Caption = 'Урон своей команде'
+        TabOrder = 7
+      end
+      object cbAllowExit: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 136
+        Width = 122
+        Caption = 'Выход из уровня'
+        Checked = True
+        State = cbChecked
+        TabOrder = 8
+      end
+      object cbWeaponStay: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 152
+        Width = 125
+        Caption = 'Оружие остается'
+        TabOrder = 9
+      end
+      object cbMonstersDM: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 168
+        Width = 103
+        Caption = 'Монстры в DM'
+        TabOrder = 10
+      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 = 11
+        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 = 12
+        Text = '0'
+      end
+      object cbMapOnce: TCheckBox
+        Left = 8
+        Height = 21
+        Top = 256
+        Width = 241
+        Caption = 'Закрыть игру после выхода из карты'
+        TabOrder = 13
+      end
     end
   end
   object bOK: TButton
-    Left = 262
+    Left = 464
     Height = 25
-    Top = 232
+    Top = 328
     Width = 75
     Caption = 'ОК'
     Default = True
@@ -280,40 +417,13 @@ object OptionsForm: TOptionsForm
     TabOrder = 1
   end
   object bCancel: TButton
-    Left = 358
+    Left = 557
     Height = 25
-    Top = 232
+    Top = 328
     Width = 75
     Cancel = True
     Caption = 'Отмена'
     OnClick = bCancelClick
     TabOrder = 2
   end
-  object ColorDialog: TColorDialog
-    Color = clBlack
-    CustomColors.Strings = (
-      'ColorA=000000'
-      'ColorB=000080'
-      'ColorC=008000'
-      'ColorD=008080'
-      'ColorE=800000'
-      'ColorF=800080'
-      'ColorG=808000'
-      'ColorH=808080'
-      'ColorI=C0C0C0'
-      'ColorJ=0000FF'
-      'ColorK=00FF00'
-      'ColorL=00FFFF'
-      'ColorM=FF0000'
-      'ColorN=FF00FF'
-      'ColorO=FFFF00'
-      'ColorP=FFFFFF'
-      'ColorQ=C0DCC0'
-      'ColorR=F0CAA6'
-      'ColorS=F0FBFF'
-      'ColorT=A4A0A0'
-    )
-    left = 200
-    top = 232
-  end
 end