From 84934d02c97122ec03f3218a9cda17fd77d37234 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 14 Dec 2018 13:48:50 +0000
Subject: [PATCH] RxFPC: fix update buttons in toolbar setup dialog

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6758 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxcontrols/rxtbrsetup.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/rx/trunk/rxcontrols/rxtbrsetup.pas b/components/rx/trunk/rxcontrols/rxtbrsetup.pas
index 87645421e..c39133eed 100644
--- a/components/rx/trunk/rxcontrols/rxtbrsetup.pas
+++ b/components/rx/trunk/rxcontrols/rxtbrsetup.pas
@@ -246,7 +246,7 @@ begin
   cbFlatBtn.Checked:=tpFlatBtns in FToolPanel.Options;
 
   btnUp.Enabled:=(ListBtnVisible.Items.Count>0) and (ListBtnVisible.ItemIndex>0);
-  btnDown.Enabled:=(ListBtnVisible.Items.Count>0) and (ListBtnVisible.ItemIndex < ListBtnVisible.Items.Count-1);
+  btnDown.Enabled:=(ListBtnVisible.Items.Count>0) and (ListBtnVisible.ItemIndex < ListBtnVisible.Items.Count-1) and (ListBtnVisible.ItemIndex >-1);
 
   if (ListBtnVisible.ItemIndex>=0) and (ListBtnVisible.ItemIndex<ListBtnVisible.Items.Count) then
     cbShowCaption.Enabled:=not (TToolbarItem(ListBtnVisible.Items.Objects[ListBtnVisible.ItemIndex]).ButtonStyle in [tbrSeparator, tbrDivider])