src/editor/f_packmap.lfm

   1 object PackMapForm: TPackMapForm
   2   Left = 312
   3   Top = 231
   4   BorderIcons = [biSystemMenu]
   5   BorderStyle = bsSingle
   6   Caption = 'Упаковать карту'
   7   ClientHeight = 229
   8   ClientWidth = 360
   9   Color = clBtnFace
  10   Font.Charset = DEFAULT_CHARSET
  11   Font.Color = clWindowText
  12   Font.Height = -11
  13   Font.Name = 'MS Sans Serif'
  14   Font.Style = []
  15   Position = poScreenCenter
  16   OnCreate = FormCreate
  17   PixelsPerInch = 96
  18   object Panel1: TPanel
  19     Left = 4
  20     Top = 4
  21     Width = 353
  22     Height = 189
  23     BevelInner = bvRaised
  24     BevelOuter = bvLowered
  25     TabOrder = 0
  26     object LabelSaveTo: TLabel
  27       Left = 6
  28       Top = 6
  29       Width = 65
  30       Height = 13
  31       Caption = 'Сохранить в:'
  32     end
  33     object LabelMapName: TLabel
  34       Left = 214
  35       Top = 6
  36       Width = 109
  37       Height = 13
  38       Caption = 'Имя ресурса (карты):'
  39     end
  40     object LabelTextures: TLabel
  41       Left = 94
  42       Top = 62
  43       Width = 103
  44       Height = 13
  45       Caption = 'Секция для текстур:'
  46     end
  47     object LabelSky: TLabel
  48       Left = 94
  49       Top = 86
  50       Width = 88
  51       Height = 13
  52       Caption = 'Секция для неба:'
  53     end
  54     object LabelMusic: TLabel
  55       Left = 94
  56       Top = 110
  57       Width = 103
  58       Height = 13
  59       Caption = 'Секция для музыки:'
  60     end
  61     object eWAD: TEdit
  62       Left = 6
  63       Top = 22
  64       Width = 169
  65       Height = 21
  66       TabOrder = 0
  67     end
  68     object bSelectWAD: TButton
  69       Left = 176
  70       Top = 20
  71       Width = 23
  72       Height = 23
  73       Hint = 'Выбрать фон'
  74       Caption = '..'
  75       TabOrder = 1
  76       OnClick = bSelectWADClick
  77     end
  78     object eResource: TEdit
  79       Left = 214
  80       Top = 22
  81       Width = 129
  82       Height = 21
  83       CharCase = ecUpperCase
  84       MaxLength = 16
  85       TabOrder = 2
  86     end
  87     object eTSection: TEdit
  88       Left = 214
  89       Top = 62
  90       Width = 129
  91       Height = 21
  92       CharCase = ecUpperCase
  93       MaxLength = 16
  94       TabOrder = 4
  95     end
  96     object eSSection: TEdit
  97       Left = 214
  98       Top = 86
  99       Width = 129
 100       Height = 21
 101       CharCase = ecUpperCase
 102       MaxLength = 16
 103       TabOrder = 6
 104     end
 105     object eMSection: TEdit
 106       Left = 214
 107       Top = 110
 108       Width = 129
 109       Height = 21
 110       CharCase = ecUpperCase
 111       MaxLength = 16
 112       TabOrder = 8
 113     end
 114     object cbTextrures: TCheckBox
 115       Left = 6
 116       Top = 62
 117       Width = 89
 118       Height = 17
 119       Caption = 'Текстуры'
 120       Checked = True
 121       State = cbChecked
 122       TabOrder = 3
 123     end
 124     object cbSky: TCheckBox
 125       Left = 6
 126       Top = 86
 127       Width = 89
 128       Height = 17
 129       Caption = 'Небо'
 130       Checked = True
 131       State = cbChecked
 132       TabOrder = 5
 133     end
 134     object cbMusic: TCheckBox
 135       Left = 6
 136       Top = 110
 137       Width = 89
 138       Height = 17
 139       Caption = 'Музыку'
 140       Checked = True
 141       State = cbChecked
 142       TabOrder = 7
 143     end
 144     object cbAdd: TCheckBox
 145       Left = 6
 146       Top = 142
 147       Width = 193
 148       Height = 17
 149       Caption = 'Не перезаписывать WAD'
 150       TabOrder = 9
 151     end
 152     object cbNonStandart: TCheckBox
 153       Left = 6
 154       Top = 158
 155       Width = 209
 156       Height = 17
 157       Hint = 'Не сохранять ресурсы из стандартных WAD''ов - Standart.wad и пр.'
 158       Caption = 'Только нестандартные ресурсы'
 159       TabOrder = 10
 160     end
 161   end
 162   object bPack: TButton
 163     Left = 282
 164     Top = 200
 165     Width = 75
 166     Height = 25
 167     Caption = 'Упаковать'
 168     Default = True
 169     TabOrder = 1
 170     OnClick = bPackClick
 171   end
 172   object SaveDialog: TSaveDialog
 173     DefaultExt = 'wad'
 174     Filter = 'Карты Doom2D: Forever (*.wad)|*.wad|All files (*.*)|*.*'
 175     Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing, ofDontAddToRecent]
 176     Left = 8
 177     Top = 200
 178   end
 179 end