From 260696032821f3bf140665a3793698886aa5df64 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Tue, 26 May 2015 11:09:13 +0000
Subject: [PATCH] IDE: Tweak UnusedUnits dialog layout. Issue #28179, patch
 from Alexey Torgashin.

git-svn-id: trunk@49176 -
---
 ide/unusedunitsdlg.lfm | 41 ++++++++++++++++++++++-------------------
 1 file changed, 22 insertions(+), 19 deletions(-)

diff --git a/ide/unusedunitsdlg.lfm b/ide/unusedunitsdlg.lfm
index 7f99042a16..93fc47baa7 100644
--- a/ide/unusedunitsdlg.lfm
+++ b/ide/unusedunitsdlg.lfm
@@ -4,6 +4,7 @@ object UnusedUnitsDialog: TUnusedUnitsDialog
   Top = 236
   Width = 501
   ActiveControl = UnitsTreeView
+  BorderIcons = [biSystemMenu]
   Caption = 'UnusedUnitsDialog'
   ClientHeight = 382
   ClientWidth = 501
@@ -17,7 +18,7 @@ object UnusedUnitsDialog: TUnusedUnitsDialog
     Width = 489
     Align = alClient
     BorderSpacing.Around = 6
-    DefaultItemHeight = 22
+    DefaultItemHeight = 18
     MultiSelect = True
     ReadOnly = True
     ScrollBars = ssAutoBoth
@@ -31,6 +32,7 @@ object UnusedUnitsDialog: TUnusedUnitsDialog
     Top = 306
     Width = 501
     Align = alBottom
+    BevelOuter = bvNone
     ChildSizing.LeftRightSpacing = 6
     ChildSizing.TopBottomSpacing = 6
     ChildSizing.HorizontalSpacing = 10
@@ -38,26 +40,27 @@ object UnusedUnitsDialog: TUnusedUnitsDialog
     ClientWidth = 501
     TabOrder = 1
     object CancelBitBtn: TBitBtn
-      Left = 404
-      Height = 30
-      Top = 39
-      Width = 90
+      Left = 412
+      Height = 26
+      Top = 43
+      Width = 82
       Anchors = [akRight, akBottom]
       AutoSize = True
+      BorderSpacing.Around = 6
       Cancel = True
       Caption = 'Cancel'
       Constraints.MinWidth = 75
       Kind = bkCancel
       ModalResult = 2
       OnClick = CancelBitBtnClick
-      TabOrder = 0
+      TabOrder = 3
     end
     object RemoveSelectedBitBtn: TBitBtn
       AnchorSideRight.Control = CancelBitBtn
-      Left = 217
-      Height = 30
-      Top = 39
-      Width = 177
+      Left = 257
+      Height = 25
+      Top = 44
+      Width = 145
       Anchors = [akRight, akBottom]
       AutoSize = True
       BorderSpacing.Around = 6
@@ -65,14 +68,14 @@ object UnusedUnitsDialog: TUnusedUnitsDialog
       Constraints.MinWidth = 75
       ModalResult = 1
       OnClick = RemoveSelectedBitBtnClick
-      TabOrder = 1
+      TabOrder = 2
     end
     object RemoveAllBitBtn: TBitBtn
       AnchorSideRight.Control = RemoveSelectedBitBtn
-      Left = 69
-      Height = 30
-      Top = 39
-      Width = 138
+      Left = 132
+      Height = 25
+      Top = 44
+      Width = 115
       Anchors = [akRight, akBottom]
       AutoSize = True
       BorderSpacing.Around = 6
@@ -80,20 +83,20 @@ object UnusedUnitsDialog: TUnusedUnitsDialog
       Constraints.MinWidth = 75
       ModalResult = 8
       OnClick = RemoveAllBitBtnClick
-      TabOrder = 2
+      TabOrder = 1
     end
     object ShowInitializationCheckBox: TCheckBox
       Left = 8
-      Height = 24
+      Height = 19
       Top = 6
-      Width = 350
+      Width = 280
       Caption = 'Show units with initialization/finalization sections'
       Checked = True
       OnClick = ShowInitializationCheckBoxClick
       ParentShowHint = False
       ShowHint = True
       State = cbChecked
-      TabOrder = 3
+      TabOrder = 0
     end
   end
 end