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

Converter: actually show 'Other' groupbox hint in conversion settings dialog

Browse Source 
git-svn-id: trunk@46420 -
This commit is contained in:
maxim 2014-10-04 00:02:15 +00:00
parent bbde974196
commit c3a8b46a04
2 changed files with 74 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

144
converter/convertsettings.lfm
View File

@ -14,8 +14,8 @@ object ConvertSettingsForm: TConvertSettingsForm
LCLVersion = '1.3' LCLVersion = '1.3'
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 38 Height = 34
Top = 371 Top = 375
Width = 643 Width = 643
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
@ -33,7 +33,7 @@ object ConvertSettingsForm: TConvertSettingsForm
object UnitReplaceDivider: TDividerBevel object UnitReplaceDivider: TDividerBevel
AnchorSideTop.Control = InputPathLabel AnchorSideTop.Control = InputPathLabel
Left = 380 Left = 380
Height = 20 Height = 13
Top = 9 Top = 9
Width = 262 Width = 262
Caption = 'Unit Replacements' Caption = 'Unit Replacements'
@ -51,8 +51,8 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideRight.Control = UnitReplaceDivider AnchorSideRight.Control = UnitReplaceDivider
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 380 Left = 380
Height = 20 Height = 13
Top = 68 Top = 61
Width = 262 Width = 262
Caption = 'Unknown properties' Caption = 'Unknown properties'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -70,7 +70,7 @@ object ConvertSettingsForm: TConvertSettingsForm
Left = 381 Left = 381
Height = 25 Height = 25
Hint = 'Unit names in uses section of a source unit' Hint = 'Unit names in uses section of a source unit'
Top = 30 Top = 23
Width = 118 Width = 118
BorderSpacing.Left = 1 BorderSpacing.Left = 1
BorderSpacing.Top = 1 BorderSpacing.Top = 1
@ -87,8 +87,8 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideRight.Control = UnitReplaceDivider AnchorSideRight.Control = UnitReplaceDivider
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 380 Left = 380
Height = 20 Height = 13
Top = 127 Top = 113
Width = 262 Width = 262
Caption = 'Type Replacements' Caption = 'Type Replacements'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -108,7 +108,7 @@ object ConvertSettingsForm: TConvertSettingsForm
Left = 381 Left = 381
Height = 25 Height = 25
Hint = 'Unknown types in form file (DFM/LFM)' Hint = 'Unknown types in form file (DFM/LFM)'
Top = 148 Top = 127
Width = 118 Width = 118
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 1 BorderSpacing.Left = 1
@ -126,8 +126,8 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideRight.Control = UnitReplaceDivider AnchorSideRight.Control = UnitReplaceDivider
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 380 Left = 380
Height = 20 Height = 13
Top = 186 Top = 165
Width = 262 Width = 262
Caption = 'Function Replacements' Caption = 'Function Replacements'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -145,8 +145,8 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideRight.Control = UnitReplaceDivider AnchorSideRight.Control = UnitReplaceDivider
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 380 Left = 380
Height = 20 Height = 13
Top = 261 Top = 233
Width = 262 Width = 262
Caption = 'Coordinate Offsets' Caption = 'Coordinate Offsets'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -166,7 +166,7 @@ object ConvertSettingsForm: TConvertSettingsForm
Left = 381 Left = 381
Height = 25 Height = 25
Hint = 'Some Delphi functions can be replaced with a LCL function' Hint = 'Some Delphi functions can be replaced with a LCL function'
Top = 207 Top = 179
Width = 118 Width = 118
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 1 BorderSpacing.Left = 1
@ -186,7 +186,7 @@ object ConvertSettingsForm: TConvertSettingsForm
Left = 381 Left = 381
Height = 25 Height = 25
Hint = 'Some Delphi functions can be replaced with a LCL function' Hint = 'Some Delphi functions can be replaced with a LCL function'
Top = 282 Top = 247
Width = 118 Width = 118
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 1 BorderSpacing.Left = 1
@ -202,16 +202,16 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = InputPathListBox AnchorSideTop.Control = InputPathListBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 113 Height = 85
Hint = 'xxx' Hint = 'xxx'
Top = 79 Top = 107
Width = 224 Width = 165
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Top = 7 BorderSpacing.Top = 7
Caption = 'Target' Caption = 'Target'
ClientHeight = 88 ClientHeight = 67
ClientWidth = 220 ClientWidth = 161
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 5 TabOrder = 5
@ -220,9 +220,9 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = CrossPlatformCheckBox AnchorSideTop.Control = CrossPlatformCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 17
Top = 32 Top = 25
Width = 125 Width = 88
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'Support Delphi' Caption = 'Support Delphi'
@ -237,9 +237,9 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 17
Top = 59 Top = 45
Width = 208 Width = 149
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 5 BorderSpacing.Bottom = 5
@ -253,9 +253,9 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideLeft.Control = TargetGroupBox AnchorSideLeft.Control = TargetGroupBox
AnchorSideTop.Control = TargetGroupBox AnchorSideTop.Control = TargetGroupBox
Left = 6 Left = 6
Height = 24 Height = 17
Top = 5 Top = 5
Width = 123 Width = 89
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 5 BorderSpacing.Top = 5
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -271,11 +271,11 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = UnitReplaceButton AnchorSideTop.Control = UnitReplaceButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 514 Left = 514
Height = 28 Height = 21
Top = 28 Top = 25
Width = 129 Width = 129
BorderSpacing.Left = 15 BorderSpacing.Left = 15
ItemHeight = 20 ItemHeight = 13
Style = csDropDownList Style = csDropDownList
TabOrder = 6 TabOrder = 6
end end
@ -286,12 +286,12 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideRight.Control = UnitReplaceComboBox AnchorSideRight.Control = UnitReplaceComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 514 Left = 514
Height = 28 Height = 21
Top = 90 Top = 76
Width = 129 Width = 129
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2 BorderSpacing.Top = 2
ItemHeight = 20 ItemHeight = 13
Style = csDropDownList Style = csDropDownList
TabOrder = 7 TabOrder = 7
end end
@ -302,11 +302,11 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideRight.Control = UnitReplaceComboBox AnchorSideRight.Control = UnitReplaceComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 514 Left = 514
Height = 28 Height = 21
Top = 205 Top = 181
Width = 129 Width = 129
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 20 ItemHeight = 13
Style = csDropDownList Style = csDropDownList
TabOrder = 8 TabOrder = 8
end end
@ -317,11 +317,11 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideRight.Control = UnitReplaceComboBox AnchorSideRight.Control = UnitReplaceComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 514 Left = 514
Height = 28 Height = 21
Top = 280 Top = 249
Width = 129 Width = 129
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 20 ItemHeight = 13
Style = csDropDownList Style = csDropDownList
TabOrder = 9 TabOrder = 9
end end
@ -332,11 +332,11 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideRight.Control = UnitReplaceComboBox AnchorSideRight.Control = UnitReplaceComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 514 Left = 514
Height = 28 Height = 21
Top = 146 Top = 129
Width = 129 Width = 129
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 20 ItemHeight = 13
Style = csDropDownList Style = csDropDownList
TabOrder = 10 TabOrder = 10
end end
@ -348,7 +348,7 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 541 Left = 541
Height = 20 Height = 20
Top = 317 Top = 279
Width = 102 Width = 102
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -360,10 +360,10 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = ScanProgressBar AnchorSideTop.Control = ScanProgressBar
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScanProgressBar AnchorSideRight.Control = ScanProgressBar
Left = 365 Left = 411
Height = 20 Height = 13
Top = 317 Top = 283
Width = 170 Width = 124
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'Scanning parent directory' Caption = 'Scanning parent directory'
@ -377,7 +377,7 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 541 Left = 541
Height = 25 Height = 25
Top = 338 Top = 300
Width = 102 Width = 102
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 1 BorderSpacing.Top = 1
@ -390,18 +390,18 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = FuncReplaceButton AnchorSideTop.Control = FuncReplaceButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 381 Left = 381
Height = 24 Height = 17
Top = 237 Top = 209
Width = 241 Width = 172
BorderSpacing.Top = 5 BorderSpacing.Top = 5
Caption = 'Add comment after replacement' Caption = 'Add comment after replacement'
TabOrder = 13 TabOrder = 13
end end
object InputPathLabel: TLabel object InputPathLabel: TLabel
Left = 12 Left = 12
Height = 20 Height = 13
Top = 9 Top = 9
Width = 99 Width = 73
Caption = 'InputPathLabel' Caption = 'InputPathLabel'
ParentColor = False ParentColor = False
end end
@ -412,8 +412,8 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideRight.Control = UnitReplaceDivider AnchorSideRight.Control = UnitReplaceDivider
AnchorSideBottom.Control = TargetGroupBox AnchorSideBottom.Control = TargetGroupBox
Left = 12 Left = 12
Height = 42 Height = 77
Top = 30 Top = 23
Width = 359 Width = 359
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 1 BorderSpacing.Top = 1
@ -427,22 +427,24 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = TargetGroupBox AnchorSideTop.Control = TargetGroupBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 142 Height = 107
Top = 195 Top = 195
Width = 273 Width = 201
AutoSize = True AutoSize = True
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'Other' Caption = 'Other'
ClientHeight = 117 ClientHeight = 89
ClientWidth = 269 ClientWidth = 197
ParentShowHint = False
ShowHint = True
TabOrder = 15 TabOrder = 15
object DelphiDefineCheckBox: TCheckBox object DelphiDefineCheckBox: TCheckBox
AnchorSideLeft.Control = OtherOptGroupBox AnchorSideLeft.Control = OtherOptGroupBox
AnchorSideTop.Control = OtherOptGroupBox AnchorSideTop.Control = OtherOptGroupBox
Left = 6 Left = 6
Height = 24 Height = 17
Top = 5 Top = 5
Width = 233 Width = 163
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 5 BorderSpacing.Top = 5
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -456,9 +458,9 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = DelphiDefineCheckBox AnchorSideTop.Control = DelphiDefineCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 17
Top = 32 Top = 25
Width = 222 Width = 159
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'Make backup of changed files' Caption = 'Make backup of changed files'
@ -473,9 +475,9 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = BackupCheckBox AnchorSideTop.Control = BackupCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 17
Top = 59 Top = 45
Width = 257 Width = 185
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 5 BorderSpacing.Bottom = 5
@ -489,9 +491,9 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = KeepFileOpenCheckBox AnchorSideTop.Control = KeepFileOpenCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 17
Top = 88 Top = 67
Width = 212 Width = 155
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 5 BorderSpacing.Bottom = 5

2
converter/convertsettings.pas
View File

@ -879,7 +879,7 @@ begin
SameDfmCheckBox.Hint:=lisConvertTargetSameDfmFileHint; SameDfmCheckBox.Hint:=lisConvertTargetSameDfmFileHint;
// Other // Other
OtherOptGroupBox.Caption:=lisCEOtherGroup; OtherOptGroupBox.Caption:=lisCEOtherGroup;
OtherOptGroupBox.Hint:=lisConvertTargetHint; OtherOptGroupBox.Hint:=lisConvertOtherHint;
DelphiDefineCheckBox.Caption:=lisAddDelphiDefine; DelphiDefineCheckBox.Caption:=lisAddDelphiDefine;
DelphiDefineCheckBox.Hint:=lisAddDelphiDefineHint; DelphiDefineCheckBox.Hint:=lisAddDelphiDefineHint;
BackupCheckBox.Caption:=lisBackupChangedFiles; BackupCheckBox.Caption:=lisBackupChangedFiles;