From b1084a5d3f59948cfa873201fe9d38d2a0b70e83 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 4 May 2018 12:40:53 +0000
Subject: [PATCH] tvplanit: Fix incorrect enable/disable state of command
 buttons in vpNavBar component editor after exchanging listbox items.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6382 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/design/vpnabed.pas | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/components/tvplanit/source/design/vpnabed.pas b/components/tvplanit/source/design/vpnabed.pas
index d7adef498..ba7bde2d9 100644
--- a/components/tvplanit/source/design/vpnabed.pas
+++ b/components/tvplanit/source/design/vpnabed.pas
@@ -624,7 +624,6 @@ begin
       Item.Index := Item.Index - 1;
 
     PopulateItemList;
-    UpdateBtnStates;
 
     if Assigned(Designer) then begin
       GlobalDesignHook.SelectOnlyThis(nil);
@@ -632,6 +631,8 @@ begin
       Designer.Modified;
     end;
   end;
+
+  UpdateBtnStates;
 end;
 
 procedure TfrmNavBarEd.btnItemDownClick(Sender: TObject);
@@ -645,7 +646,6 @@ begin
       Item.Index := Item.Index + 1;
 
     PopulateItemList;
-    UpdateBtnStates;
 
     if Assigned(Designer) then begin
       GlobalDesignHook.SelectOnlyThis(nil);
@@ -653,6 +653,8 @@ begin
       Designer.Modified;
     end;
   end;
+
+  UpdateBtnStates;
 end;
 
 procedure TfrmNavBarEd.btnFolderUpClick(Sender: TObject);
@@ -669,7 +671,6 @@ begin
 
     PopulateFolderList;
     lbFolders.ItemIndex := SaveItemIndex - 1;
-    UpdateBtnStates;
 
     if Assigned(Designer) then begin
       GlobalDesignHook.SelectOnlyThis(nil);
@@ -677,6 +678,8 @@ begin
       Designer.Modified;
     end;
   end;
+
+  UpdateBtnStates;
 end;
 
 procedure TfrmNavBarEd.btnFolderDownClick(Sender: TObject);
@@ -691,7 +694,6 @@ begin
 
     PopulateFolderList;
     lbFolders.ItemIndex := Folder.Index;
-    UpdateBtnStates;
 
     if Assigned(Designer) then begin
       GlobalDesignHook.SelectOnlyThis(nil);
@@ -699,6 +701,8 @@ begin
       Designer.Modified;
     end;
   end;
+
+  UpdateBtnStates;
 end;
 
 procedure TfrmNavBarEd.btnItemDeleteClick(Sender: TObject);