pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC: fix update buttons in toolbar setup dialog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6758 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-12-14 13:48:50 +00:00
parent bc007fab31
commit 84934d02c9
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/trunk/rxcontrols/rxtbrsetup.pas
View File

@ -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])