paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 12:38:05 +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;
EditorComponent.IDEGutterMarks.BeginSetDebugMarks;
try
for i := 0 to EditorComponent.Lines.Count - 1 do
for i := 1 to EditorComponent.Lines.Count do
begin
Addr := DebugBoss.LineInfo.GetAddress(idx, i);
if (Addr <> 0) and (j < 0) then
@ -5390,7 +5390,7 @@ begin
end;
end;
if (Addr <> 0) and (j >= 0) then
EditorComponent.IDEGutterMarks.SetDebugMarks(j, EditorComponent.Lines.Count - 1);
EditorComponent.IDEGutterMarks.SetDebugMarks(j, EditorComponent.Lines.Count);
finally
EditorComponent.IDEGutterMarks.EndSetDebugMarks;
end;