Converter: ChgEncodingDlg tweak. Issue #28256, patch from Alexey Torgashin.

git-svn-id: trunk@49291 -

converter/chgencodingdlg.lfm

@@ -4,36 +4,35 @@ object ChgEncodingDialog: TChgEncodingDialog
   Top = 191
   Width = 683
   ActiveControl = OwnerComboBox
+  BorderIcons = [biSystemMenu, biMaximize]
   Caption = 'ChgEncodingDialog'
   ClientHeight = 560
   ClientWidth = 683
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   Position = poScreenCenter
-  LCLVersion = '1.3'
+  LCLVersion = '1.5'
   object FilesGroupBox: TGroupBox
     Left = 6
-    Height = 164
-    Top = 74
+    Height = 151
+    Top = 67
     Width = 671
     Align = alTop
     AutoSize = True
     BorderSpacing.Around = 6
     Caption = 'FilesGroupBox'
-    ClientHeight = 143
-    ClientWidth = 663
-    TabOrder = 0
+    ClientHeight = 131
+    ClientWidth = 667
+    TabOrder = 1
     object FileFilterLabel: TLabel
       AnchorSideLeft.Control = FilesGroupBox
       AnchorSideTop.Control = NonUTF8FilesCheckBox
       AnchorSideTop.Side = asrBottom
       Left = 6
-      Height = 17
-      Top = 71
-      Width = 84
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 15
-      BorderSpacing.Bottom = 2
+      Height = 15
+      Top = 56
+      Width = 72
+      BorderSpacing.Around = 6
       Caption = 'FileFilterLabel'
       ParentColor = False
     end
@@ -41,9 +40,9 @@ object ChgEncodingDialog: TChgEncodingDialog
       AnchorSideLeft.Control = FilesGroupBox
       AnchorSideTop.Control = FilesGroupBox
       Left = 6
-      Height = 22
+      Height = 19
       Top = 6
-      Width = 149
+      Width = 122
       BorderSpacing.Around = 6
       Caption = 'UTF8FilesCheckBox'
       Checked = True
@@ -56,9 +55,9 @@ object ChgEncodingDialog: TChgEncodingDialog
       AnchorSideTop.Control = UTF8FilesCheckBox
       AnchorSideTop.Side = asrBottom
       Left = 6
-      Height = 22
-      Top = 34
-      Width = 175
+      Height = 19
+      Top = 31
+      Width = 145
       BorderSpacing.Around = 6
       Caption = 'NonUTF8FilesCheckBox'
       Checked = True
@@ -71,14 +70,13 @@ object ChgEncodingDialog: TChgEncodingDialog
       AnchorSideTop.Control = FileFilterCombobox
       AnchorSideTop.Side = asrBottom
       Left = 6
-      Height = 22
-      Top = 121
-      Width = 141
-      BorderSpacing.Left = 6
-      BorderSpacing.Top = 2
+      Height = 19
+      Top = 106
+      Width = 114
+      BorderSpacing.Around = 6
       Caption = 'RegExprCheckBox'
       OnChange = PreviewClick
-      TabOrder = 2
+      TabOrder = 3
     end
     object FileFilterCombobox: TComboBox
       AnchorSideLeft.Control = FilesGroupBox
@@ -87,15 +85,14 @@ object ChgEncodingDialog: TChgEncodingDialog
       AnchorSideRight.Control = FilesGroupBox
       AnchorSideRight.Side = asrBottom
       Left = 6
-      Height = 29
-      Top = 90
-      Width = 651
+      Height = 23
+      Top = 77
+      Width = 655
       Anchors = [akTop, akLeft, akRight]
-      BorderSpacing.Left = 6
-      BorderSpacing.Right = 6
-      ItemHeight = 0
+      BorderSpacing.Around = 6
+      ItemHeight = 15
       OnChange = PreviewClick
-      TabOrder = 3
+      TabOrder = 2
       Text = 'FileFilterCombobox'
     end
     object RegExprErrorLabel: TLabel
@@ -103,11 +100,11 @@ object ChgEncodingDialog: TChgEncodingDialog
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = RegExprCheckBox
       AnchorSideTop.Side = asrCenter
-      Left = 167
+      Left = 126
       Height = 15
-      Top = 116
-      Width = 114
-      BorderSpacing.Left = 27
+      Top = 108
+      Width = 95
+      BorderSpacing.Around = 6
       Caption = 'RegExprErrorLabel'
       Font.Color = clFuchsia
       ParentColor = False
@@ -116,33 +113,33 @@ object ChgEncodingDialog: TChgEncodingDialog
   end
   object BtnPanel: TPanel
     Left = 0
