How to adding icons to tab controls?

[Mikl__]

May show a small example for 2-3 tabs? Thank you...

[Biterider]

Hi Mikl__
Maybe this can help.
After creating the control

Code Select Expand

invoke CreateWindowEx, dExStyle, $OfsCStr("SysTabControl32"), pTitle, \
                         dStyle, sdPosX, sdPosY, dWidth, dHeight, \
                         hParent, CtlID, hInstance, 0

add an imagelist using

Code Select Expand

invoke SendMessage, hWnd, TCM_SETIMAGELIST, 0, hImageList

For each tab you want to add, use

Code Select Expand


local TCI:TC_ITEM

mov TCI.mask_, TCIF_PARAM or TCIF_TEXT or TCIF_IMAGE
mrm TCI.pszText, pText, xax
mrm TCI.iImage, dImageIndex, eax
mrm TCI.lParam, hWnd, xax
invoke SendMessage, hWnd, TCM_INSERTITEM, dIndex, addr TCI

and you are done.

Note: if the Tab control is to be placed in a dialog, don't forget to use the MapDialogRect to convert from dialog box units to pixels.

Biterider

[six_L]

look the attachment.

[Mikl__]

Hi, Biterider, six_L!
Thank you very much for the help!