ToolbarWindow32 [D7, WinXP]
юзверь © (2004-07-24 17:45:00)
доброго дня, неподскажете как на
ReBarWindow32 сделать ToolbarWindow32 шоб у него слева была
полосочка, за которую можно таскать???
на ребаре уже есть несколько тулбаров и они таскаються, а
када я создаю он просто чисто на ребаре висит без таскалки, вроде
енту таскалку надо сделать а на нее тулбар ??
я делаю так:
hwndTb := CreateWindowEx(
WS_EX_LEFT or WS_EX_LTRREADING or WS_EX_TOOLWINDOW or
TBSTYLE_EX_DRAWDDARROWS,
TOOLBARCLASSNAME,
nil,
WS_CHILD or WS_VISIBLE or WS_CLIPSIBLINGS or WS_CLIPCHILDREN
or TBSTYLE_TRANSPARENT or TBSTYLE_FLAT or TBSTYLE_TOOLTIPS or
CCS_NODIVIDER or CCS_ADJUSTABLE or CCS_NOPARENTALIGN or
CCS_NORESIZE or CCS_TOP,
0, 0, 100, 50,
barhWnd,
0,
hInstance,
nil);
SendMessage(hwndTb, TB_BUTTONSTRUCTSIZE,
WPARAM(sizeof(TTBBUTTON)), 0);
tbab.hInst := 0;
tbab.nID := loadbitmap(hInstance, 'BITMAP_0');
SendMessage(toolbarHWND, TB_SETBITMAPSIZE, 0,
lParam($00180018));
SendMessage(hwndTb, TB_ADDBITMAP, WPARAM(61), LPARAM(@tbab));
SendMessage(hwndTb, TB_ADDBUTTONS, WPARAM(2), LPARAM(@buts));
юзверь (2004-07-24 21:28:00) [1]
вотъ шо надо
RB_INSERTBAND
Наверх 
ЧАТ |
Орешник |
|
