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

fix #200 - error can be displayed after supression of a missing group item

This commit is contained in:
Basile Burg 2017-11-16 22:06:02 +01:00
parent a99c2f0312
commit a25d5712ed
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_projgroup.pas
View File

@ -324,7 +324,6 @@ var
f: string = ''; f: string = '';
begin begin
inherited; inherited;
fSavedIndex := fProjectIndex;
for i:= projectCount-1 downto 0 do for i:= projectCount-1 downto 0 do
begin begin
p := item[i]; p := item[i];
@ -344,6 +343,9 @@ begin
b := true; b := true;
end; end;
end; end;
if fProjectIndex > projectCount -1 then
fProjectIndex:= projectCount -1;
fSavedIndex := fProjectIndex;
fModified := b; fModified := b;
if b then if b then
dlgOkError('the following projects are missing and are removed from the group:' + f, dlgOkError('the following projects are missing and are removed from the group:' + f,