TdxBarManager.CategoryItemsVisible, TdxBarManager.Categories Example

• Aug 02, 2022

You can toggle the category visibility when your application must enable/disable certain features, according to an end-user’s security access level. The following procedure sets the visibility of all items within a specified category.

Delphi

procedure ShowCategory(ACategoryName: string; ABarManager: TdxBarManager; AVisible: TdxBarItemVisible);
var
  i: Integer;
begin
  for i := 0 to ABarManager.Categories.Count - 1 do
    if ABarManager.Categories.IndexOf(ACategoryName) = i then
    begin
      ABarManager.CategoryItemsVisible[i] := AVisible;
      Exit;
    end;
end;

C++

void __fastcall ShowCategory(AnsiString ACategoryName, TdxBarManager * ABarManager, TdxBarItemVisible AVisible)
{
  int i;
  for(i=0; ABarManager->Categories->Count; i++)
    if(ABarManager->Categories->IndexOf(ACategoryName) == i)
    {
      ABarManager->CategoryItemsVisible[i] = AVisible;
      return;
    }
}