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

MG: fixed debug line coloring

Browse Source 
git-svn-id: trunk@1641 -
This commit is contained in:
lazarus 2002-04-26 12:53:30 +00:00
parent a5326e48d8
commit 711208a191
3 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/debugmanager.pas
View File

@ -231,7 +231,10 @@ begin
BlockEnd:=CaretXY;
TopLine:=ALocation.SrcLine-(LinesInWindow div 2);
end;
ActiveSrcEdit.ErrorLine:=ALocation.SrcLine;
SourceNotebook.ClearExecutionLines;
SourceNotebook.ClearErrorLines;
ActiveSrcEdit.ExecutionLine:=ALocation.SrcLine;
// ActiveSrcEdit.ErrorLine:=ALocation.SrcLine;
end;
//-----------------------------------------------------------------------------
@ -504,6 +507,7 @@ end;
function TDebugManager.DoStopProject: TModalResult;
begin
Result := mrCancel;
SourceNotebook.ClearExecutionLines;
if (MainIDE.ToolStatus <> itDebugger)
or (FDebugger=nil)
then Exit;

8
ide/main.pp
View File

@ -5491,11 +5491,8 @@ begin
if CodeToolBoss.ErrorTopLine>0 then
TopLine:=CodeToolBoss.ErrorTopLine;
end;
SourceNotebook.ClearErrorLines;
ActiveSrcEdit.ErrorLine:=CodeToolBoss.ErrorLine;
// ToDo: clear all other errorlines
//SourceNotebook.BringToFront;
BringWindowToTop(SourceNoteBook.Handle);
end;
end;
@ -6244,6 +6241,9 @@ end.
{ =============================================================================
$Log$
Revision 1.285 2002/04/26 12:53:29 lazarus
MG: fixed debug line coloring
Revision 1.284 2002/04/26 12:27:26 lazarus
MG: added Delphi6 Templates

8
ide/uniteditor.pp
View File

@ -372,6 +372,7 @@ type
procedure UpdateStatusBar;
Procedure ClearUnUsedEditorComponents(Force: boolean);
procedure ClearErrorLines;
procedure ClearExecutionLines;
//Procedure DisplayCodefromUnitName(const UnitName : String);
@ -3279,6 +3280,13 @@ begin
Editors[i].ErrorLine:=-1;
end;
procedure TSourceNotebook.ClearExecutionLines;
var i: integer;
begin
for i:=0 to EditorCount-1 do
Editors[i].ExecutionLine:=-1;
end;
{ GOTO DIALOG }