-    Height = 45
-    Top = 515
+    Height = 38
+    Top = 522
     Width = 683
     Align = alBottom
     AutoSize = True
     BevelOuter = bvNone
-    ClientHeight = 45
+    ClientHeight = 38
     ClientWidth = 683
-    TabOrder = 1
+    TabOrder = 3
     object CloseButton: TBitBtn
-      Left = 585
-      Height = 33
+      Left = 586
+      Height = 26
       Top = 6
-      Width = 92
+      Width = 91
       Align = alRight
       AutoSize = True
       BorderSpacing.Around = 6
       Caption = 'CloseButton'
       Constraints.MinWidth = 75
       ModalResult = 1
-      TabOrder = 0
+      TabOrder = 2
     end
     object ApplyButton: TBitBtn
       Left = 487
-      Height = 33
+      Height = 26
       Top = 6
-      Width = 92
+      Width = 93
       Align = alRight
       AutoSize = True
       BorderSpacing.Around = 6
@@ -153,41 +150,41 @@ object ChgEncodingDialog: TChgEncodingDialog
     end
     object HelpButton: TBitBtn
       Left = 6
-      Height = 33
+      Height = 26
       Top = 6
-      Width = 77
+      Width = 71
       Align = alLeft
       AutoSize = True
       BorderSpacing.Around = 6
       Caption = '&Help'
       Kind = bkHelp
       OnClick = HelpButtonClick
-      TabOrder = 2
+      TabOrder = 0
     end
   end
   object ScopeGroupBox: TGroupBox
     Left = 6
-    Height = 62
+    Height = 55
     Top = 6
     Width = 671
     Align = alTop
     AutoSize = True
     BorderSpacing.Around = 6
     Caption = 'ScopeGroupBox'
-    ClientHeight = 41
-    ClientWidth = 663
-    TabOrder = 2
+    ClientHeight = 35
+    ClientWidth = 667
+    TabOrder = 0
     object NewEncodingLabel: TLabel
       AnchorSideLeft.Control = NewEncodingComboBox
       AnchorSideTop.Control = NewEncodingComboBox
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = NewEncodingComboBox
-      Left = 411
-      Height = 17
-      Top = 12
-      Width = 119
+      Left = 426
+      Height = 15
+      Top = 10
+      Width = 102
       Anchors = [akTop, akRight]
-      BorderSpacing.Left = 15
+      BorderSpacing.Around = 6
       Caption = 'NewEncodingLabel'
       ParentColor = False
     end
@@ -196,61 +193,60 @@ object ChgEncodingDialog: TChgEncodingDialog
       AnchorSideTop.Control = ScopeGroupBox
       AnchorSideRight.Control = NewEncodingLabel
       Left = 6
-      Height = 29
+      Height = 23
       Top = 6
-      Width = 390
+      Width = 414
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Around = 6
-      ItemHeight = 0
+      ItemHeight = 15
       OnChange = PreviewClick
+      Style = csDropDownList
       TabOrder = 0
-      Text = 'OwnerComboBox'
     end
     object NewEncodingComboBox: TComboBox
       AnchorSideTop.Control = ScopeGroupBox
       AnchorSideRight.Control = ScopeGroupBox
       AnchorSideRight.Side = asrBottom
-      Left = 530
-      Height = 29
+      Left = 534
+      Height = 23
       Top = 6
       Width = 127
       Anchors = [akTop, akRight]
-      BorderSpacing.Top = 6
-      BorderSpacing.Right = 6
-      BorderSpacing.Bottom = 6
-      ItemHeight = 0
+      BorderSpacing.Around = 6
+      ItemHeight = 15
       OnChange = PreviewClick
+      Style = csDropDownList
       TabOrder = 1
-      Text = 'NewEncodingComboBox'
     end
   end
   object PreviewGroupBox: TGroupBox
     Left = 6
-    Height = 265
-    Top = 244
+    Height = 292
+    Top = 224
     Width = 671
     Align = alClient
     BorderSpacing.Around = 6
     Caption = 'PreviewGroupBox'
-    ClientHeight = 244
-    ClientWidth = 663
-    TabOrder = 3
+    ClientHeight = 272
+    ClientWidth = 667
+    TabOrder = 2
     object PreviewListView: TListView
-      Left = 0
-      Height = 244
-      Top = 0
-      Width = 663
+      Left = 5
+      Height = 262
+      Top = 5
+      Width = 657
       Align = alClient
+      BorderSpacing.Around = 5
       Columns = <      
         item
           AutoSize = True
           Caption = 'Files'
-          Width = 32
+          Width = 659
         end      
         item
           AutoSize = True
           Caption = 'Encoding'
-          Width = 615
+          Width = 62
         end>
       SortType = stText
       TabOrder = 0