From 530a72b24840d30e064db7d304e50b47fbda6687 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Thu, 20 Nov 2014 09:52:15 +0000
Subject: [PATCH] IDE: Improve Up/Down button behavior in component palette
 options.

git-svn-id: trunk@46893 -
---
 ide/frames/componentpalette_options.pas | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/ide/frames/componentpalette_options.pas b/ide/frames/componentpalette_options.pas
index 7ba957f33d..bb1c516006 100644
--- a/ide/frames/componentpalette_options.pas
+++ b/ide/frames/componentpalette_options.pas
@@ -71,6 +71,7 @@ type
   private
     fLocalOptions: TCompPaletteOptions;
     fLocalUserOrder: TCompPaletteUserOrder;
+    fPrevPageIndex: Integer;
     procedure WritePages(cpo: TCompPaletteOptions);
     procedure WriteComponents(cpo: TCompPaletteOptions);
     procedure FillPages;
@@ -140,6 +141,8 @@ begin
   CompMoveUpBtn.Hint:=lisMoveSelectedUp;
   CompMoveDownBtn.Hint:=lisMoveSelectedDown;
 
+  fPrevPageIndex := -1;
+
   UpdateButtons;
   UpdatePageMoveButtons(PagesListBox.ItemIndex);
   UpdateCompMoveButtons(ComponentsListView.ItemIndex);
@@ -320,9 +323,12 @@ var
   lb: TListBox;
 begin
   lb := Sender as TListBox;
+  if lb.ItemIndex = fPrevPageIndex then Exit;
   FillComponents(lb.Items[lb.ItemIndex]);
   UpdateButtons;
-  UpdateCompMoveButtons(ComponentsListView.ItemIndex);
+  UpdatePageMoveButtons(lb.ItemIndex);
+  UpdateCompMoveButtons(-1);
+  fPrevPageIndex := lb.ItemIndex;
 end;
 
 procedure TCompPaletteOptionsFrame.AddPageButtonClick(Sender: TObject);
@@ -474,7 +480,8 @@ end;
 procedure TCompPaletteOptionsFrame.ComponentsListViewChange(Sender: TObject;
   Item: TListItem; Change: TItemChange);
 begin
-  UpdateCompMoveButtons(ComponentsListView.ItemIndex);
+  if Item.Selected then
+    UpdateCompMoveButtons(ComponentsListView.Items.IndexOf(Item));
 end;
 
 procedure TCompPaletteOptionsFrame.ComponentsListViewClick(Sender: TObject);