paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 12:02:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@49291 -
This commit is contained in:
juha 2015-06-08 16:10:57 +00:00
parent fe0e76a920
commit 246075816b
1 changed files with 74 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

152
converter/chgencodingdlg.lfm
View File

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