Автор: Maks150988
Дата сообщения: 28.02.2009 13:37
Привет. Кто-нибудь может помочь с такой ситуацией?
Нужно отображать панель меню в ребаре - наподобие проводника/интернет эксплорера/системных программ.
Сделал так: загрузил ресурс диалога И добавил это окошко в банд ребара.
Как через SetParent или через что это делается сделать полностью загруженное окно CHILD?
Код: {}
procedure CreateMenuRebarToolbar(hWnd: Thandle);
var
hMenuRebar: Thandle;
TRebarRect: TRect;
TRebarInfo: TRebarBandInfoW;
hChildWind: Thandle;
cxIdeal : Integer;
cxIndex : Integer;
szBtnText : WideString;
begin
hMenuRebar := CreateWindowExW(WS_EX_TOOLWINDOW, REBARCLASSNAME, nil, WS_VISIBLE or WS_BORDER or WS_CHILD or WS_CLIPCHILDREN or WS_CLIPSIBLINGS or RBS_VARHEIGHT or RBS_BANDBORDERS or CCS_NODIVIDER, 0, 0, 0, 0, hWnd, ID_MENUEX_SYSREBAR, hInstance, nil);
if (hMenuRebar <> 0) then
begin
hChildWind := CreateDialogW(hInstance, MAKEINTRESOURCEW(RC_DIALOG_MENUEX), 0, nil);
if (hChildWind <> 0) then
begin
SetMenu(hChildWind, RebarMenu);
GetWindowRect(hChildWind, TRebarRect);
ZeroMemory(@TRebarInfo, SizeOf(TRebarInfo));
TRebarInfo.cbSize := SizeOf(TRebarBandInfoW);
TRebarInfo.fMask := RBBIM_SIZE or RBBIM_CHILD or RBBIM_CHILDSIZE or RBBIM_STYLE;
TRebarInfo.cxMinChild := TRebarRect.Right - TRebarRect.Left;
TRebarInfo.cyMinChild := TRebarRect.Bottom - TRebarRect.Top + 2;
TRebarInfo.cx := 100;
TRebarInfo.fStyle := RBBS_CHILDEDGE or RBBS_NOGRIPPER or RBBS_GRIPPERALWAYS;
TRebarInfo.wID := ID_SYSREBAR_MENUEX;
TRebarInfo.hwndChild := hChildWind;
SendMessage(hMenuRebar, RB_INSERTBAND, WPARAM(-1), LPARAM(@TRebarInfo));
end;
hChildWind := CreateWindowExW(WS_EX_TOOLWINDOW, TOOLBARCLASSNAME, nil, WS_VISIBLE or WS_CHILD or CCS_NODIVIDER or CCS_NORESIZE or CCS_NOPARENTALIGN or TBSTYLE_FLAT or TBSTYLE_TOOLTIPS, 0, 0, 0, 0, hMenuRebar, ID_SYSREBAR_TOOLB, hInstance, nil);
if (hChildWind <> 0) then
begin
GetWindowRect(hChildWind, TRebarRect);
SendMessageW(hChildWind, TB_BUTTONSTRUCTSIZE, SizeOf(TTBBUTTON), 0);
SendMessageW(hChildWind, TB_BUTTONCOUNT, 0, 0);
SendMessageW(hChildWind, TB_ADDBUTTONS, Length(tbButtons), LPARAM(@tbButtons));
SendMessageW(hChildWind, TB_AUTOSIZE, 0, 0);
tbBitmap.hInst := 0;
tbBitmap.nID := ImageBmp;
SendMessageW(hChildWind, TB_ADDBITMAP, Length(tbButtons), LPARAM(@tbBitmap));
szBtnText := 'Открыть файл'#0'Извлечь в...'#0'Поиск файлов'#0'Информация'#0'О программе'#0#0;
//SendMessageW(hChildWind, TB_ADDSTRINGW, 0, LPARAM(szBtnText));
SendMessageW(hChildWind, TB_SETEXTENDEDSTYLE, 0, TBSTYLE_EX_DRAWDDARROWS or TBSTYLE_EX_MIXEDBUTTONS);
cxIdeal := 0;
for cxIndex := 0 to SendMessageW(hChildWind, TB_BUTTONCOUNT, 0, 0) - 1 do
begin
SendMessageW(hChildWind, TB_GETITEMRECT, WPARAM(cxIndex), LPARAM(@TRebarRect));
Inc(cxIdeal, (TRebarRect.Right - TRebarRect.Left));
end;
ZeroMemory(@TRebarInfo, SizeOf(TRebarInfo));
TRebarInfo.cbSize := SizeOf(TRebarBandInfoW);
TRebarInfo.fMask := RBBIM_SIZE or RBBIM_CHILD or RBBIM_CHILDSIZE or RBBIM_STYLE;
TRebarInfo.cxMinChild := TRebarRect.Right - TRebarRect.Left;
TRebarInfo.cyMinChild := TRebarRect.Bottom - TRebarRect.Top + 2;
TRebarInfo.cx := 100;
TRebarInfo.cxIdeal := cxIdeal;
TRebarInfo.fStyle := RBBS_CHILDEDGE or RBBS_NOGRIPPER or RBBS_GRIPPERALWAYS or RBBS_BREAK;
TRebarInfo.wID := ID_SYSREBAR_TOOLB;
TRebarInfo.hwndChild := hChildWind;
SendMessageW(hMenuRebar, RB_INSERTBAND, WPARAM(-1), LPARAM(@TRebarInfo));
end;
end;
end;
