X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Feditor%2Ff_options.lfm;h=d579158963d59ff71dfb1fda12d746d67df24634;hb=19f8a082fb249eb52f8fe49ad50a794d3176babd;hp=37d9ec1d18babbcd207d8964b80b01e9a7e7390c;hpb=b72e164f0fb64e3301ae8ca217449daf6a9d301d;p=d2df-editor.git

diff --git a/src/editor/f_options.lfm b/src/editor/f_options.lfm
index 37d9ec1..d579158 100644
--- a/src/editor/f_options.lfm
+++ b/src/editor/f_options.lfm
@@ -1,280 +1,526 @@
 object OptionsForm: TOptionsForm
-  Left = 202
-  Top = 174
+  Left = 1164
+  Height = 360
+  Top = 677
+  Width = 640
   BorderIcons = [biSystemMenu]
   BorderStyle = bsSingle
   Caption = 'Настройки редактора'
-  ClientHeight = 262
-  ClientWidth = 415
+  ClientHeight = 360
+  ClientWidth = 640
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
-  Font.Style = []
+  OnCreate = FormCreate
+  OnShow = FormShow
   Position = poScreenCenter
-  OnActivate = FormActivate
-  PixelsPerInch = 96
-  object GroupBox1: TGroupBox
+  LCLVersion = '2.2.4.0'
+  object PageControl: TPageControl
     Left = 8
-    Top = 0
-    Width = 401
-    Height = 225
-    TabOrder = 0
-    object sDotColor: TShape
-      Left = 318
-      Top = 2
-      Width = 57
-      Height = 25
-    end
-    object LabelGrid: TLabel
-      Left = 6
-      Top = 74
-      Width = 61
-      Height = 13
-      Caption = 'Шаги сетки:'
-    end
-    object LabelGridCol: TLabel
-      Left = 190
-      Top = 2
-      Width = 60
-      Height = 13
-      Caption = 'Цвет сетки:'
-    end
-    object LabelBack: TLabel
-      Left = 190
-      Top = 43
-      Width = 57
-      Height = 13
-      Caption = 'Цвет фона:'
-    end
-    object sBackColor: TShape
-      Left = 318
-      Top = 43
-      Width = 57
-      Height = 25
-      Brush.Color = clBlack
-    end
-    object LabelPreview: TLabel
-      Left = 190
-      Top = 73
-      Width = 84
-      Height = 39
-      Caption = 'Цвет фона поля предпросмотра текстуры:'
-      WordWrap = True
-    end
-    object sPreviewColor: TShape
-      Left = 318
-      Top = 83
-      Width = 57
-      Height = 25
-      Brush.Color = clBlack
-    end
-    object LabelMinimap: TLabel
-      Left = 190
-      Top = 131
-      Width = 112
-      Height = 13
-      Caption = 'Масштаб мини-карты:'
-    end
-    object LabelRecent: TLabel
-      Left = 190
-      Top = 162
-      Width = 121
-      Height = 26
-      Caption = 'Запоминать последних открытых карт:'
-      WordWrap = True
-    end
-    object LabelLanguage: TLabel
-      Left = 6
-      Top = 162
-      Width = 31
-      Height = 13
-      Caption = 'Язык:'
-    end
-    object LabelGridSize: TLabel
-      Left = 6
-      Top = 122
-      Width = 73
-      Height = 26
-      Caption = 'Размер точек сетки:'
-      WordWrap = True
-    end
-    object cbShowDots: TCheckBox
-      Left = 6
-      Top = 2
-      Width = 121
-      Height = 17
-      Caption = 'Показывать сетку'
-      TabOrder = 0
-    end
-    object UpDown1: TUpDown
-      Left = 143
-      Top = 74
-      Width = 12
-      Height = 21
-      Associate = eDotStepOne
-      Min = 2
-      Max = 255
-      Position = 16
-      TabOrder = 6
-    end
-    object eDotStepOne: TEdit
-      Left = 86
-      Top = 74
-      Width = 57
-      Height = 21
-      TabOrder = 1
-      Text = '16'
-    end
-    object bGrid: TButton
-      Left = 376
-      Top = 2
-      Width = 11
-      Height = 25
-      Caption = '..'
-      TabOrder = 2
-      OnClick = bGridClick
-    end
-    object bBack: TButton
-      Left = 376
-      Top = 43
-      Width = 11
-      Height = 25
-      Caption = '..'
-      TabOrder = 3
-      OnClick = bBackClick
-    end
-    object bPreview: TButton
-      Left = 376
-      Top = 83
-      Width = 11
-      Height = 25
-      Caption = '..'
-      TabOrder = 4
-      OnClick = bPreviewClick
-    end
-    object cbScale: TComboBox
-      Left = 318
-      Top = 131
-      Width = 70
-      Height = 21
-      Style = csDropDownList
-      ItemHeight = 13
-      ItemIndex = 0
-      TabOrder = 5
-      Text = '1x'
-      Items.Strings = (
-        '1x'
-        '2x')
-    end
-    object cbShowTexture: TCheckBox
-      Left = 6
-      Top = 18
-      Width = 169
-      Height = 17
-      Caption = 'Показывать текстуру панели'
-      TabOrder = 7
-    end
-    object cbShowSize: TCheckBox
-      Left = 6
-      Top = 34
-      Width = 169
-      Height = 17
-      Caption = 'Показывать размеры панели'
-      TabOrder = 8
-    end
-    object eRecent: TEdit
-      Left = 318
-      Top = 166
-      Width = 57
-      Height = 21
-      TabOrder = 9
-      Text = '5'
-    end
-    object UpDown3: TUpDown
-      Left = 375
-      Top = 166
-      Width = 12
-      Height = 21
-      Associate = eRecent
-      Min = 2
-      Max = 10
-      Position = 5
-      TabOrder = 10
-    end
-    object eDotStepTwo: TEdit
-      Left = 86
-      Top = 98
-      Width = 57
-      Height = 21
-      TabOrder = 11
-      Text = '8'
-    end
-    object UpDown2: TUpDown
-      Left = 143
-      Top = 98
-      Width = 12
-      Height = 21
-      Associate = eDotStepTwo
-      Min = 2
-      Max = 255
-      Position = 8
-      TabOrder = 12
-    end
-    object rbRussian: TRadioButton
-      Left = 86
-      Top = 162
-      Width = 81
-      Height = 17
-      Caption = 'Русский'
-      Checked = True
-      TabOrder = 13
-      TabStop = True
+    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 cbLanguage: TComboBox
+        Left = 304
+        Height = 26
+        Top = 192
+        Width = 68
+        ItemHeight = 0
+        Style = csDropDownList
+        TabOrder = 13
+      end
     end
