IDE: project inspector: better scaling

git-svn-id: trunk@26569 -

examples/anchordocking/anchordocking.pas

@@ -69,6 +69,7 @@
 
   ToDo:
     - keep custom dock site content visible
+    - change custom dock site title only if some flag is set
     - undock on hide
     - popup menu
        - shrink side left, top, right, bottom

ide/projectinspector.lfm

@@ -2,76 +2,20 @@ object ProjectInspectorForm: TProjectInspectorForm
   Left = 457
   Height = 309
   Top = 399
-  Width = 433
+  Width = 223
   ActiveControl = ItemsTreeView
   Caption = 'ProjectInspectorForm'
   ClientHeight = 309
-  ClientWidth = 433
+  ClientWidth = 223
   OnShow = ProjectInspectorFormShow
   LCLVersion = '0.9.29'
-  object OpenBitBtn: TSpeedButton
-    AnchorSideLeft.Control = Owner
-    AnchorSideTop.Control = Owner
-    Left = 0
-    Height = 23
-    Top = 0
-    Width = 60
-    Color = clBtnFace
-    NumGlyphs = 0
-    OnClick = OpenBitBtnClick
-    ShowHint = True
-    ParentShowHint = False
-  end
-  object AddBitBtn: TSpeedButton
-    AnchorSideLeft.Control = OpenBitBtn
-    AnchorSideLeft.Side = asrBottom
-    AnchorSideTop.Control = Owner
-    Left = 60
-    Height = 23
-    Top = 0
-    Width = 60
-    Color = clBtnFace
-    NumGlyphs = 0
-    OnClick = AddBitBtnClick
-    ShowHint = True
-    ParentShowHint = False
-  end
-  object RemoveBitBtn: TSpeedButton
-    AnchorSideLeft.Control = AddBitBtn
-    AnchorSideLeft.Side = asrBottom
-    AnchorSideTop.Control = Owner
-    Left = 120
-    Height = 23
-    Top = 0
-    Width = 60
-    Color = clBtnFace
-    NumGlyphs = 0
-    OnClick = RemoveBitBtnClick
-    ShowHint = True
-    ParentShowHint = False
-  end
-  object OptionsBitBtn: TSpeedButton
-    AnchorSideLeft.Control = RemoveBitBtn
-    AnchorSideLeft.Side = asrBottom
-    AnchorSideTop.Control = Owner
-    Left = 180
-    Height = 23
-    Top = 0
-    Width = 60
-    Color = clBtnFace
-    NumGlyphs = 0
-    OnClick = OptionsBitBtnClick
-    ShowHint = True
-    ParentShowHint = False
-  end
   object ItemsTreeView: TTreeView
     AnchorSideTop.Side = asrBottom
     Left = 0
-    Height = 284
-    Top = 25
-    Width = 433
-    Align = alBottom
-    Anchors = [akTop, akLeft, akRight, akBottom]
+    Height = 283
+    Top = 26
+    Width = 223
+    Align = alClient
     BorderSpacing.Top = 2
     DefaultItemHeight = 19
     PopupMenu = ItemsPopupMenu
@@ -83,6 +27,71 @@ object ProjectInspectorForm: TProjectInspectorForm
     OnSelectionChanged = ItemsTreeViewSelectionChanged
     Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
   end
+  object BtnPanel: TPanel
+    Left = 0
+    Height = 24
+    Top = 0
+    Width = 223
+    Align = alTop
+    AutoSize = True
+    ChildSizing.EnlargeHorizontal = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 10
+    ClientHeight = 24
+    ClientWidth = 223
+    TabOrder = 1
+    object OpenBitBtn: TSpeedButton
+      Left = 0
+      Height = 23
+      Top = 0
+      Width = 53
+      Constraints.MinWidth = 25
+      Color = clBtnFace
+      NumGlyphs = 0
+      OnClick = OpenBitBtnClick
+      ShowHint = True
+      ParentShowHint = False
+    end
+    object AddBitBtn: TSpeedButton
+      AnchorSideLeft.Side = asrBottom
+      Left = 53
+      Height = 23
+      Top = 0
+      Width = 53
+      Constraints.MinWidth = 25
+      Color = clBtnFace
+      NumGlyphs = 0
+      OnClick = AddBitBtnClick
+      ShowHint = True
+      ParentShowHint = False
+    end
+    object RemoveBitBtn: TSpeedButton
+      AnchorSideLeft.Side = asrBottom
+      Left = 106
+      Height = 23
+      Top = 0
+      Width = 53
+      Constraints.MinWidth = 25
+      Color = clBtnFace
+      NumGlyphs = 0
+      OnClick = RemoveBitBtnClick
+      ShowHint = True
+      ParentShowHint = False
+    end
+    object OptionsBitBtn: TSpeedButton
+      AnchorSideLeft.Side = asrBottom
+      Left = 159
+      Height = 23
+      Top = 0
+      Width = 53
+      Constraints.MinWidth = 25
+      Color = clBtnFace
+      NumGlyphs = 0
+      OnClick = OptionsBitBtnClick
+      ShowHint = True
+      ParentShowHint = False
+    end
+  end
   object ItemsPopupMenu: TPopupMenu
     OnPopup = ItemsPopupMenuPopup
     left = 40

ide/projectinspector.pas

@@ -39,7 +39,7 @@ interface
 
 uses
   Classes, SysUtils, LCLProc, AvgLvlTree, Forms, Controls, Buttons,
-  ComCtrls, StdCtrls, Menus, Dialogs, Graphics, FileUtil,
+  ComCtrls, StdCtrls, Menus, Dialogs, Graphics, FileUtil, ExtCtrls,
   LazIDEIntf, IDECommands,
   LazarusIDEStrConsts, IDEProcs, IDEOptionDefs, EnvironmentOpts,
   Project, AddToProjectDlg, PackageSystem, PackageDefs;
@@ -65,6 +65,7 @@ type
 
   TProjectInspectorForm = class(TForm)
     AddBitBtn: TSpeedButton;
+    BtnPanel: TPanel;
     OpenBitBtn: TSpeedButton;
     ItemsTreeView: TTreeView;
     ItemsPopupMenu: TPopupMenu;