Adding Bitmaps to a Tabs

Adding Bitmaps to a Tabs

By using the TabCtrl_SetItem() meacro, adding Bitmaps to the Tabs of a PageControl or TabControl is easily accomplished. This method is preferred over making the TabControl/PageControl owner-drawn, then drawing the items yourself.

KEYWORDS: TabCtrl_SetItem

You'll need to have an ImageList with each item corresponding to a certain Tab, or set the iImage member of the TC_ITEM struct to assign the index of the Tab's image accordingly.

//---------------------------------------------------------------------------

//The goal is to change the style of each TabSheet to
//accomodate a bitmap (TCIF_IMAGE)...
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
//Get the current Style
DWORD dwStyle = GetWindowLong(PageControl1->Handle, GWL_STYLE);

    //Add the "put icon on left" style or TCS_FORCELABELLEFT
    //depending on where you want the image
    SetWindowLong(PageControl1->Handle, GWL_STYLE,
                  dwStyle | TCS_FIXEDWIDTH | TCS_FORCEICONLEFT);

    //Change the attributes of each tab
    TC_ITEM tci;
    for (int index = 0; index < PageControl1->PageCount; index++)
    {
        //flag the image state
        tci.mask = TCIF_TEXT | TCIF_IMAGE;

//add the previously assigned captions
tci.pszText = PageControl1->Pages[index]->Caption.c_str();

        int max = PageControl1->Pages[index]->Caption.Length() * sizeof(char);
        tci.cchTextMax = max;
        tci.iImage = index;

        //force the changes
        TabCtrl_SetItem(PageControl1->Handle, index, &tci);
    }

//associate an ImageList with the TabControl
PageControl1->Perform(TCM_SETIMAGELIST, 0, (LPARAM)ImageList1->Handle);
}