fix poNoConsole caused the assertions and exception to be displayed in a msgBox

This commit is contained in:
Basile Burg 2014-11-06 06:21:28 +01:00
parent 5f9b16143e
commit f354677a9f
1 changed files with 1 additions and 1 deletions

View File

@ -1283,6 +1283,7 @@ begin
FreeRunnableProc;
fRunProc := TAsyncProcess.Create(nil);
fRunProc.Options := [poStderrToOutPut, poUsePipes];
fRunProc.OnReadData := @asyncprocOutput;
fRunProc.OnTerminate:= @asyncprocTerminate;
@ -1315,7 +1316,6 @@ begin
begin
ProcessOutputToMsg(dmdproc, mcEditor);
fMesgWidg.addCeInf(editor.fileName + ' successfully compiled', mcEditor );
fRunProc.Options := fRunProc.Options + [poNoConsole, poStderrToOutPut, poUsePipes];
fRunProc.CurrentDirectory := extractFilePath(fRunProc.Executable);
fRunProc.Parameters.DelimitedText := expandSymbolicString(runArgs);
fRunProc.Executable := fname + exeExt;