TdxBarListItem.Items Example

• Jul 29, 2021

The following code snippet demonstrates how to populate the Items collection of a TdxBarListItem.

The AddRecentFiles procedure displayed below adds a file specified by the AFileName parameter to the list of recently used files in a TdxBarListItem. The AMaxNumberOfFiles parameter specifies the maximum number of file names to store.

Delphi

procedure AddRecentFiles(AFileName: string; AMaxNumberOfFiles: Integer);
var
  i: Integer;
begin
  with dxBarListItem1 do
  begin
    BarManager.BeginUpdate;
    if Items.Count < AMaxNumberOfFiles then
      Items.Add('');
    for i := Items.Count - 1 downto 1 do
      Items[i] := Items[i-1];
    Items[0] := AFileName;
    BarManager.EndUpdate;
  end;
end;

C++

void __fastcall AddRecentFiles(AnsiString AFileName, int AMaxNumberOfFiles)
{
 dxBarListItem1->BarManager->BeginUpdate();
 if (dxBarListItem1->Items->Count < AMaxNumberOfFiles)
   dxBarListItem1->Items->Add("");
 for(int i = dxBarListItem1->Items->Count - 1; i>= 1; i--)
   dxBarListItem1->Items->Strings[i] = dxBarListItem1->Items->Strings[i-1];
 dxBarListitem1->Items->Strings[0] =AFileName;
 dxBarListItem1->BarManager->EndUpdate();
}