forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/BBasile/Coedit

This commit is contained in:
Basile Burg 2014-07-11 19:25:57 +02:00
parent ec95e951fd 0a5bb16456
commit b16781121e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_main.pas
View File

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