var
  AdvPage: TAdvPage;
  AdvToolBar: TAdvToolBar;
  AdvGlowButton: TAdvGlowButton;
begin
  AdvPage := TAdvPage.Create(self);
  AdvPage.Caption := 'New page';
  AdvPage.AdvToolBarPager := AdvToolBarPager1;

  AdvToolBarPager1.ActivePageIndex := AdvToolBarPager1.AdvPageCount - 1;

  AdvToolBar := TAdvToolBar.Create(self);
  AdvToolBar.Parent := AdvPage;
  AdvToolBar.Caption := 'New toolbar';

  AdvGlowButton := TAdvGlowButton.Create(Self);

  AdvGlowButton.Parent := AdvToolBar;
  AdvGlowButton.Caption := 'New Button';
  AdvGlowButton.ShowCaption := true;
end;