Romeo, не, в приват кидать ничего не буду. Просто обязательно ещё желающие нарисуются, а я человек ленивый
Вот кусок кода:
Код: Выделить всё
const
IDB_TOOLBAR_BUTTONS = 1022;
var
tbButtons: array[0..5] of TTBButton;
tbBitmap: TTBADDBITMAP;
begin
with tbButtons[0] do begin
iBitmap := 0;
idCommand := IDC_PRESSBUTTON1;
fsStyle := BTNS_WHOLEDROPDOWN or TBSTYLE_AUTOSIZE;
fsState := TBSTATE_ENABLED;
dwData := 0;
iString := 0;
end;
...
hToolbar := CreateWindowEx(0, TOOLBARCLASSNAME, '',
WS_CHILD or WS_VISIBLE or TBSTYLE_LIST or CCS_NODIVIDER or
TBSTYLE_FLAT, 0, 0, 400, 22, hParent, 0, 0, nil);
SendMessage(hToolBar, TB_BUTTONSTRUCTSIZE, SizeOf(TTBBUTTON), 0);
tbBitmap.hInst:=Hinstance;
tbBitmap.nID:=IDB_TOOLBAR_BUTTONS;
SendMessage(hToolBar, TB_ADDBITMAP, WPARAM(2), LPARAM(@tbBitmap));
SendMessage(hToolBar, TB_ADDBUTTONS, 6, LPARAM(@tbButtons));
SendMessage(hToolBar, TB_AUTOSIZE, 0, 0);
...
end;
Паскаль, но думаю разберёшься. Собака в паскале, то же самое, что амперсэнд в Ц, т.е. адрес.
Несущественные детали, типа создания родителя и установки строк опустил.
Да, TOOLBARCLASSNAME - константа, определённая в windows.h
