paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 00:11:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Modified patch #9491 to allow button grouping cross separator

Browse Source 
git-svn-id: trunk@11909 -
This commit is contained in:
marc 2007-09-01 22:18:36 +00:00
parent 5b520c85fe
commit 658e9a848c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/toolbutton.inc
View File

@ -537,7 +537,7 @@ begin
if (Style<>tbsCheck) or (not Grouped) then exit;
while (StartIndex>0) do begin
CurButton:=FToolBar.Buttons[StartIndex-1];
if (CurButton<>nil) and (CurButton.Style=tbsCheck) and (CurButton.Grouped)
if (CurButton<>nil) and CurButton.Grouped and (CurButton.Style in [tbsCheck, tbsSeparator, tbsDivider])
then
dec(StartIndex)
else
@ -545,7 +545,7 @@ begin
end;
while (EndIndex<FToolBar.FButtons.Count-1) do begin
CurButton:=FToolBar.Buttons[EndIndex+1];
if (CurButton<>nil) and (CurButton.Style=tbsCheck) and (CurButton.Grouped)
if (CurButton<>nil) and CurButton.Grouped and (CurButton.Style in [tbsCheck, tbsSeparator, tbsDivider])
then
inc(EndIndex)
else