Implementation

Place u_cst_toolbarstrip from advguicontrols.pbl\pbd on your window.

Open Event Or Post Constructor Event (avoid loading items in the controls Constructor event):

//Add items to the toolbar
uo_1.of_AddItem('Copy','Copy!')
uo_1.of_AddItem('Paste','Paste!')
uo_1.of_AddSeparator()
uo_1.of_AddItem('First Row','VCRFirst!')
uo_1.of_AddItem('Prior Row','VCRPrior!')
uo_1.of_AddObject('', em_1)
uo_1.of_AddItem('Next Row','VCRNext!')
uo_1.of_AddItem('Last Row','VCRLast!')

//Display text with image
uo_1.of_DisplayText(TRUE)

//THE FOLLOWING CODE ADDS A TOOLBAR ITEM WITH DROP MENU
//Add menu toolbar items
Long ll_group, ll_b, ll_s, ll_o, ll_c
ll_group = uo_toolbarstrip.of_AddGroup()
ll_b = uo_toolbarstrip.of_AddItem('Blue','blue.bmp')
ll_s = uo_toolbarstrip.of_AddItem('Silver','silver.bmp')
ll_o = uo_toolbarstrip.of_AddItem('Olive','olive.bmp')
ll_c = uo_toolbarstrip.of_AddItem('Classic','classic.bmp')

uo_toolbarstrip.of_DisplayText(ll_group, TRUE)

//Assign new toolbar items to group
uo_toolbarstrip.of_AssignItemToGroup(ll_group,ll_b)
uo_toolbarstrip.of_AssignItemToGroup(ll_group,ll_s)
uo_toolbarstrip.of_AssignItemToGroup(ll_group,ll_o)
uo_toolbarstrip.of_AssignItemToGroup(ll_group,ll_c)

//Set the default group item
CHOOSE CASE uo_toolbarstrip.il_CurrentTheme
    CASE uo_toolbarstrip.BLUE
        uo_toolbarstrip.of_setgroupitem (ll_group, ll_b)
    CASE uo_toolbarstrip.SILVER
        uo_toolbarstrip.of_setgroupitem (ll_group, ll_s)
    CASE uo_toolbarstrip.OLIVE
        uo_toolbarstrip.of_setgroupitem (ll_group, ll_o)
    CASE ELSE
        uo_toolbarstrip.of_setgroupitem (ll_group, ll_c)
END CHOOSE