From 1a2964b382a2bd3db38299d2a4be1f28d6cc24cd Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 11 Jan 2017 10:16:57 +0000
Subject: [PATCH] =?UTF-8?q?IDE:=20'Add'=20button=20for=20BreakpointDlg=20t?=
 =?UTF-8?q?oolbar.=20Issue=20#31209,=20patch=20from=20=09Fl=C3=A1vio=20Etr?=
 =?UTF-8?q?usco.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: trunk@53923 -
---
 debugger/breakpointsdlg.lfm | 50 ++++++++++++++++++++++++-------------
 debugger/breakpointsdlg.pp  |  7 ++++--
 2 files changed, 37 insertions(+), 20 deletions(-)

diff --git a/debugger/breakpointsdlg.lfm b/debugger/breakpointsdlg.lfm
index e8aa0a05ea..eb8e80bc1b 100644
--- a/debugger/breakpointsdlg.lfm
+++ b/debugger/breakpointsdlg.lfm
@@ -1,4 +1,4 @@
-inherited BreakpointsDlg: TBreakpointsDlg
+object BreakpointsDlg: TBreakpointsDlg
   Left = 344
   Height = 205
   Top = 153
@@ -13,7 +13,7 @@ inherited BreakpointsDlg: TBreakpointsDlg
   ClientWidth = 560
   OnCreate = BreakpointsDlgCREATE
   Visible = True
-  object lvBreakPoints: TListView[0]
+  object lvBreakPoints: TListView
     Left = 0
     Height = 179
     Top = 26
@@ -60,7 +60,7 @@ inherited BreakpointsDlg: TBreakpointsDlg
     OnDblClick = lvBreakPointsDBLCLICK
     OnSelectItem = lvBreakPointsSelectItem
   end
-  object ToolBar1: TToolBar[1]
+  object ToolBar1: TToolBar
     Left = 0
     Height = 26
     Top = 0
@@ -69,57 +69,64 @@ inherited BreakpointsDlg: TBreakpointsDlg
     ParentShowHint = False
     ShowHint = True
     TabOrder = 1
-    object ToolButtonEnable: TToolButton
+    object ToolButtonAdd: TToolButton
       Left = 1
       Top = 2
+      Caption = 'Add...'
+      MenuItem = popAdd
+      Style = tbsDropDown
+    end
+    object ToolButtonEnable: TToolButton
+      Left = 36
+      Top = 2
       Action = actEnableSelected
     end
     object ToolButtonDisable: TToolButton
-      Left = 24
+      Left = 59
       Top = 2
       Action = actDisableSelected
     end
     object ToolButtonTrash: TToolButton
-      Left = 47
+      Left = 82
       Top = 2
       Action = actDeleteSelected
     end
-    object ToolButton6: TToolButton
-      Left = 70
+    object ToolSep1: TToolButton
+      Left = 105
+      Height = 22
       Top = 2
       Width = 10
-      Caption = 'ToolButton6'
       Style = tbsSeparator
     end
     object ToolButtonEnableAll: TToolButton
-      Left = 80
+      Left = 115
       Top = 2
       Action = actEnableAll
     end
     object ToolButtonDisableAll: TToolButton
-      Left = 103
+      Left = 138
       Top = 2
       Action = actDisableAll
     end
     object ToolButtonTrashAll: TToolButton
-      Left = 126
+      Left = 161
       Top = 2
       Action = actDeleteAll
     end
-    object ToolButton10: TToolButton
-      Left = 149
+    object ToolSep2: TToolButton
+      Left = 184
+      Height = 22
       Top = 2
       Width = 10
-      Caption = 'ToolButton10'
       Style = tbsSeparator
     end
     object ToolButtonProperties: TToolButton
-      Left = 159
+      Left = 194
       Top = 2
       Action = actProperties
     end
   end
-  object mnuPopup: TPopupMenu[2]
+  object mnuPopup: TPopupMenu
     OnPopup = mnuPopupPopup
     left = 24
     top = 40
@@ -193,7 +200,7 @@ inherited BreakpointsDlg: TBreakpointsDlg
       Action = actDeleteAllInSrc
     end
   end
-  object ActionList1: TActionList[3]
+  object ActionList1: TActionList
     left = 96
     top = 72
     object actToggleCurrentEnable: TAction
@@ -203,27 +210,33 @@ inherited BreakpointsDlg: TBreakpointsDlg
     end
     object actEnableSelected: TAction
       Caption = 'actEnableSelected'
+      Enabled = False
       OnExecute = actEnableSelectedExecute
     end
     object actDisableSelected: TAction
       Caption = 'actDisableSelected'
+      Enabled = False
       OnExecute = actDisableSelectedExecute
     end
     object actDeleteSelected: TAction
       Caption = 'actDeleteSelected'
+      Enabled = False
       OnExecute = popDeleteClick
       ShortCut = 46
     end
     object actEnableAll: TAction
       Caption = 'actEnableAll'
+      Enabled = False
       OnExecute = popEnableAllClick
     end
     object actDisableAll: TAction
       Caption = 'actDisableAll'
+      Enabled = False
       OnExecute = popDisableAllClick
     end
     object actDeleteAll: TAction
       Caption = 'actDeleteAll'
+      Enabled = False
       OnExecute = popDeleteAllClick
     end
     object actEnableAllInSrc: TAction
@@ -240,6 +253,7 @@ inherited BreakpointsDlg: TBreakpointsDlg
     end
     object actProperties: TAction
       Caption = 'actProperties'
+      Enabled = False
       OnExecute = popPropertiesClick
       ShortCut = 13
     end
diff --git a/debugger/breakpointsdlg.pp b/debugger/breakpointsdlg.pp
index 5bd060d466..1a8cf929e9 100644
--- a/debugger/breakpointsdlg.pp
+++ b/debugger/breakpointsdlg.pp
@@ -94,12 +94,13 @@ type
     popEnableAllSameSource: TMenuItem;
     popDeleteAllSameSource: TMenuItem;
     ToolBar1: TToolBar;
+    ToolButtonAdd: TToolButton;
     ToolButtonProperties: TToolButton;
-    ToolButton10: TToolButton;
+    ToolSep2: TToolButton;
     ToolButtonEnable: TToolButton;
     ToolButtonDisable: TToolButton;
     ToolButtonTrash: TToolButton;
-    ToolButton6: TToolButton;
+    ToolSep1: TToolButton;
     ToolButtonEnableAll: TToolButton;
     ToolButtonDisableAll: TToolButton;
     ToolButtonTrashAll: TToolButton;
@@ -331,6 +332,8 @@ begin
   mnuPopup.Images := IDEImages.Images_16;
   lvBreakPoints.SmallImages := IDEImages.Images_16;
 
+  ToolButtonAdd.ImageIndex := IDEImages.LoadImage(16, 'laz_add');
+
   actEnableSelected.Caption := lisDbgItemEnable;
   actEnableSelected.Hint    := lisDbgItemEnableHint;
   actEnableSelected.ImageIndex := IDEImages.LoadImage(16, 'debugger_enable');