TdxBarItemLink.UserGlyph, TdxBarItemLink.UserCaption, TdxBarItem.Links, TdxBarItem.LinkCount Example

• Jul 29, 2021

Assume you have several different item controls corresponding to one item control of TdxBarButton type. You can use the item control’s UserGlyph, UserCaption, UserPaintStyle, UserWidth, or BeginGroup property to customize the look of different item controls with the same underlying item. The code below demonstrates use of the UserGlyph and UserCaption properties. The first five button controls look different but perform the same action.

Delphi

procedure ChangePictures(Sender: TObject);
var
  iCount: Integer;
  Bitmaps: array[0..4] of TBitmap;
begin
 for iCount:= 0 to 4 do
   Bitmaps[iCount] := TBitmap.Create;
 Bitmaps[0].LoadFromFile('bmp1.bmp');
 Bitmaps[1].LoadFromFile('bmp2.bmp');
 Bitmaps[2].LoadFromFile('bmp3.bmp');
 Bitmaps[3].LoadFromFile('bmp4.bmp');
 Bitmaps[4].LoadFromFile('bmp5.bmp');
 with dxBarButton1 do
 begin
   BarManager.BeginUpdate;
   for iCount := 0 to LinkCount - 1 do
     if iCount < 5 then
     begin
       Links[iCount].UserGlyph := Bitmaps[iCount];
       Links[iCount].UserCaption :=
         Links[iCount].Caption + IntToStr(iCount);
       Bitmaps[iCount].Free;
     end;
   end;
   BarManager.EndUpdate;
end;

C++

void __fastcall ChangePictures(TObject * Sender)
{
  int iCount;
  Graphics::TBitmap * Bitmaps[5];
 for(iCount=0;iCount<5;iCount++)
   Bitmaps[iCount] = new Graphics::TBitmap();
 Bitmaps[0]->LoadFromFile("bmp1.bmp");
 Bitmaps[1]->LoadFromFile("bmp2.bmp");
 Bitmaps[2]->LoadFromFile("bmp3.bmp");
 Bitmaps[3]->LoadFromFile("bmp4.bmp");
 Bitmaps[4]->LoadFromFile("bmp5.bmp");
 dxBarButton1->BarManager->BeginUpdate();
 for(iCount=0;iCount<dxBarButton1->LinkCount;iCount++)
   if (iCount < 5)
   {
     dxBarButton1->Links[iCount]->UserGlyph = Bitmaps[iCount];
     dxBarButton1->Links[iCount]->UserCaption =
           dxBarButton1->Links[iCount]->Caption + IntToStr(iCount);
     delete Bitmaps[iCount];
   }
 dxBarButton1->BarManager->EndUpdate();
}