paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 20:40:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed frmactivate

Browse Source 
git-svn-id: trunk@3530 -
This commit is contained in:
lazarus 2002-10-21 22:12:46 +00:00
parent 3bfe825372
commit 233533c876
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/compiler.pp
View File

@ -146,8 +146,11 @@ begin
try
TheProcess := TProcess.Create(nil);
writeln('AAA1');
TheProcess.CommandLine := CmdLine;
writeln('AAA2');
TheProcess.Options:= [poUsePipes, poNoConsole, poStdErrToOutPut];
writeln('AAA3');
TheProcess.ShowWindow := swoNone;
Result:=mrOk;
try
@ -157,12 +160,14 @@ begin
OutputFilter.PrgSourceFilename:=ProjectFilename;
OutputFilter.Options:=[ofoSearchForFPCMessages,ofoExceptionOnError];
OutputFilter.Project:=AProject;
writeln('AAA4');
OutputFilter.Execute(TheProcess);
end else begin
TheProcess.Execute;
TheProcess.WaitOnExit;
end;
writeln('AAA5');
finally
TheProcess.WaitOnExit;
TheProcess.Free;
end;
except
@ -189,6 +194,9 @@ end.
{
$Log$
Revision 1.34 2002/10/21 22:12:46 lazarus
MG: fixed frmactivate
Revision 1.33 2002/09/05 19:03:34 lazarus
MG: improved handling of ambigious source files