TAdvToolBarButtons not acting as a radio group

VCL TMS VCL UI Pack
1

If I create a toolbar and add 3 TAdvToolBarButtons and set:

AllowAllUp = false; // Default
GroupIndex = 27
Style = tasCheck

I would expect them to only allow one button to be down at a time. Instead, they act independently.

Have I missed another option?

2

You do not need to set Style = tasCheck

I retested this and all works as expected:

object AdvToolBar1: TAdvToolBar
Left = 432
Top = 240
Width = 63
Height = 26
UIStyle = tsOffice2019White
AllowFloating = True
Caption = ''
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'Tahoma'
CaptionFont.Style = []
CompactImageIndex = -1
TextAutoOptionMenu = 'Add or Remove Buttons'
TextOptionMenu = 'Options'
ParentStyler = False
ParentOptionPicture = True
ToolBarIndex = -1
object AdvToolBarButton1: TAdvToolBarButton
Left = 2
Top = 2
Width = 16
Height = 22
AllowAllUp = True
Appearance.CaptionFont.Charset = DEFAULT_CHARSET
Appearance.CaptionFont.Color = clWindowText
Appearance.CaptionFont.Height = -12
Appearance.CaptionFont.Name = 'Segoe UI'
Appearance.CaptionFont.Style = []
GroupIndex = 1
Caption = 'A'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Position = daTop
ShowCaption = True
Version = '6.7.2.2'
end
object AdvToolBarButton2: TAdvToolBarButton
Left = 18
Top = 2
Width = 15
Height = 22
AllowAllUp = True
Appearance.CaptionFont.Charset = DEFAULT_CHARSET
Appearance.CaptionFont.Color = clWindowText
Appearance.CaptionFont.Height = -12
Appearance.CaptionFont.Name = 'Segoe UI'
Appearance.CaptionFont.Style = []
GroupIndex = 1
Caption = 'B'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Position = daTop
ShowCaption = True
Version = '6.7.2.2'
end
object AdvToolBarButton3: TAdvToolBarButton
Left = 33
Top = 2
Width = 16
Height = 22
AllowAllUp = True
Appearance.CaptionFont.Charset = DEFAULT_CHARSET
Appearance.CaptionFont.Color = clWindowText
Appearance.CaptionFont.Height = -12
Appearance.CaptionFont.Name = 'Segoe UI'
Appearance.CaptionFont.Style = []
GroupIndex = 1
Caption = 'C'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Position = daTop
ShowCaption = True
Version = '6.7.2.2'
end
end

3

Oh. As the buttons are shown checked, I expected tasCheck was required.

After modding, it works are you describe.

Thanks.