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

fix #115 - Projet group, index of item after workspace reloading mismatch

This commit is contained in:
Basile Burg 2017-02-02 14:27:52 +01:00
parent b9d23ccbcb
commit fa231de8c7
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
3 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_interfaces.pas
View File

@ -314,6 +314,8 @@ type
procedure setProjectIndex(index: Integer);
// indicates wether a project is marked for async compilation
function projectIsAsync(index: integer): boolean;
// indicates the project index after reloading
function reloadedProjectIndex: integer;
end;

2
src/ce_main.pas
View File

@ -948,7 +948,7 @@ begin
if source = CEMainForm then
begin
grp := getProjectGroup;
pix := grp.getProjectIndex;
pix := grp.reloadedProjectIndex;
prj := CEMainForm.fFreeProj;
if assigned(prj) then
fProject := prj.filename;

13
src/ce_projgroup.pas
View File

@ -53,6 +53,7 @@ type
fModified: boolean;
fOnChanged: TNotifyEvent;
fBasePath: string;
fSavedIndex: integer;
fFreeStanding: ICECommonProject;
procedure setItems(value: TCollection);
function getItem(index: integer): TProjectGroupItem;
@ -87,6 +88,7 @@ type
procedure setProjectIndex(value: Integer);
function projectIsAsync(ix: integer): boolean;
function projectModified(ix: integer): boolean;
function reloadedProjectIndex: integer;
//
function addItem(const fname: string): TProjectGroupItem;
property item[ix: integer]: TProjectGroupItem read getItem; default;
@ -162,6 +164,7 @@ begin
fItems.FPOAttachObserver(self);
EntitiesConnector.addSingleService(self);
EntitiesConnector.addObserver(self);
fSavedIndex := -1;
end;
destructor TProjectGroup.destroy;
@ -308,6 +311,11 @@ begin
end;
end;
function TProjectGroup.reloadedProjectIndex: integer;
begin
exit(fSavedIndex);
end;
procedure TProjectGroup.afterLoad;
var
p: TProjectGroupItem;
@ -316,6 +324,7 @@ var
f: string = '';
begin
inherited;
fSavedIndex := fProjectIndex;
for i:= projectCount-1 downto 0 do
begin
p := item[i];
@ -344,7 +353,8 @@ end;
procedure TProjectGroup.afterSave;
begin
inherited;
fModified:=false;
fModified := false;
fSavedIndex := fProjectIndex;
end;
procedure TProjectGroup.addProject(project: ICECommonProject);
@ -409,6 +419,7 @@ begin
fFilename:= '';
fModified:=false;
fProjectIndex := -1;
fSavedIndex := -1;
doChanged;
end;