This commit is contained in:
Basile Burg 2014-07-11 19:25:57 +02:00
commit b16781121e
1 changed files with 4 additions and 3 deletions

View File

@ -341,9 +341,9 @@ begin
fPrjCfWidg.Free;
fStExpWidg.Free;
fFindWidg.Free;
fProject.Free;
fProjMru.Free;
fFileMru.Free;
fProject.Free;
//
inherited;
end;
@ -942,7 +942,7 @@ begin
{$IFDEF RELEASE}
dmdProc.ShowWindow := swoHIDE;
{$ENDIF}
dmdproc.Options := [poStdErrToOutput, poUsePipes];
dmdproc.Options := [poNewConsole, poStdErrToOutput, poUsePipes];
dmdproc.Executable := 'dmd';
aProject.getOpts(dmdproc.Parameters);
@ -1115,7 +1115,8 @@ procedure TCEMainForm.newProj;
var
widg: TCEWidget;
begin
fProject := TCEProject.Create(self);
fProject := TCEProject.Create(nil);
fProject.Name := 'CurrentProject';
for widg in WidgetList do widg.projNew(fProject);
fProject.onChange := @projChange;
end;