paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, Keymap: Amend r61854 #83e546aa9f, if no breakpoint pre-exists, it will be created disabled. Issue #0036061

Browse Source 
git-svn-id: trunk@61861 -
This commit is contained in:
martin 2019-09-11 12:49:37 +00:00
parent 5fdbdc4c9a
commit 10f69d1561
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/sourceeditor.pp
View File

@ -8139,8 +8139,13 @@ begin
// find breakpoint mark at line // find breakpoint mark at line
Line:=ASrcEdit.EditorComponent.CaretY; Line:=ASrcEdit.EditorComponent.CaretY;
BreakPtMark := SourceEditorMarks.FindBreakPointMark(ASrcEdit, Line); BreakPtMark := SourceEditorMarks.FindBreakPointMark(ASrcEdit, Line);
if BreakPtMark = nil then if BreakPtMark = nil then begin
DebugBoss.DoCreateBreakPoint(ASrcEdit.Filename,Line,true) DebugBoss.DoCreateBreakPoint(ASrcEdit.Filename,Line,true, BreakPoint, True);
if BreakPoint <> nil then begin
BreakPoint.Enabled := False;
BreakPoint.EndUpdate;
end;
end
else else
begin begin
BreakPoint := DebugBoss.BreakPoints.Find(ASrcEdit.FileName, Line); BreakPoint := DebugBoss.BreakPoints.Find(ASrcEdit.FileName, Line);