project MRU list ready
This commit is contained in:
Basile Burg 2015-09-01 17:05:57 +02:00
parent fedc07005e
commit f389b08008
1 changed files with 5 additions and 7 deletions

View File

@ -210,14 +210,12 @@ end;
procedure TCEMRUProjectList.projClosing(aProject: ICECommonProject);
var
natProj: TCENativeProject;
fname: string;
begin
if aProject.getFormat = pfNative then
begin
natProj := TCENativeProject(aProject.getProject);
if FileExists(natProj.fileName) then
Insert(0, natProj.fileName);
end;
if aProject = nil then exit;
//
fname := aProject.getFilename;
if FileExists(fname) then Insert(0, fname);
end;
initialization