Merge branch 'master' into stable
This commit is contained in:
commit
bff32a4f28
2 changed files with 17 additions and 4 deletions
|
@ -1088,6 +1088,21 @@ Public Sub RefreshBreakpointView()
|
|||
|
||||
End
|
||||
|
||||
Public Sub RemoveAllBreakpoints()
|
||||
|
||||
Dim aBreakPoint As String[]
|
||||
Dim I As Integer
|
||||
|
||||
aBreakpoint = Design.GetBreakpoints()
|
||||
While aBreakpoint.Count
|
||||
Design.SetBreakpoint(aBreakpoint[0], False)
|
||||
Wend
|
||||
|
||||
RefreshBreakpointView
|
||||
|
||||
End
|
||||
|
||||
|
||||
Public Sub btnRemoveBreakpoint_Click()
|
||||
|
||||
Dim aBreakPoint As String[]
|
||||
|
@ -1130,9 +1145,7 @@ End
|
|||
Public Sub btnRemoveAllBreakpoint_Click()
|
||||
|
||||
If Project.Running Then Return
|
||||
|
||||
gvwBreakpoint.SelectAll
|
||||
btnRemoveBreakpoint_Click
|
||||
RemoveAllBreakpoints
|
||||
|
||||
End
|
||||
|
||||
|
|
|
@ -1869,7 +1869,7 @@ End
|
|||
|
||||
Public Sub mnuClearBreakpoints_Click()
|
||||
|
||||
Design.ClearBreakpoints
|
||||
FDebugInfo.RemoveAllBreakpoints
|
||||
|
||||
End
|
||||
|
||||
|
|
Loading…
Reference in a new issue