IDE: 'Add' button for BreakpointDlg toolbar. Issue #31209, patch from Flávio Etrusco.

git-svn-id: trunk@53923 -

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
+    object ToolSep1: TToolButton
-      Left = 70
+      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
+    object ToolSep2: TToolButton
-      Left = 149
+      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

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');