paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 21:29:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed compil

Browse Source 
git-svn-id: trunk@45950 -
This commit is contained in:
mattias 2014-07-21 05:24:43 +00:00
parent e6ff6d9adb
commit a794bd27bc
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/compileroptions.pp
View File

@ -4181,19 +4181,20 @@ function TCompilationToolOptions.Execute(const WorkingDir, ToolTitle,
var
ExtTool: TAbstractExternalTool;
begin
Result:=mrCancel;
if SourceEditorManagerIntf<>nil then
SourceEditorManagerIntf.ClearErrorLines;
ExtTool:=CreateExtTool(WorkingDir,ToolTitle,CompileHint);
if ExtTool=nil then exit(mrOk);
ExtTool.Reference(Self,ClassName);
try
// run
ExtTool.Execute;
ExtTool.WaitForExit;
if ExtTool.ErrorMessage='' then
Result:=mrOK;
Result:=mrOk
else
Result:=mrCancel;
finally
ExtTool.Release(Self);
end;