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

ide: fix breakpoint toggling for line where the execution line is placed

Browse Source 
git-svn-id: trunk@18958 -
This commit is contained in:
paul 2009-03-11 15:13:31 +00:00
parent 9c4108f86d
commit e6f0a3fdbe
1 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
ide/sourceeditor.pp
View File

@ -2082,15 +2082,34 @@ end;
procedure TSourceEditor.OnGutterClick(Sender: TObject; X, Y, Line: integer;
mark: TSynEditMark);
var
BreakPtMark: TSourceMark;
Marks: PSourceMark;
i, MarkCount: Integer;
BreakFound, ExecutionFound: Boolean;
begin
// create or delete breakpoint
// find breakpoint mark at line
BreakPtMark := SourceEditorMarks.FindBreakPointMark(FEditor,Line);
if BreakPtMark = nil then
DebugBoss.DoCreateBreakPoint(Filename,Line,true)
else
DebugBoss.DoDeleteBreakPointAtMark(BreakPtMark);
SourceEditorMarks.GetMarksForLine(FEditor, Line, Marks, MarkCount);
BreakFound := False;
ExecutionFound := False;
for i := 0 to MarkCount - 1 do
begin
if not Marks[i].Visible then
Continue;
if Marks[i].IsBreakPoint then
begin
BreakFound := True;
DebugBoss.DoDeleteBreakPointAtMark(Marks[i])
end
else
if Marks[i] = FExecutionMark then
ExecutionFound := True;
end;
if not BreakFound then
DebugBoss.DoCreateBreakPoint(Filename, Line, True);
if ExecutionFound then
UpdateExecutionSourceMark;
end;
procedure TSourceEditor.OnEditorSpecialLineColor(Sender: TObject; Line: integer;