projects group, attach the FSP to newly added group item if both match

This commit is contained in:
Basile Burg 2016-07-14 07:25:01 +02:00
parent cfac8dcd86
commit d2539669a4
1 changed files with 7 additions and 0 deletions

View File

@ -234,6 +234,13 @@ begin
result.fFilename := fname result.fFilename := fname
else else
result.fFilename := ExtractRelativepath(fBasePath, fname); result.fFilename := ExtractRelativepath(fBasePath, fname);
if assigned(fFreeStanding) and SameFileName(fname, fFreeStanding.filename) then
begin
result.fProj := fFreeStanding;
fFreeStanding.inGroup(true);
fFreeStanding := nil;
result.fProj.activate;
end;
end; end;
function TProjectGroup.getProject(ix: Integer): ICECommonProject; function TProjectGroup.getProject(ix: Integer): ICECommonProject;