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

ide: show mixed current line + breakpoint image when current execution line cover some breakpoint

Browse Source 
git-svn-id: trunk@18954 -
This commit is contained in:
paul 2009-03-11 04:25:45 +00:00
parent d4f21edd99
commit cde7240564
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/sourceeditor.pp
View File

@ -2181,14 +2181,19 @@ begin
FExecutionMark := TSourceMark.Create(EditorComponent, nil);
SourceEditorMarks.Add(FExecutionMark);
EditorComponent.Marks.Add(FExecutionMark);
FExecutionMark.ImageIndex := SourceEditorMarks.CurrentLineImg;
FExecutionMark.LineColorAttrib := ahaExecutionPoint;
FExecutionMark.Priority := 1;
end;
if ExecutionLine <> -1 then
FExecutionMark.Line := ExecutionLine;
FExecutionMark.Visible := ExecutionLine <> -1;
if FExecutionMark.Visible then
begin
FExecutionMark.Line := ExecutionLine;
if SourceEditorMarks.FindBreakPointMark(EditorComponent, ExecutionLine) <> nil then
FExecutionMark.ImageIndex := SourceEditorMarks.CurrentLineBreakPointImg
else
FExecutionMark.ImageIndex := SourceEditorMarks.CurrentLineImg;
end;
end;
procedure TSourceEditor.SetExecutionLine(NewLine: integer);

4
ide/sourcemarks.pas
View File

@ -139,6 +139,7 @@ type
TSourceMarks = class(TComponent)
private
fActiveBreakPointImg: Integer;
FCurrentLineBreakPointImg: Integer;
FCurrentLineImg: Integer;
FImgList: TImageList;
fInactiveBreakPointImg: Integer;
@ -190,6 +191,7 @@ type
property MultiBreakPointImg: Integer read fMultiBreakPointImg;
property UnknownBreakPointImg: Integer read fUnknownBreakPointImg;
property CurrentLineImg: Integer read FCurrentLineImg;
property CurrentLineBreakPointImg: Integer read FCurrentLineBreakPointImg;
end;
var
@ -522,6 +524,8 @@ begin
fMultiBreakPointImg:=AddImage('MultiBreakPoint');
// load current line image
FCurrentLineImg:=AddImage('debugger_current_line');
// load current line + breakpoint image
FCurrentLineBreakPointImg:=AddImage('debugger_current_line_breakpoint');
end;
function TSourceMarks.FindFirstMarkNode(ASynEdit: TCustomSynEdit; ALine: integer