Convert forms resources from Delphi to Lazarus format

[d2df-editor.git] / src / editor / f_packmap.lfm

diff --git a/src/editor/f_packmap.lfm b/src/editor/f_packmap.lfm
index 31d3b46506e07bb6d798b26b420d0ab359955fa5..9e28d423586f7cfc2708706e0ddc29d7cc492f79 100644 (file)
--- a/src/editor/f_packmap.lfm
+++ b/src/editor/f_packmap.lfm
@@ -1,121 +1,128 @@
 object PackMapForm: TPackMapForm
   Left = 312
+  Height = 229
   Top = 231
+  Width = 360
   BorderIcons = [biSystemMenu]
   BorderStyle = bsSingle
   Caption = 'Упаковать карту'
   ClientHeight = 229
   ClientWidth = 360
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  Position = poScreenCenter
   OnCreate = FormCreate
-  PixelsPerInch = 96
+  Position = poScreenCenter
+  LCLVersion = '1.6.4.0'
   object Panel1: TPanel
     Left = 4
+    Height = 189
     Top = 4
     Width = 353
-    Height = 189
     BevelInner = bvRaised
     BevelOuter = bvLowered
+    ClientHeight = 189
+    ClientWidth = 353
     TabOrder = 0
     object LabelSaveTo: TLabel
       Left = 6
+      Height = 13
       Top = 6
       Width = 65
-      Height = 13
       Caption = 'Сохранить в:'
+      ParentColor = False
     end
     object LabelMapName: TLabel
       Left = 214
+      Height = 13
       Top = 6
       Width = 109
-      Height = 13
       Caption = 'Имя ресурса (карты):'
+      ParentColor = False
     end
     object LabelTextures: TLabel
       Left = 94
+      Height = 13
       Top = 62
       Width = 103
-      Height = 13
       Caption = 'Секция для текстур:'
+      ParentColor = False
     end
     object LabelSky: TLabel
       Left = 94
+      Height = 13
       Top = 86
       Width = 88
-      Height = 13
       Caption = 'Секция для неба:'
+      ParentColor = False
     end
     object LabelMusic: TLabel
       Left = 94
+      Height = 13
       Top = 110
       Width = 103
-      Height = 13
       Caption = 'Секция для музыки:'
+      ParentColor = False
     end
     object eWAD: TEdit
       Left = 6
+      Height = 21
       Top = 22
       Width = 169
-      Height = 21
       TabOrder = 0
     end
     object bSelectWAD: TButton
       Left = 176
-      Top = 20
-      Width = 23
       Height = 23
       Hint = 'Выбрать фон'
+      Top = 20
+      Width = 23
       Caption = '..'
-      TabOrder = 1
       OnClick = bSelectWADClick
+      TabOrder = 1
     end
     object eResource: TEdit
       Left = 214
+      Height = 21
       Top = 22
       Width = 129
-      Height = 21
-      CharCase = ecUpperCase
+      CharCase = ecUppercase
       MaxLength = 16
       TabOrder = 2
     end
     object eTSection: TEdit
       Left = 214
+      Height = 21
       Top = 62
       Width = 129
-      Height = 21
-      CharCase = ecUpperCase
+      CharCase = ecUppercase
       MaxLength = 16
       TabOrder = 4
     end
     object eSSection: TEdit
       Left = 214
+      Height = 21
       Top = 86
       Width = 129
-      Height = 21
-      CharCase = ecUpperCase
+      CharCase = ecUppercase
       MaxLength = 16
       TabOrder = 6
     end
     object eMSection: TEdit
       Left = 214
+      Height = 21
       Top = 110
       Width = 129
-      Height = 21
-      CharCase = ecUpperCase
+      CharCase = ecUppercase
       MaxLength = 16
       TabOrder = 8
     end
     object cbTextrures: TCheckBox
       Left = 6
-      Top = 62
-      Width = 89
       Height = 17
+      Top = 62
+      Width = 67
       Caption = 'Текстуры'
       Checked = True
       State = cbChecked
@@ -123,9 +130,9 @@ object PackMapForm: TPackMapForm
     end
     object cbSky: TCheckBox
       Left = 6
-      Top = 86
-      Width = 89
       Height = 17
+      Top = 86
+      Width = 44
       Caption = 'Небо'
       Checked = True
       State = cbChecked
@@ -133,9 +140,9 @@ object PackMapForm: TPackMapForm
     end
     object cbMusic: TCheckBox
       Left = 6
-      Top = 110
-      Width = 89
       Height = 17
+      Top = 110
+      Width = 57
       Caption = 'Музыку'
       Checked = True
       State = cbChecked
@@ -143,37 +150,37 @@ object PackMapForm: TPackMapForm
     end
     object cbAdd: TCheckBox
       Left = 6
-      Top = 142
-      Width = 193
       Height = 17
+      Top = 142
+      Width = 149
       Caption = 'Не перезаписывать WAD'
       TabOrder = 9
     end
     object cbNonStandart: TCheckBox
       Left = 6
-      Top = 158
-      Width = 209
       Height = 17
       Hint = 'Не сохранять ресурсы из стандартных WAD''ов - Standart.wad и пр.'
+      Top = 158
+      Width = 182
       Caption = 'Только нестандартные ресурсы'
       TabOrder = 10
     end
   end
   object bPack: TButton
     Left = 282
+    Height = 25
     Top = 200
     Width = 75
-    Height = 25
     Caption = 'Упаковать'
     Default = True
-    TabOrder = 1
     OnClick = bPackClick
+    TabOrder = 1
   end
   object SaveDialog: TSaveDialog
-    DefaultExt = 'wad'
+    DefaultExt = '.wad'
     Filter = 'Карты Doom2D: Forever (*.wad)|*.wad|All files (*.*)|*.*'
     Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing, ofDontAddToRecent]
-    Left = 8
-    Top = 200
+    left = 8
+    top = 200
   end
 end