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

fixes for the linux version

This commit is contained in:
Basile Burg 2014-07-11 19:15:55 +02:00
parent 85ff09a704
commit 0a5bb16456
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

@ -339,9 +339,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;
@ -940,7 +940,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);
@ -1113,7 +1113,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;