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