From 11242b1bc4949c98d44f99ed841290eabbeb95f0 Mon Sep 17 00:00:00 2001 From: mattias Date: Thu, 11 Mar 2010 20:55:39 +0000 Subject: [PATCH] IDE: improved layout findinfiles dialog git-svn-id: trunk@23950 - --- ide/findinfilesdlg.lfm | 112 ++++++++++++++++++++++++----------------- 1 file changed, 65 insertions(+), 47 deletions(-) diff --git a/ide/findinfilesdlg.lfm b/ide/findinfilesdlg.lfm index 5a1250b7c8..bcbb3d26a8 100644 --- a/ide/findinfilesdlg.lfm +++ b/ide/findinfilesdlg.lfm @@ -1,50 +1,56 @@ object LazFindInFilesDialog: TLazFindInFilesDialog Left = 379 - Height = 460 + Height = 530 Top = 155 Width = 420 ActiveControl = TextToFindComboBox Caption = 'Find in files' - ClientHeight = 460 + ClientHeight = 530 ClientWidth = 420 Constraints.MinHeight = 400 Constraints.MinWidth = 260 OnClose = FormClose OnCreate = FormCreate Position = poScreenCenter - LCLVersion = '0.9.27' + LCLVersion = '0.9.29' object TextToFindLabel: TLabel AnchorSideTop.Control = TextToFindComboBox AnchorSideTop.Side = asrCenter Left = 6 - Height = 14 - Top = 9 - Width = 65 + Height = 18 + Top = 11 + Width = 76 Caption = 'Text To Find:' ParentColor = False end object TextToFindComboBox: TComboBox AnchorSideLeft.Control = TextToFindLabel AnchorSideLeft.Side = asrBottom - Left = 77 - Height = 21 + Left = 88 + Height = 29 Top = 6 - Width = 337 + Width = 326 Anchors = [akTop, akLeft, akRight] AutoComplete = True AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending] BorderSpacing.Left = 6 - ItemHeight = 13 - ItemWidth = 0 + ItemHeight = 0 TabOrder = 0 end object OptionsCheckGroupBox: TCheckGroup + AnchorSideLeft.Control = Owner + AnchorSideTop.Control = ReplaceTextComboBox + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom Left = 6 - Height = 115 - Top = 65 + Height = 137 + Top = 72 Width = 408 Anchors = [akTop, akLeft, akRight] AutoFill = True + AutoSize = True + BorderSpacing.Around = 6 Caption = 'Options' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 @@ -68,12 +74,19 @@ object LazFindInFilesDialog: TLazFindInFilesDialog } end object WhereRadioGroup: TRadioGroup + AnchorSideLeft.Control = Owner + AnchorSideTop.Control = OptionsCheckGroupBox + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom Left = 6 - Height = 82 - Top = 185 + Height = 109 + Top = 215 Width = 408 Anchors = [akTop, akLeft, akRight] AutoFill = True + AutoSize = True + BorderSpacing.Around = 6 Caption = 'Where' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 @@ -85,7 +98,7 @@ object LazFindInFilesDialog: TLazFindInFilesDialog ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 64 + ClientHeight = 90 ClientWidth = 404 ItemIndex = 1 Items.Strings = ( @@ -98,43 +111,48 @@ object LazFindInFilesDialog: TLazFindInFilesDialog TabStop = True end object DirectoryOptionsGroupBox: TGroupBox - Left = 5 - Height = 139 - Top = 275 + AnchorSideLeft.Control = Owner + AnchorSideTop.Control = WhereRadioGroup + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = ButtonPanel1 + Left = 6 + Height = 156 + Top = 330 Width = 408 Anchors = [akTop, akLeft, akRight, akBottom] + BorderSpacing.Around = 6 Caption = 'Directory Options' - ClientHeight = 121 + ClientHeight = 137 ClientWidth = 404 Enabled = False TabOrder = 3 object DirectoryLabel: TLabel Left = 6 - Height = 14 + Height = 18 Top = 8 - Width = 49 + Width = 62 Caption = 'Directory:' ParentColor = False end object FileMaskLabel: TLabel Left = 6 - Height = 14 + Height = 18 Top = 38 - Width = 121 + Width = 152 Caption = 'File mask (*;*.*;*.bak?):' ParentColor = False end object DirectoryComboBox: TComboBox AnchorSideLeft.Control = DirectoryLabel AnchorSideLeft.Side = asrBottom - Left = 55 - Height = 21 + Left = 68 + Height = 29 Top = 6 - Width = 285 + Width = 272 Anchors = [akTop, akLeft, akRight] - AutoComplete = False - ItemHeight = 13 - ItemWidth = 0 + ItemHeight = 0 TabOrder = 0 end object DirectoryBrowse: TBitBtn @@ -151,21 +169,19 @@ object LazFindInFilesDialog: TLazFindInFilesDialog end object FileMaskComboBox: TComboBox Left = 6 - Height = 21 + Height = 29 Top = 56 Width = 334 Anchors = [akTop, akLeft, akRight] - AutoComplete = False - ItemHeight = 13 - ItemWidth = 0 + ItemHeight = 0 TabOrder = 2 Text = '*.pas;*.pp;*.inc' end object IncludeSubDirsCheckBox: TCheckBox Left = 6 - Height = 17 + Height = 22 Top = 92 - Width = 124 + Width = 167 Caption = 'Include sub directories' TabOrder = 3 end @@ -173,26 +189,28 @@ object LazFindInFilesDialog: TLazFindInFilesDialog object ReplaceTextComboBox: TComboBox AnchorSideLeft.Control = ReplaceCheckBox AnchorSideLeft.Side = asrBottom - Left = 69 - Height = 21 - Top = 33 - Width = 345 + AnchorSideTop.Control = TextToFindComboBox + AnchorSideTop.Side = asrBottom + Left = 84 + Height = 29 + Top = 37 + Width = 330 Anchors = [akTop, akLeft, akRight] AutoComplete = True AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending] BorderSpacing.Left = 6 + BorderSpacing.Top = 2 Enabled = False - ItemHeight = 13 - ItemWidth = 0 + ItemHeight = 0 TabOrder = 4 end object ReplaceCheckBox: TCheckBox AnchorSideTop.Control = ReplaceTextComboBox AnchorSideTop.Side = asrCenter Left = 5 - Height = 17 - Top = 35 - Width = 58 + Height = 22 + Top = 40 + Width = 73 Caption = 'Replace' Enabled = False OnChange = ReplaceCheckBoxChange @@ -200,8 +218,8 @@ object LazFindInFilesDialog: TLazFindInFilesDialog end object ButtonPanel1: TButtonPanel Left = 6 - Height = 26 - Top = 428 + Height = 32 + Top = 492 Width = 408 TabOrder = 6 ShowButtons = [pbOK, pbCancel, pbHelp]