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

fix upstream regression from aa79f2671d

This commit is contained in:
Basile Burg 2016-09-30 11:00:03 +02:00
parent 17628a8bd5
commit dc60c66268
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_projgroup.pas
View File

@ -126,6 +126,7 @@ type
fPrevProj: ICECommonProject; fPrevProj: ICECommonProject;
fFreeProj: ICECommonProject; fFreeProj: ICECommonProject;
fProjSubj: TCEProjectSubject; fProjSubj: TCEProjectSubject;
fUpdating: boolean;
// //
procedure projNew(project: ICECommonProject); procedure projNew(project: ICECommonProject);
procedure projChanged(project: ICECommonProject); procedure projChanged(project: ICECommonProject);
@ -697,6 +698,9 @@ var
const const
typeStr: array[TCEProjectFormat] of string = ('CE','DUB'); typeStr: array[TCEProjectFormat] of string = ('CE','DUB');
begin begin
if fUpdating then
exit;
fUpdating := true;
lstProj.BeginUpdate; lstProj.BeginUpdate;
lstProj.Items.Clear; lstProj.Items.Clear;
for i := 0 to projectGroup.projectCount-1 do for i := 0 to projectGroup.projectCount-1 do
@ -738,6 +742,7 @@ begin
else else
StaticText1.Caption:= 'No free standing project'; StaticText1.Caption:= 'No free standing project';
updateButtons; updateButtons;
fUpdating := false;
end; end;
{$ENDREGION} {$ENDREGION}