-    object rbEnglish: TRadioButton
-      Left = 86
-      Top = 186
-      Width = 81
-      Height = 17
-      Caption = 'English'
-      TabOrder = 14
+    object TabFiles: TTabSheet
+      Caption = 'Files'
+      ClientHeight = 284
+      ClientWidth = 620
+      object cbCompress: TCheckBox
+        Left = 8
+        Height = 21
+        Top = 8
+        Width = 249
+        Caption = 'Сжимать архив при сохранении'
+        TabOrder = 2
+      end
+      object cbBackup: TCheckBox
+        Left = 8
+        Height = 21
+        Top = 32
+        Width = 258
+        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 cbDotSize: TComboBox
-      Left = 86
-      Top = 126
-      Width = 73
-      Height = 21
-      ItemHeight = 13
-      TabOrder = 15
-      Text = '1'
-      Items.Strings = (
-        '1'
-        '2')
+    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 = 103
+        Caption = 'Deathmatch'
+        Checked = True
+        TabOrder = 0
+        TabStop = True
+      end
+      object rbTDM: TRadioButton
+        Left = 8
+        Height = 21
+        Top = 120
+        Width = 142
+        Caption = 'Team Deathmatch'
+        TabOrder = 1
+      end
+      object rbCTF: TRadioButton
+        Left = 8
+        Height = 21
+        Top = 136
+        Width = 131
+        Caption = 'Capture the Flag'
+        TabOrder = 2
+      end
+      object rbCOOP: TRadioButton
+        Left = 8
+        Height = 21
+        Top = 152
+        Width = 102
+        Caption = 'Cooperative'
+        TabOrder = 3
+      end
+      object cbTwoPlayers: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 104
+        Width = 101
+        Caption = 'Два игрока'
+        TabOrder = 4
+      end
+      object cbTeamDamage: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 120
+        Width = 164
+        Caption = 'Урон своей команде'
+        TabOrder = 5
+      end
+      object cbAllowExit: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 136
+        Width = 141
+        Caption = 'Выход из уровня'
+        Checked = True
+        State = cbChecked
+        TabOrder = 6
+      end
+      object cbWeaponStay: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 152
+        Width = 145
+        Caption = 'Оружие остается'
+        TabOrder = 7
+      end
+      object cbMonstersDM: TCheckBox
+        Left = 168
+        Height = 21
+        Top = 168
+        Width = 124
+        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 = 287
+        Caption = 'Закрыть игру после выхода из карты'
+        TabOrder = 11
+      end
     end
   end
   object bOK: TButton
-    Left = 240
-    Top = 232
-    Width = 75
+    Left = 464
     Height = 25
+    Top = 328
+    Width = 75
     Caption = 'ОК'
     Default = True
-    TabOrder = 1
     OnClick = bOKClick
+    TabOrder = 0
   end
   object bCancel: TButton
-    Left = 336
-    Top = 232
-    Width = 75
+    Left = 557
     Height = 25
+    Top = 328
+    Width = 75
     Cancel = True
     Caption = 'Отмена'
-    TabOrder = 2
     OnClick = bCancelClick
+    TabOrder = 1
   end
   object ColorDialog: TColorDialog
-    Left = 200
-    Top = 232
+    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 = 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