paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 06:38:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, Debugger: Display exe-line markers (blue dots) in last line of file too

Browse Source 
git-svn-id: trunk@42806 -
This commit is contained in:
martin 2013-09-15 12:51:07 +00:00
parent d37aa8ac09
commit 32f7affb2b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourceeditor.pp
View File

@ -5379,7 +5379,7 @@ begin
j := -1; j := -1;
EditorComponent.IDEGutterMarks.BeginSetDebugMarks; EditorComponent.IDEGutterMarks.BeginSetDebugMarks;
try try
for i := 0 to EditorComponent.Lines.Count - 1 do for i := 1 to EditorComponent.Lines.Count do
begin begin
Addr := DebugBoss.LineInfo.GetAddress(idx, i); Addr := DebugBoss.LineInfo.GetAddress(idx, i);
if (Addr <> 0) and (j < 0) then if (Addr <> 0) and (j < 0) then
@ -5390,7 +5390,7 @@ begin
end; end;
end; end;
if (Addr <> 0) and (j >= 0) then if (Addr <> 0) and (j >= 0) then
EditorComponent.IDEGutterMarks.SetDebugMarks(j, EditorComponent.Lines.Count - 1); EditorComponent.IDEGutterMarks.SetDebugMarks(j, EditorComponent.Lines.Count);
finally finally
EditorComponent.IDEGutterMarks.EndSetDebugMarks; EditorComponent.IDEGutterMarks.EndSetDebugMarks;
end; end;