TdxBarItem.Category, TdxBarManager.ItemCount, TdxBarManager.Items Example

• Jul 29, 2021

The following code snippet represents the TdxBarEdit.OnChange event handler that creates a new category, and moves all TdxBarLargeButton buttons to this category. The category’s name is specified by the Text property of the TdxBarEdit control.

Delphi

procedure TForm1.dxBarEdit1Change(Sender: TObject);
var
  i: Integer;
begin
  with dxBarEdit1.BarManager do
  begin
    BeginUpdate;
    Categories.Add(dxBarEdit1.Text);
    for i := 0 to ItemCount - 1 do
      if Items[i] is TdxBarLargeButton then
      begin
        Items[i].Category := Categories.Count - 1;
        Items[i].Caption := 'NewCaption' + IntToStr(i);
      end;
    EndUpdate;
  end;
end;

C++

void __fastcall TForm1::dxBarEdit1Change(TObject * Sender)
{
  TdxBarManager * ABarManager;
  ABarManager = dxBarEdit1->BarManager;
  ABarManager->BeginUpdate();
  ABarManager->Categories->Add(dxBarEdit1->Text);
  for(int i = 0; I < ABarManager->ItemCount; i++)
    if (dynamic_cast<TdxBarLargeButton *>(ABarManager->Items[i]) != NULL)
    {
     ABarManager->Items[i]->Category = ABarManager->Categories->Count-1;
     ABarManager->Items[i]->Caption = "NewCaption" + IntToStr(i);
    }
  ABarManager->EndUpdate();
}