TCoolBarBands (C++)

Description

To run this example, add the example code to a new project. The example code dynamically creates a TCoolbar and three TCoolBand objects populated with a windowed control in each TCoolBand.

Code

void AddBands(TCoolBar *CoolBar, TList *Objects)
{
  TControl *pCurrent;
  for (int i = 0; i < Objects->Count; i++)
  {
        pCurrent = reinterpret_cast<TControl *>(Objects->Items[i]);
    // Add only windowed controls to the coolbar.
    if (dynamic_cast<TWinControl *>(pCurrent) != NULL)
    {
           // Placing the control onto the CoolBar
      // causes the TCoolBar object to create a TCoolBand 
           // and place the control within the band.
          pCurrent->Parent = CoolBar;   // This statement increments CoolBar->Bands->Count.
           // Get the reference of the newly created TCoolBand and assign text.
          String S = pCurrent->ClassName();
          CoolBar->Bands->Items[CoolBar->Bands->Count - 1]->Text = S;
        }
  }
}
 
#include <memory>       //For STL auto_ptr class
 
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  TCoolBar *CoolBar = new TCoolBar(this); // The owner (Form1) will clean this up.
  CoolBar->Parent = this;
  CoolBar->Align = alTop;
  std::auto_ptr<TList> List(new TList);
  try
  {
        TControl *Control;
        Control = new TButton(CoolBar); // The owner (CoolBar) will clean this up.
        List->Add(Control);
        Control = new TCheckBox(CoolBar); // The owner (CoolBar) will clean this up.
        List->Add(Control);
        Control = new TEdit(CoolBar); // The owner (CoolBar) will clean this up.
        List->Add(Control);
        AddBands(CoolBar, List.get());
  }
  catch (...)
  {
    ShowMessage("Some objects could not be added to Coolband");
  }
}

Uses

• Vcl.ComCtrls.TCoolBar.Bands ( fr | de | ja )
• Vcl.ComCtrls.TCoolBands.Items ( fr | de | ja )
• Vcl.ComCtrls.TCoolBand.Text ( fr | de | ja )
• System.TObject.ClassName ( fr | de | ja )
• System.TObject.ClassType ( fr | de | ja )