sgcNavigation. Każda strona w zasięgu. Zwiń do paska.

dotnet add package esegece.sgcNavigation.WinForms

procedure TMainForm.CreateNavigation;
begin
  // an accordion bar on the left, dark theme, several groups open at once
  FNav := TsgcVCLNavigationBar.Create(Self);
  FNav.Parent := Self;
  FNav.Align := alLeft;
  FNav.Mode := nbmAccordion;
  FNav.AllowMultiExpand := True;
  FNav.Theme := utDark;
  // a group header (third parameter True), then the items under it
  FNav.Items.AddItem('Sales', '', True);
  FNav.Items.AddItem('Orders', 'O');
  FNav.Items.AddItem('Invoices', 'I').Badge := '3';
  FNav.Items.AddItem('Admin', '', True);
  FNav.Items.AddItem('Users', 'U').Hint := 'Manage the users';
  FNav.Items.AddItem('Billing', 'B').Enabled := False;
  FNav.SelectedIndex := 1;
  FNav.OnSelectionChange := NavSelectionChange;
  FNav.AnimateCollapse := True;
end;

procedure TMainForm.ButtonClick(Sender: TObject);
begin
  // fold the bar into an icon rail, with an animation
  FNav.Collapsed := not FNav.Collapsed;
end;