TAdvOfficeTabSet

VCL TMS VCL UI Pack
1

Hi,

having tabset created in design time, following code works as expected, but
if I create fTabset on the fly, no buttons are shown. What am I doing wrong?

  //fTabSet := TAdvOfficeTabSet.Create(self);
  //  fTabSet.Parent := Self;
  fTabSet := tabset; // created by design
  fTabSet.Left := 0;
  fTabSet.Visible := False;
  fTabSet.Top := Ribbon.Height;
  fTabSet.Align := alTop;

  fTabSet.ButtonSettings.ScrollButtonsAlways := True;
  fTabSet.ShowCloseOnNonSelectedTabs := True;
  fTabSet.ButtonSettings.CloseButton := True;
  fTabSet.CloseOnTab := True;
  fTabSetStyler := TAdvOfficeTabSetOfficeStyler.Create(self);
  fTabSet.AdvOfficeTabSetStyler := fTabSetStyler;
  FormStyler.ApplyStyle;

  fTabSet.AddTab('tab1');
  fTabSet.AddTab('tab2');

design time: http://consulteco.cz/screen/1520969036.png
on the fly : http://consulteco.cz/screen/1520969076.png

2

I test this here with the code:


procedure TForm4.Button1Click(Sender: TObject);
begin
  fTabSet := TAdvOfficeTabSet.Create(self);
  fTabSet.Parent := Self;
  //fTabSet := tabset; // created by design
  fTabSet.Left := 0;
  fTabSet.Visible := False;
  fTabSet.Top := 10;
  fTabSet.Align := alTop;

  fTabSet.ButtonSettings.ScrollButtonsAlways := True;
  fTabSet.ShowCloseOnNonSelectedTabs := True;
  fTabSet.ButtonSettings.CloseButton := True;
  fTabSet.CloseOnTab := True;
  fTabSetStyler := TAdvOfficeTabSetOfficeStyler.Create(self);
  fTabSet.AdvOfficeTabSetStyler := fTabSetStyler;

  fTabSet.Visible := true;

  fTabSet.AddTab('tab1');
  fTabSet.AddTab('tab2');
end;

and I see two created tabs in the TAdvOfficeTabSet, so all looks like expected here.

3

Not working for me, only tabs, but without buttons.
Tested: XE3,XE4,D7 latest library version (Feb Update)

Screenshot from D7 : http://consulteco.cz/screen/1521008466.png

4

I double-checked this and for runtime creation, please use:



  fTabSet := TAdvOfficeTabSet.Create(self);
  fTabSet.Parent := Self;
  fTabSet.BeginUpdate;
  fTabSet.Left := 0;
  fTabSet.Visible := False;
  fTabSet.Top := 10;
  fTabSet.Align := alTop;

  fTabSet.ButtonSettings.ScrollButtonsAlways := True;
  fTabSet.ShowCloseOnNonSelectedTabs := True;
  fTabSet.ButtonSettings.CloseButton := True;
  fTabSet.CloseOnTab := True;
  fTabSetStyler := TAdvOfficeTabSetOfficeStyler.Create(self);
  fTabSet.AdvOfficeTabSetStyler := fTabSetStyler;
  fTabSet.Visible := true;
  fTabSet.AddTab('tab1');
  fTabSet.AddTab('tab2');
  fTabSet.EndUpdate;
  fTabSet.Init;
5

Thank you, It works as expected.