paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 06:09:30 +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;
begin
SourceNotebook.ClearErrorLines;
Result:=EnvironmentOptions.ExternalTools.Run(Index,MacroList);
end;
function TMainIDE.DoBuildLazarus: TModalResult;
begin
SourceNotebook.ClearErrorLines;
Result:=BuildLazarus(MiscellaneousOptions.BuildLazOpts,
EnvironmentOptions.ExternalTools,MacroList);
end;
@ -6027,6 +6029,9 @@ end.
{ =============================================================================
$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
MG: fixed restore window positions

8
ide/uniteditor.pp
View File

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