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

MG: fixed resetting error line before compiling

Browse Source 
git-svn-id: trunk@1462 -
This commit is contained in:
lazarus 2002-02-25 22:56:57 +00:00
parent f9441128e2
commit b14c8d2507
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -4319,11 +4319,13 @@ end;
function TMainIDE.DoRunExternalTool(Index: integer): TModalResult; function TMainIDE.DoRunExternalTool(Index: integer): TModalResult;
begin begin
SourceNotebook.ClearErrorLines;
Result:=EnvironmentOptions.ExternalTools.Run(Index,MacroList); Result:=EnvironmentOptions.ExternalTools.Run(Index,MacroList);
end; end;
function TMainIDE.DoBuildLazarus: TModalResult; function TMainIDE.DoBuildLazarus: TModalResult;
begin begin
SourceNotebook.ClearErrorLines;
Result:=BuildLazarus(MiscellaneousOptions.BuildLazOpts, Result:=BuildLazarus(MiscellaneousOptions.BuildLazOpts,
EnvironmentOptions.ExternalTools,MacroList); EnvironmentOptions.ExternalTools,MacroList);
end; end;
@ -6027,6 +6029,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.234 2002/02/25 22:56:55 lazarus
MG: fixed resetting error line before compiling
Revision 1.233 2002/02/25 19:17:27 lazarus Revision 1.233 2002/02/25 19:17:27 lazarus
MG: fixed restore window positions MG: fixed restore window positions

8
ide/uniteditor.pp
View File

@ -356,6 +356,7 @@ type
function SomethingModified: boolean; function SomethingModified: boolean;
procedure UpdateStatusBar; procedure UpdateStatusBar;
Procedure ClearUnUsedEditorComponents(Force: boolean); Procedure ClearUnUsedEditorComponents(Force: boolean);
procedure ClearErrorLines;
Procedure DisplayCodefromUnitName(const UnitName : String); Procedure DisplayCodefromUnitName(const UnitName : String);
@ -3110,6 +3111,13 @@ begin
ASynEdit.Highlighter:=Highlighters[lshFreePascal]; ASynEdit.Highlighter:=Highlighters[lshFreePascal];
end; end;
procedure TSourceNotebook.ClearErrorLines;
var i: integer;
begin
for i:=0 to EditorCount-1 do
Editors[i].ErrorLine:=-1;
end;
{ GOTO DIALOG} { GOTO DIALOG}