如何使用函数SetMenuItemBitmaps()自画菜单的图标？(100分)

zouming · 2001-11-19

如何使用函数SetMenuItemBitmaps()自画菜单的图标？ SetMenuItemBitmaps(Menu,indexMenu,MF_BYPOSITION,LoadBitmap(HInstance,PChar('myBitmap')),0);

huiyugan · 2001-11-21

菜单的自画。 function DrawBmpMenu(itemMenu : DRAWITEMSTRUCT):BOOL; var   orgrect, rG, rect: TRect;   p : TPoint;   DC : HDC;   bmpDC : HDC;   lb : LOGBRUSH;   oldBrush,Brush : HBRUSH;   oldbmp,bmp,bufBmp : HBITMAP;   BKcolor,txtColor : DWORD;   oldRight : integer;   i : integer; begin   rect := itemMenu.rcItem;   //DC := CreateCompatibleDC(itemMenu.hDC);   DC := itemMenu.hDC;   {   bufBmp := CreateCompatibleBitmap(DC,       rect.right - rect.left,rect.bottom-rect.top);   SelectObject(DC,bufBmp);   }   //Brush := CreateSolidBrush(GetSysColor(COLOR_MENU));   //SelectObject(DC,brush);   //DeleteObject(brush);   //DC := itemMenu.hDC;   orgrect := rect;   {   rect.Bottom := rect.Bottom -rect.Top;   rect.Right := rect.Right - rect.left;   rect.top := 0;   rect.left := 0;   }   bmpDC := CreateCompatibleDC(DC);   if  (itemMenu.itemAction = ODA_DRAWENTIRE) then  begin     BKcolor := GetSysColor(COLOR_MENU);     txtColor := GetSysColor(COLOR_MENUTEXT);   end   else if itemMenu.itemAction = ODA_SELECT then begin     if not BOOL(itemMenu.itemState and ODS_SELECTED) then begin       BKcolor := GetSysColor(COLOR_MENU);       txtColor := GetSysColor(COLOR_MENUTEXT);     end     else begin       BKcolor := GetSysColor(COLOR_HIGHLIGHT);       txtColor := GetSysColor(COLOR_HIGHLIGHTTEXT);     end;   end;   {   rG := rect;   Inc(rG.Left, 20);   if BKColor = GetSysColor(COLOR_HIGHLIGHT) then begin     for i:= 1 to 120 do begin       Brush := CreateSolidBrush(GetSysColor(COLOR_HIGHLIGHT) +         i*(Abs(GetSysColor(COLOR_HIGHLIGHT)-GetSysColor(COLOR_MENU)) div 120));       rG.Left := rg.Left +(rect.right-rect.left-20) div 120;       rG.right := rG.Left + (rect.right - rect.left - 20) div 120;       FillRect(DC,rG,Brush);       DeleteObject(Brush);     end;   end else begin }     Brush := CreateSolidBrush(DWORD(BKcolor));     FillRect(DC,rect,Brush);     DeleteObject(Brush);  { end; }   rG := rect;   rG.Right := rect.Left +19;   Brush := CreateSolidBrush(GetSysColor(COLOR_MENU));   FillRect(DC,rG,Brush);   DeleteObject(Brush);   bmp := LoadBitmap(hInstance,'BITMAP_MENUCLKSET');   oldbmp := SelectObject(bmpDC,bmp);   Bitblt(DC,rect.left+3,rect.top+4,12,12,bmpDC,0,0,SRCCOPY);   SetBkColor(DC,BKcolor);   SetTextColor(DC,txtColor);   TextOut(DC,rect.left + 22,rect.top+2,'Clock setting',13);   if BKColor = GetSysColor(COLOR_HIGHLIGHT) then   begin     Brush := CreateSolidBrush(RGB(255,0,0));     Inc(rect.Left,18);     FrameRect(DC,rect,Brush);     DeleteObject(Brush);     Dec(rect.Left,18);     OldRight := rect.Right;     rect.Right := rect.Left + 17;     DrawEdge(DC,rect,EDGE_RAISED,BF_RECT);     rect.Right := OldRight;   end;   {   BitBlt(itemMenu.hDC,orgrect.Left,orgrect.Top,           orgrect.Right - orgrect.Left,           orgrect.Bottom - orgrect.top,           DC,rect.Left,rect.top,SRCCOPY);   }   SelectObject(bmpDC,oldbmp);   DeleteDC(bmpDC);   {DeleteDC(DC);}   {DeleteObject(bufBmp);}   DeleteObject(bmp); end;

zouming · 2001-11-21

试试！

zouming · 2001-11-21

当移到word的菜单条时，菜单条前的图标会象speedbutton一样浮起，在delphi3中如何编程实现？

zouming · 2001-11-26

用如下代码，画出的菜单变得暗色，为什么？   BM:= TBitMap.Create;   BM.Width:=16;   BM.Height:=16;   BM.LoadFromFile(maindir+'/icon/open.bmp');   try     SetMenuItemBitmaps(MI_File.Handle,             1, MF_BYPOSITION,                       BM.BitMap.Handle,                       BM.BitMap.Handle);   finally     BM.free;   end;}

zouming · 2001-12-05

=>huiyugan 如何加入包含文件？ uses ???

zouming · 2002-04-17

accept answer

如何使用函数SetMenuItemBitmaps()自画菜单的图标？(100分)

zouming

Unregistered / Unconfirmed

huiyugan

Unregistered / Unconfirmed

zouming

Unregistered / Unconfirmed

zouming

Unregistered / Unconfirmed

zouming

Unregistered / Unconfirmed

zouming

Unregistered / Unconfirmed

zouming

Unregistered / Unconfirmed

Similar threads