From e9c5a3b7951e236c648bd3bd84fdb1f02d548c7f Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 5 Jun 2015 17:10:53 +0000
Subject: [PATCH] IDE: Improve CleanDir dialog layout. Issue #28248, patch from
 Alexey Torgashin.

git-svn-id: trunk@49276 -
---
 ide/cleandirdlg.lfm | 95 +++++++++++++++++++++++----------------------
 1 file changed, 48 insertions(+), 47 deletions(-)

diff --git a/ide/cleandirdlg.lfm b/ide/cleandirdlg.lfm
index 95b7d8ebd6..3cf4ede2a5 100644
--- a/ide/cleandirdlg.lfm
+++ b/ide/cleandirdlg.lfm
@@ -1,37 +1,37 @@
 object CleanDirectoryDialog: TCleanDirectoryDialog
   Left = 307
-  Height = 309
+  Height = 342
   Top = 209
-  Width = 353
+  Width = 396
   BorderIcons = [biSystemMenu]
   Caption = 'Clean Directory'
-  ClientHeight = 309
-  ClientWidth = 353
+  ClientHeight = 342
+  ClientWidth = 396
   OnCreate = CleanDirectoryDialogCreate
   OnDestroy = FormDestroy
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.5'
   object DirGroupbox: TGroupBox
     Left = 6
     Height = 84
     Top = 6
-    Width = 341
+    Width = 384
     Align = alTop
     BorderSpacing.Around = 6
     Caption = 'Directory'
-    ClientHeight = 66
-    ClientWidth = 337
+    ClientHeight = 64
+    ClientWidth = 380
     TabOrder = 0
     object DirCombobox: TComboBox
       AnchorSideRight.Control = DirBrowseButton
       Left = 6
-      Height = 24
+      Height = 23
       Top = 6
-      Width = 297
+      Width = 328
       Anchors = [akTop, akLeft, akRight]
       AutoCompleteText = [cbactSearchAscending]
       BorderSpacing.Around = 6
-      ItemHeight = 0
+      ItemHeight = 15
       TabOrder = 0
       Text = 'DirCombobox'
     end
@@ -39,61 +39,62 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
       AnchorSideTop.Control = DirCombobox
       AnchorSideTop.Side = asrBottom
       Left = 6
-      Height = 24
-      Top = 36
-      Width = 325
+      Height = 23
+      Top = 35
+      Width = 368
       Align = alBottom
       Anchors = [akTop, akLeft, akRight, akBottom]
       BorderSpacing.Around = 6
       Caption = 'Clean sub directories'
-      TabOrder = 1
+      TabOrder = 2
     end
     object DirBrowseButton: TButton
       AnchorSideLeft.Control = DirCombobox
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = DirCombobox
-      AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = DirGroupbox
       AnchorSideRight.Side = asrBottom
-      Left = 309
-      Height = 21
-      Top = 8
-      Width = 23
-      Anchors = [akTop, akRight]
+      AnchorSideBottom.Control = DirCombobox
+      AnchorSideBottom.Side = asrBottom
+      Left = 340
+      Height = 23
+      Top = 6
+      Width = 35
+      Anchors = [akTop, akRight, akBottom]
       BorderSpacing.Right = 5
       Caption = '...'
       OnClick = DirBrowseButtonClick
-      TabOrder = 2
+      TabOrder = 1
     end
   end
   object RemoveGroupbox: TGroupBox
     Left = 6
     Height = 84
     Top = 96
-    Width = 341
+    Width = 384
     Align = alTop
     BorderSpacing.Around = 6
     Caption = 'Remove files matching filter:'
-    ClientHeight = 66
-    ClientWidth = 337
+    ClientHeight = 64
+    ClientWidth = 380
     TabOrder = 1
     object RemoveCombobox: TComboBox
       Left = 6
-      Height = 24
+      Height = 23
       Top = 6
-      Width = 325
+      Width = 368
       Align = alTop
       AutoCompleteText = [cbactSearchAscending]
       BorderSpacing.Around = 6
-      ItemHeight = 0
+      ItemHeight = 15
       TabOrder = 0
       Text = 'RemoveCombobox'
     end
     object SimpleSyntaxRemoveCheckbox: TCheckBox
       Left = 6
-      Height = 20
-      Top = 36
-      Width = 325
+      Height = 19
+      Top = 35
+      Width = 368
       Align = alTop
       BorderSpacing.Around = 6
       Caption = 'Simple syntax (e.g. * instead of .*)'
@@ -102,32 +103,32 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
   end
   object KeepGroupbox: TGroupBox
     Left = 6
-    Height = 78
+    Height = 118
     Top = 186
-    Width = 341
+    Width = 384
     Align = alClient
     BorderSpacing.Around = 6
     Caption = 'Keep files matching filter:'
-    ClientHeight = 60
-    ClientWidth = 337
+    ClientHeight = 98
+    ClientWidth = 380
     TabOrder = 2
     object KeepCombobox: TComboBox
       Left = 6
-      Height = 24
+      Height = 23
       Top = 6
-      Width = 325
+      Width = 368
       Align = alTop
       AutoCompleteText = [cbactSearchAscending]
       BorderSpacing.Around = 6
-      ItemHeight = 0
+      ItemHeight = 15
       TabOrder = 0
       Text = 'KeepCombobox'
     end
     object SimpleSyntaxKeepCheckbox: TCheckBox
       Left = 6
-      Height = 20
-      Top = 36
-      Width = 325
+      Height = 19
+      Top = 35
+      Width = 368
       Align = alTop
       BorderSpacing.Around = 6
       Caption = 'Simple syntax (e.g. * instead of .*)'
@@ -135,9 +136,9 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
     end
     object KeepTextFilesCheckbox: TCheckBox
       Left = 6
-      Height = 20
-      Top = 58
-      Width = 325
+      Height = 19
+      Top = 60
+      Width = 368
       Align = alTop
       BorderSpacing.Around = 6
       Caption = 'Keep Text Files'
@@ -146,9 +147,9 @@ object CleanDirectoryDialog: TCleanDirectoryDialog
   end
   object ButtonPanel: TButtonPanel
     Left = 6
-    Height = 33
-    Top = 270
-    Width = 341
+    Height = 26
+    Top = 310
+    Width = 384
     OKButton.Name = 'OKButton'
     OKButton.DefaultCaption = True
     HelpButton.Name = 'HelpButton'