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

Converter: improved converter settings form layout

Browse Source 
git-svn-id: trunk@38379 -
This commit is contained in:
maxim 2012-08-25 22:03:32 +00:00
parent f317a74361
commit 21a83dc687
1 changed files with 60 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
converter/convertsettings.lfm
View File

@ -17,7 +17,7 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideRight.Control = UnitReplaceDivider AnchorSideRight.Control = UnitReplaceDivider
Left = 9 Left = 9
Height = 25 Height = 21
Hint = 'Directory where project''s main file must be' Hint = 'Directory where project''s main file must be'
Top = 32 Top = 32
Width = 330 Width = 330
@ -32,8 +32,8 @@ object ConvertSettingsForm: TConvertSettingsForm
EditLabel.AnchorSideRight.Side = asrBottom EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = ProjectPathEdit EditLabel.AnchorSideBottom.Control = ProjectPathEdit
EditLabel.Left = 9 EditLabel.Left = 9
EditLabel.Height = 17 EditLabel.Height = 13
EditLabel.Top = 8 EditLabel.Top = 12
EditLabel.Width = 330 EditLabel.Width = 330
EditLabel.Caption = 'Project Path:' EditLabel.Caption = 'Project Path:'
EditLabel.ParentColor = False EditLabel.ParentColor = False
@ -48,10 +48,10 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = TargetGroupBox AnchorSideTop.Control = TargetGroupBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 22 Height = 17
Hint = 'Creates a Backup directory under project directory' Hint = 'Creates a Backup directory under project directory'
Top = 185 Top = 181
Width = 215 Width = 159
BorderSpacing.Left = 3 BorderSpacing.Left = 3
BorderSpacing.Top = 9 BorderSpacing.Top = 9
Caption = 'Make backup of changed files' Caption = 'Make backup of changed files'
@ -63,8 +63,8 @@ object ConvertSettingsForm: TConvertSettingsForm
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 41 Height = 34
Top = 308 Top = 315
Width = 587 Width = 587
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
@ -84,10 +84,10 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = BackupCheckBox AnchorSideTop.Control = BackupCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 22 Height = 17
Hint = 'Separate form files allow different properties' Hint = 'Separate form files allow different properties'
Top = 212 Top = 203
Width = 247 Width = 185
BorderSpacing.Top = 5 BorderSpacing.Top = 5
Caption = 'Keep converted files open in editor' Caption = 'Keep converted files open in editor'
ParentShowHint = False ParentShowHint = False
@ -259,12 +259,12 @@ object ConvertSettingsForm: TConvertSettingsForm
Left = 9 Left = 9
Height = 108 Height = 108
Hint = 'xxx' Hint = 'xxx'
Top = 68 Top = 64
Width = 255 Width = 255
BorderSpacing.Top = 11 BorderSpacing.Top = 11
Caption = 'Target' Caption = 'Target'
ClientHeight = 87 ClientHeight = 90
ClientWidth = 247 ClientWidth = 251
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 8 TabOrder = 8
@ -273,9 +273,9 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = MultiPlatformCheckBox AnchorSideTop.Control = MultiPlatformCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 22 Height = 17
Top = 31 Top = 26
Width = 122 Width = 88
BorderSpacing.Top = 5 BorderSpacing.Top = 5
Caption = 'Support Delphi' Caption = 'Support Delphi'
OnChange = SupportDelphiCheckBoxChange OnChange = SupportDelphiCheckBoxChange
@ -288,9 +288,9 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = SupportDelphiCheckBox AnchorSideTop.Control = SupportDelphiCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 22 Height = 17
Top = 58 Top = 48
Width = 205 Width = 149
BorderSpacing.Top = 5 BorderSpacing.Top = 5
Caption = 'Use the same DFM form file' Caption = 'Use the same DFM form file'
OnChange = SameDfmCheckBoxChange OnChange = SameDfmCheckBoxChange
@ -301,9 +301,9 @@ object ConvertSettingsForm: TConvertSettingsForm
object MultiPlatformCheckBox: TCheckBox object MultiPlatformCheckBox: TCheckBox
AnchorSideTop.Control = TargetGroupBox AnchorSideTop.Control = TargetGroupBox
Left = 10 Left = 10
Height = 22 Height = 17
Top = 4 Top = 4
Width = 116 Width = 84
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'Multi-Platform' Caption = 'Multi-Platform'
ParentShowHint = False ParentShowHint = False
@ -317,11 +317,11 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = UnitReplaceButton AnchorSideTop.Control = UnitReplaceButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 447 Left = 447
Height = 29 Height = 21
Top = 25 Top = 29
Width = 136 Width = 136
BorderSpacing.Left = 23 BorderSpacing.Left = 23
ItemHeight = 0 ItemHeight = 13
Style = csDropDownList Style = csDropDownList
TabOrder = 9 TabOrder = 9
end end
@ -330,11 +330,11 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = UnknownPropsDivider AnchorSideTop.Control = UnknownPropsDivider
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 447 Left = 447
Height = 29 Height = 21
Top = 84 Top = 84
Width = 136 Width = 136
BorderSpacing.Top = 2 BorderSpacing.Top = 2
ItemHeight = 0 ItemHeight = 13
Style = csDropDownList Style = csDropDownList
TabOrder = 10 TabOrder = 10
end end
@ -344,11 +344,11 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = FuncReplaceButton AnchorSideTop.Control = FuncReplaceButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 447 Left = 447
Height = 29 Height = 21
Top = 193 Top = 197
Width = 136 Width = 136
BorderSpacing.Left = 23 BorderSpacing.Left = 23
ItemHeight = 0 ItemHeight = 13
Style = csDropDownList Style = csDropDownList
TabOrder = 11 TabOrder = 11
end end
@ -358,11 +358,11 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = CoordOffsButton AnchorSideTop.Control = CoordOffsButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 447 Left = 447
Height = 29 Height = 21
Top = 249 Top = 253
Width = 136 Width = 136
BorderSpacing.Left = 23 BorderSpacing.Left = 23
ItemHeight = 0 ItemHeight = 13
Style = csDropDownList Style = csDropDownList
TabOrder = 12 TabOrder = 12
end end
@ -372,35 +372,51 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = TypeReplaceButton AnchorSideTop.Control = TypeReplaceButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 447 Left = 447
Height = 29 Height = 21
Top = 137 Top = 141
Width = 136 Width = 136
BorderSpacing.Left = 23 BorderSpacing.Left = 23
ItemHeight = 0 ItemHeight = 13
Style = csDropDownList Style = csDropDownList
TabOrder = 13 TabOrder = 13
end end
object ScanProgressBar: TProgressBar object ScanProgressBar: TProgressBar
Left = 190 AnchorSideLeft.Control = ScanLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = KeepFileOpenCheckBox
AnchorSideTop.Side = asrBottom
Left = 142
Height = 20 Height = 20
Top = 251 Top = 244
Width = 102 Width = 102
BorderSpacing.Left = 6
BorderSpacing.Top = 24
Style = pbstMarquee Style = pbstMarquee
TabOrder = 14 TabOrder = 14
end end
object ScanLabel: TLabel object ScanLabel: TLabel
Left = 16 AnchorSideLeft.Control = BackupCheckBox
Height = 17 AnchorSideTop.Control = ScanProgressBar
Top = 251 AnchorSideTop.Side = asrCenter
Width = 166 Left = 12
Height = 13
Top = 248
Width = 124
Caption = 'Scanning parent directory' Caption = 'Scanning parent directory'
ParentColor = False ParentColor = False
end end
object StopScanButton: TBitBtn object StopScanButton: TBitBtn
Left = 190 AnchorSideLeft.Control = ScanProgressBar
AnchorSideTop.Control = ScanProgressBar
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ScanProgressBar
AnchorSideRight.Side = asrBottom
Left = 142
Height = 25 Height = 25
Top = 272 Top = 265
Width = 102 Width = 102
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 1
Caption = 'Stop' Caption = 'Stop'
OnClick = StopScanButtonClick OnClick = StopScanButtonClick
TabOrder = 15 TabOrder = 15