fix , selection after move up/down

This commit is contained in:
Basile Burg 2014-12-12 05:23:12 +01:00
parent 45d84c2464
commit 82995b0963
1 changed files with 2 additions and 0 deletions

View File

@ -104,6 +104,7 @@ begin
if lstTools.ItemIndex = 0 then exit;
//
CustomTools.tools.Exchange(lstTools.ItemIndex, lstTools.ItemIndex - 1);
lstTools.ItemIndex := lstTools.ItemIndex - 1;
updateNames;
end;
@ -113,6 +114,7 @@ begin
if lstTools.ItemIndex = lstTools.Items.Count-1 then exit;
//
CustomTools.tools.Exchange(lstTools.ItemIndex, lstTools.ItemIndex + 1);
lstTools.ItemIndex := lstTools.ItemIndex + 1;
updateNames;
end;