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

project group, fix an UI issue

This commit is contained in:
Basile Burg 2016-06-29 09:06:22 +02:00
parent 760d0c1a58
commit 8fb4d233ee
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_projgroup.pas
View File

@ -463,6 +463,8 @@ begin
// //
projectGroup.items.Exchange(lstProj.ItemIndex, lstProj.ItemIndex + 1); projectGroup.items.Exchange(lstProj.ItemIndex, lstProj.ItemIndex + 1);
lstProj.Items.Exchange(lstProj.ItemIndex, lstProj.ItemIndex + 1); lstProj.Items.Exchange(lstProj.ItemIndex, lstProj.ItemIndex + 1);
projectGroup.index:=projectGroup.index+1;
lstProj.ItemIndex:=lstProj.ItemIndex+1;
end; end;
procedure TCEProjectGroupWidget.btnMoveUpClick(Sender: TObject); procedure TCEProjectGroupWidget.btnMoveUpClick(Sender: TObject);
@ -472,6 +474,8 @@ begin
// //
projectGroup.items.Exchange(lstProj.ItemIndex, lstProj.ItemIndex - 1); projectGroup.items.Exchange(lstProj.ItemIndex, lstProj.ItemIndex - 1);
lstProj.Items.Exchange(lstProj.ItemIndex, lstProj.ItemIndex - 1); lstProj.Items.Exchange(lstProj.ItemIndex, lstProj.ItemIndex - 1);
projectGroup.index:=projectGroup.index-1;
lstProj.ItemIndex:=lstProj.ItemIndex-1;
end; end;
procedure TCEProjectGroupWidget.btnRemProjClick(Sender: TObject); procedure TCEProjectGroupWidget.btnRemProjClick(Sender: TObject);