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

projects group, attach the FSP to the new group when it contains the the FSP

This commit is contained in:
Basile Burg 2016-07-09 03:49:41 +02:00
parent c46e7fa7ad
commit 18dbf04d22
1 changed files with 47 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
src/ce_projgroup.pas
View File

@ -14,9 +14,6 @@ type
TProjectGroup = class;
//TODO-projectgroups: bug, load a free standing project, load a group that contains a link to the FSP.
//=> the FSP should be either closed or the lazy loader should trap the FSP
(**
* Represents a project in a project group
*)
@ -37,19 +34,26 @@ type
(**
* Collection that handles several project at once.
*)
TProjectGroup = class(TWritableLfmTextComponent, ICEProjectGroup, IFPObserver)
TProjectGroup = class(TWritableLfmTextComponent, ICEProjectGroup, IFPObserver, ICEProjectObserver)
private
fProjectIndex: integer;
fItems: TCollection;
fModified: boolean;
fOnChanged: TNotifyEvent;
fBasePath: string;
fFreeStanding: ICECommonProject;
procedure setItems(value: TCollection);
function getItem(index: integer): TProjectGroupItem;
procedure doChanged;
//
procedure FPOObservedChanged(ASender : TObject; Operation :
TFPObservedOperation; Data : Pointer);
procedure projNew(aProject: ICECommonProject);
procedure projChanged(aProject: ICECommonProject);
procedure projClosing(aProject: ICECommonProject);
procedure projFocused(aProject: ICECommonProject);
procedure projCompiling(aProject: ICECommonProject);
procedure projCompiled(aProject: ICECommonProject; success: boolean);
protected
procedure afterLoad; override;
procedure afterSave; override;
@ -137,10 +141,12 @@ begin
fItems := TCollection.Create(TProjectGroupItem);
fItems.FPOAttachObserver(self);
EntitiesConnector.addSingleService(self);
EntitiesConnector.addObserver(self);
end;
destructor TProjectGroup.destroy;
begin
EntitiesConnector.removeObserver(self);
fItems.Clear;
fItems.Free;
inherited;
@ -163,6 +169,36 @@ begin
fModified := true;
end;
procedure TProjectGroup.projNew(aProject: ICECommonProject);
begin
if (aProject <> nil) and not aProject.inGroup then
fFreeStanding := aProject;
end;
procedure TProjectGroup.projChanged(aProject: ICECommonProject);
begin
end;
procedure TProjectGroup.projClosing(aProject: ICECommonProject);
begin
if (aProject <> nil) and (aProject = fFreeStanding) then
fFreeStanding := nil;
end;
procedure TProjectGroup.projFocused(aProject: ICECommonProject);
begin
if (aProject <> nil) and not aProject.inGroup then
fFreeStanding := aProject;
end;
procedure TProjectGroup.projCompiling(aProject: ICECommonProject);
begin
end;
procedure TProjectGroup.projCompiled(aProject: ICECommonProject; success: boolean);
begin
end;
procedure TProjectGroup.doChanged;
begin
if assigned(fOnChanged) then
@ -231,6 +267,13 @@ begin
begin
p := item[i];
p.fGroup := self;
if assigned(fFreeStanding) and (p.absoluteFilename = fFreeStanding.filename) then
begin
p.fProj := fFreeStanding;
fFreeStanding.inGroup(true);
fFreeStanding := nil;
p.fProj.activate;
end;
if not p.absoluteFilename.fileExists then
begin
f += LineEnding + '"' + p.absoluteFilename + '"';