TAdvToolbarPager - tab groups colour problems

VCL TMS VCL UI Pack
1

Hi - I am trying to use the TabGroups feature of TAdvToolbarPager.

The tabs in the tabgroup have a white caption font when hovered and selected.

Whatever I set, seems to have no effect whatsover. I have tried the options in the toolbar styler under "GroupAppearance", "GroupAppearance.CaptionAppearance", "GroupAppearance.TabAppearance". I have set SystemFont to TRUE and FALSE in both places they appear.

I can get clInfoBk background to appear - although I would ideally like just a top line.

Here's some screenshots of the various states: TAdvToolbarPager with a tab group - Album on Imgur

Here's my styler setup: TAdvToolbarOfficeStyler - Pastebin.com

Here's my basic ribbon setup (have removed all the page details): TAdvToolbarPager - Pastebin.com

Here's my code for creating a tabgroup:

tabGroupRange[0] := -1;
tabGroupRange[1] := -1;
for I := 0 to Ribbon.AdvPageCount-1 do
begin
  if (Ribbon.advPages[i].Tag = 1) and (Ribbon.AdvPages[i].TabVisible) then
  begin
    if (tabGroupRange[0] = -1) then
      tabGroupRange[0] := i; // that's the only time we set that
    if (i > tabGroupRange[1]) then
      tabGroupRange[1] := i; // keep pushing this
  end;
end;

while ribbon.TabGroups.Count > 0 do
  ribbon.TabGroups.Delete(0);
if tabGroupRange[1] > -1 then
begin
  tabGroup := ribbon.TabGroups.Add;
  tabGroup.TabIndexStart := tabGroupRange[0];
  tabGroup.TabIndexEnd := tabGroupRange[1];
end;

Could you please tell me how to change the font of the tab caption when it's in a group ?

Thanks in advance

2

The font color on the group tab is the same as the group color, i.e. it is set by
AdvToolBarOfficeStyler.GroupAppearance.Color

3

Thanks Bruno.

Could you also tell me if it's possible to change the colour of the selected tab when it's part of a group?

I've tried Styler.GroupAppearance.TabAppearance.Color, ColorSelected, HighlightColor...?

Cheers

PS I've set GroupAppearance.Background already.

4

There is currently not a per group tab color. We've investigated this and made an improvement that when TabGroup.DefaultAppearance = false, the tab color will also be picked up from TabGroup.GroupAppearance.TabAppearance.ColorSelected
The next update will have this improvement.

1 Like