首页 美食 育儿 手工 生活 美妆 美容 设计 电脑 综合
电脑网络
搜索
首页 电脑网络 全部栏目 电脑网络最新信息 编程语言 网络编程

修正XPMenu的两个Bug

2016-02-19 16:24 31 1 收藏

今天图老师小编要跟大家分享修正XPMenu的两个Bug，精心挑选的过程简单易学，喜欢的朋友一起来学习吧！

【 tulaoshi.com - 编程语言 】

XPMenu是大名鼎鼎的Dephi第三方界面控件，最近在使用中发现了几个Bug，并对其中的两个进行修正。
　　
　　1、首先，是绘制菜单和工具栏图标时，会将图像白色部分作为透明色，导致图像缺损非常难看，如下图所示：
　　
　　查看XPMenu的源代码，图标是通过TXPMenu.DrawIcon函数绘制的，函数内计算了图标显示的位置、调用GrayBitmap、DimBitmap、DrawBitmapShadow等函数对图像进行了处理，并将图像的Transparent设为true，再查看GrayBitmap、DimBitmap、DrawBitmapShadow函数并没有发现会导致透明色计算错误的代码。再往回找，终于在TXPMenu.MenueDrawItem和TXPMenu.ToolBarDrawButton里发现了问题，先来看看TXPMenu.MenueDrawItem：
　　

　　procedure TXPMenu.MenueDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
　　  Selected: Boolean);
　　beign
　　.....
　　  //-------
　　  if HasBitmap then
　　    begin
　　      B.Width := FMenuItem.Bitmap.Width;
　　      B.Height := FMenuItem.Bitmap.Height;
　　  // +jt
　　     //B.Canvas.Brush.Color := FTransparentColor; // ACanvas.Brush.Color;
　　     B.Canvas.Brush.Color := B.Canvas.Pixels[0, B.Height - 1];//"Todd Asher" ashert@yadasystems.com
　　     B.Canvas.FillRect(Rect(0, 0, B.Width, B.Height));
　　     FMenuItem.Bitmap.Transparent := true;
　　     FMenuItem.Bitmap.TransparentMode := tmAuto;
　　      B.Canvas.Draw(0,0,FMenuItem.Bitmap);
　　  // +jt
　　    end;

　　

　　
　　  if HasImgLstBitmap then
　　  begin
　　  {$IFDEF VER5U}
　　    if FMenuItem.Parent.SubMenuImages nil then
　　    begin
　　      ImgListHandle := FMenuItem.Parent.SubMenuImages.Handle;
　　      ImgIndex := FMenuItem.ImageIndex;

　　      B.Width := FMenuItem.Parent.SubMenuImages.Width;
　　      B.Height := FMenuItem.Parent.SubMenuImages.Height;
　　     // B.Canvas.Brush.Color := FTransparentColor; // ACanvas.Brush.Color; // +jt
　　      B.Canvas.Brush.Color := B.Canvas.Pixels[0, B.Height - 1];//"Todd Asher" ashert@yadasystems.com
　　      B.Canvas.FillRect(Rect(0, 0, B.Width, B.Height));
　　      ImageList_DrawEx(ImgListHandle, ImgIndex,
　　        B.Canvas.Handle, 0, 0, 0, 0, clNone, clNone, ILD_Transparent);
　　
　　    end
　　    else
　　  {$ENDIF}
　　    if FMenuItem.Parent.GetParentMenu.Images nil then
　　    begin
　　      ImgListHandle := FMenuItem.Parent.GetParentMenu.Images.Handle;
　　      ImgIndex := FMenuItem.ImageIndex;

　　      B.Width := FMenuItem.Parent.GetParentMenu.Images.Width;
　　      B.Height := FMenuItem.Parent.GetParentMenu.Images.Height;
　　      //B.Canvas.Brush.Color := FTransparentColor; //ACanvas.Pixels[2,2]; // +jt
　　      B.Canvas.Brush.Color := B.Canvas.Pixels[0, B.Height - 1];//"Todd Asher" ashert@yadasystems.com
　　      B.Canvas.FillRect(Rect(0, 0, B.Width, B.Height));
　　      ImageList_DrawEx(ImgListHandle, ImgIndex,
　　        B.Canvas.Handle, 0, 0, 0, 0, clNone, clNone, ILD_Transparent);
　　

　　    end;

　　  end;
　　......
　　  if (B nil) and (B.Width 0) then  // X
　　    DrawIcon(FMenuItem, ACanvas, B, IconRect,
　　      Selected or DrawTopMenuBorder, False, FMenuItem.Enabled, FMenuItem.Checked,
　　      FTopMenu, FMenu.IsRightToLeft);
　　......
　　end;

（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/）

　　很明显，除了XPMenu的作者之外，+jt、Asher和X均对代码进行过修改，问题就出在+jk的修改的这段代码里，它先用B（TBitmap）.Canvas.Pixels[0, B.Height - 1]处的颜色填充了整个B，然后再把要显示的图标画到B里去，后面会调用DrawIcon把图标显示出来，可惜+jt计算错误，当时的B（TBitmap）.Canvas.Pixels[0, B.Height - 1]值正是$FFFFFF（白色），以ILD_Transparent参数调用ImageList_DrawEx时会把原图标底色（比如上图的粉红色）去掉，那么DrawIcon绘制的图标底色就是白色的，最后图标所有白色部分被挖空了。+jt真是好心做坏事了。
　　原因找到了，现在直接把+jt那部分代码去掉即可。原程序变为：
　　

　　procedure TXPMenu.MenueDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
　　  Selected: Boolean);
　　beign
　　.....
　　  //-------
　　  if HasBitmap then
　　    begin
　　      B.Width := FMenuItem.Bitmap.Width;
　　      B.Height := FMenuItem.Bitmap.Height;
　　{Modify: Conch 2004-12-16 画出的图标透明颜色有错
　　  // +jt
　　     //B.Canvas.Brush.Color := FTransparentColor; // ACanvas.Brush.Color;
　　     B.Canvas.Brush.Color := B.Canvas.Pixels[0, B.Height - 1];//"Todd Asher" ashert@yadasystems.com
　　     B.Canvas.FillRect(Rect(0, 0, B.Width, B.Height));
　　     FMenuItem.Bitmap.Transparent := true;
　　     FMenuItem.Bitmap.TransparentMode := tmAuto;
　　}
　　      B.Canvas.Draw(0,0,FMenuItem.Bitmap);
　　  // +jt
　　    end;

　　

　　
　　  if HasImgLstBitmap then
　　  begin
　　  {$IFDEF VER5U}
　　    if FMenuItem.Parent.SubMenuImages nil then
　　    begin
　　      ImgListHandle := FMenuItem.Parent.SubMenuImages.Handle;
　　      ImgIndex := FMenuItem.ImageIndex;

　　      B.Width := FMenuItem.Parent.SubMenuImages.Width;
　　      B.Height := FMenuItem.Parent.SubMenuImages.Height;
　　{Modify: Conch 2004-12-16 画出的图标透明颜色有错
　　     // B.Canvas.Brush.Color := FTransparentColor; // ACanvas.Brush.Color; // +jt
　　      B.Canvas.Brush.Color := B.Canvas.Pixels[0, B.Height - 1];//"Todd Asher" ashert@yadasystems.com
　　      B.Canvas.FillRect(Rect(0, 0, B.Width, B.Height));
　　      ImageList_DrawEx(ImgListHandle, ImgIndex,
　　        B.Canvas.Handle, 0, 0, 0, 0, clNone, clNone, ILD_Transparent);
　　}
　　      ImageList_DrawEx(ImgListHandle, ImgIndex,
　　        B.Canvas.Handle, 0, 0, 0, 0, clNone, clNone, ILD_NORMAL);
　　//Conch
　　
　　
　　    end
　　    else
　　  {$ENDIF}
　　    if FMenuItem.Parent.GetParentMenu.Images nil then
　　    begin
　　      ImgListHandle := FMenuItem.Parent.GetParentMenu.Images.Handle;
　　      ImgIndex := FMenuItem.ImageIndex;

　　      B.Width := FMenuItem.Parent.GetParentMenu.Images.Width;
　　      B.Height := FMenuItem.Parent.GetParentMenu.Images.Height;
　　{Modify: Conch 2004-12-16 画出的图标透明颜色有错
　　      //B.Canvas.Brush.Color := FTransparentColor; //ACanvas.Pixels[2,2]; // +jt
　　      B.Canvas.Brush.Color := B.Canvas.Pixels[0, B.Height - 1];//"Todd Asher" ashert@yadasystems.com
　　      B.Canvas.FillRect(Rect(0, 0, B.Width, B.Height));
　　      ImageList_DrawEx(ImgListHandle, ImgIndex,
　　        B.Canvas.Handle, 0, 0, 0, 0, clNone, clNone, ILD_Transparent);
　　}
　　      ImageList_DrawEx(ImgListHandle, ImgIndex,
　　        B.Canvas.Handle, 0, 0, 0, 0, clNone, clNone, ILD_NORMAL);
　　//Conch
　　
　　

　　    end;

　　  end;
　　......
　　  if (B nil) and (B.Width 0) then  // X
　　    DrawIcon(FMenuItem, ACanvas, B, IconRect,
　　      Selected or DrawTopMenuBorder, False, FMenuItem.Enabled, FMenuItem.Checked,
　　      FTopMenu, FMenu.IsRightToLeft);
　　......
　　end;

（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/）

　　TXPMenu.ToolBarDrawButton的原因也是一样。
　　

　　procedure TXPMenu.ToolBarDrawButton(Sender: TToolBar;
　　  Button: TToolButton; State: TCustomDrawState; var DefaultDraw: Boolean);
　　begin
　　      if CanDraw then
　　      begin {CanDraw}
　　{Modify: Conch 2004-12-16  画出的图标透明颜色有错
　　       // B.Canvas.Brush.Color := TransparentColor; // ACanvas.Brush.Color; // +jt
　　        B.Canvas.Brush.Color := B.Canvas.Pixels[0, B.Height - 1];//"Todd Asher" ashert@yadasystems.com
　　        B.Canvas.FillRect(Rect(0, 0, B.Width, B.Height));
　　        ImageList_DrawEx(ImglstHand, Button.ImageIndex,
　　        B.Canvas.Handle, 0, 0, 0, 0, clNone, clNone, ILD_Transparent);
　　}
　　        ImageList_DrawEx(ImglstHand, Button.ImageIndex,
　　        B.Canvas.Handle, 0, 0, 0, 0, clNone, clNone, ILD_NORMAL);
　　//Conch
　　......
　　end;

　　
　　2、第二个问题是菜单的阴影太呆板，是固定的一层灰色块（当然是指WinXP以前的系统），如图：
　　
　　
　　菜单阴影是由TXPMenu.DrawWindowBorder函数绘制的。这里可以看到+jt进行过修改，不过+jt的注释方式有点特别，看不出那些在作者的原代码，那些是+jt改过的，不过可以肯定+jt下了不少苦功。这个函数把Windows来的那个3D边框去掉，变成平面的OfficeXP风格菜单。若果要改为像WinXP菜单的那种通过与背景像素混合的得到的阴影效果，必须对源码进行大改，但使用第三方控件目的是为了方便省事，如果那样做的话就太有违初衷了。因此我这里用了一种折衷的办法，把灰色面积减少，这样看起来就顺眼多了。最终效果如下图：
　　
　　修改后的TXPMenu.DrawWindowBorder函数：
　　procedure TXPMenu.DrawWindowBorder(hWnd: HWND; IsRightToLeft: boolean);
　　var
　　  WRect: TRect;
　　  dCanvas: TCanvas;
　　  wDC: HDC; // +jt

　　

　　 regiontype: integer; // +jt
　　 r1,r2,wr,region: HRGN; // +jt
　　 rgnr: TRect; // +jt
　　begin

　　  if (hWnd = 0) or (FSettingWindowRng) then
　　 begin
　　  exit;
　　 end;
　　// +jt
　　 wDC := GetWindowDC(hWnd); //GetDesktopWindow
　　 if wDC=0 then exit;
　　// +jt
　　  FSettingWindowRng :=true; // +jt
　　 dCanvas := TCanvas.Create;
　　 try
　　   dCanvas.Handle := wDC; // +jt
　　    GetWindowRect(hWnd, WRect);
　　  // +jt
　　   WRect.Right := WRect.Right-WRect.Left;
　　   WRect.Bottom := WRect.Bottom-WRect.Top;
　　   WRect.Top:=0;
　　   WRect.Left:=0;
　　    if GetWindowLong(hWnd,GWL_WNDPROC)integer(@MenuWindowProc) then
　　   begin
　　     SetWindowLong(hWnd,GWL_USERDATA,GetWindowLong(hWnd,GWL_WNDPROC));
　　     SetWindowLong(hWnd,GWL_WNDPROC,integer(@MenuWindowProc));
　　   end;
　　{Modify: Conch 2004-11-04 画出的阴影太难看了
　　    if not IsWXP then
　　   begin
　　      wr:= CreateRectRgn(0,0,0,0);
　　     regiontype := GetWindowRgn(hWnd, wr);
　　     GetRgnBox(wr,rgnr);
　　     DeleteObject(wr);
　　      if (regionType = ERROR) or (abs(rgnr.Right-WRect.Right)5) or (abs(rgnr.Bottom-WRect.Bottom)5) then
　　     begin
　　       region:= CreateRectRgn(0,0,0,0);
　　       r1:=CreateRectRgn(WRect.Left,WRect.Top,WRect.Right-2,WRect.Bottom-2);
　　       r2:=CreateRectRgn(WRect.Left+2,WRect.Top+2,WRect.Right,WRect.Bottom);
　　       CombineRgn(region,r1,r2,RGN_OR);
　　       DeleteObject(r1);
　　       DeleteObject(r2);
　　        SetWindowRgn(hWnd,region,true);
　　      end;
　　 // +jt
　　      Dec(WRect.Right, 2);
　　     Dec(WRect.Bottom, 2);
　　   end; // +jt
　　}
　　    dCanvas.Brush.Style := bsClear;
　　    dCanvas.Pen.Color := FMenuBorderColor;
　　   dCanvas.Rectangle(WRect.Left, WRect.Top, WRect.Right, WRect.Bottom);
　　    if IsRightToLeft then
　　   begin
　　      dCanvas.Pen.Color := FFIconBackColor;
　　     dCanvas.MoveTo(WRect.Right - 3, WRect.Top + 2);
　　     dCanvas.LineTo(WRect.Right - 2, WRect.Bottom - 1);
　　    end
　　   else
　　   begin
　　     dCanvas.Pen.Color := FFIconBackColor;
　　     dCanvas.Rectangle(WRect.Left + 1, WRect.Top + 2, WRect.Left + 3, WRect.Bottom - 1);
　　   end;
　　// +jt
　　       StretchBlt(dCanvas.Handle,WRect.Left + 1,WRect.Top + 1,WRect.Right - WRect.Left-1,2,
　　                  dCanvas.Handle,WRect.Left + 1,WRect.Top + 3,WRect.Right - WRect.Left-1,1,SRCCOPY);
　　        if IsWXP then
　　       begin
　　         StretchBlt(dCanvas.Handle,WRect.Left + 1,WRect.Bottom - 3,WRect.Right - WRect.Left-1,2,
　　                    dCanvas.Handle,WRect.Left + 1,WRect.Top + 3,WRect.Right - WRect.Left-1,1, SRCCOPY);
　　         dCanvas.Pen.Color := FFColor;
　　         dCanvas.Rectangle(WRect.Right - 3, WRect.Top+1, WRect.Right - 1, WRect.Bottom-1);
　　       end;
　　// +jt
　　{Modify: Conch 2004-11-04 画出的阴影太难看了
　　    Inc(WRect.Right, 2);
　　   Inc(WRect.Bottom, 2);
　　    if not IsWXP then // +jt
　　   begin // +jt
　　     dCanvas.Pen.Color := FMenuShadowColor;
　　     dCanvas.Rectangle(WRect.Left + 2, WRect.Bottom, WRect.Right, WRect.Bottom - 2);
　　     dCanvas.Rectangle(WRect.Right - 2, WRect.Bottom, WRect.Right, WRect.Top + 2);
　　   end; // +jt
　　}

（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/）

　　 finally
　　   ReleaseDC(hWnd, wDC); // +jt
　　   dCanvas.Free;
　　 FSettingWindowRng :=false;
　　 end;

　　end;

来源:http://www.tulaoshi.com/n/20160219/1611972.html

看过《修正XPMenu的两个Bug》的人还看了以下文章 更多>>

延伸阅读
猪蹄冻的两个做法
标签： 营养价值
猪蹄的做法有很多，不仅可以煲汤，还可以爆炒和炖煮，猪蹄还可以作为糕点食用。猪蹄冻就是其中一种，猪蹄冻的外表晶莹透亮，就像我们平时吃的果冻一样。猪蹄冻的做法就是将猪蹄切碎，加入调味料，加水经过长时间的熬制之后，然后冷却之后，就会凝结成果冻一样的食品了。 猪蹄冻的味道可口，口感香滑，颜色晶莹，像我们平时吃的果冻一...
coreldraw两个小技巧
标签： CorelDRAW 电脑应用
使用Tab键选择对象       Tab键选择对象的操作步骤如下 1. 选择挑选工具。 2. 按下键盘上的“Tab”键即可选择某个对象。 3. 不停地按下键盘上的“Tab”键，则系统会自动依照创建对象的顺序，从最后绘制的对象开始，依次选择对象。 ...
《部落战争》修正女武神攻击BUG
标签： 手机游戏 IOS
《部落战争》修正女武神攻击BUG COC《部落战争》服务器进行了一次短时间的维护，并且修复了以下这些问题。 1、女武神BUG修正：在一些特殊情况下，女武神不能攻击一些距离稍远的目标，这种可能性是存在，现在可以正常实现了。 2、部落对战，一场战斗开始之后45秒内，观看直播按钮可以使用，之前这个设定仅是30秒内。 3、设置选项里面的...
word xp的两个小技巧
标签： 办公软件
微软公司今年推出的办公软件office xp增添了更为强大的功能，其组件之一的word xp表现得更为不平凡，在这里我将向大家介绍两个使用它的小技巧。 1.变换菜单弹出方式。是不是觉得普通的菜单弹出方式太枯燥了，那就试一试改变一下吧。打开菜单“视图\工具栏\自定义”，在“自定义”对话框中选择“选项”项，然后你就会在“其他”中看到“菜...
两个用眼霜的好习惯
标签： 美容
大部分人早就培养起用眼霜的习惯，但也许眼袋和黑眼圈的冲击力更大一些，所以我们涂抹眼霜的范围大多是沿着下眼睑进行的，眼角最多只是“一带而过”。所以就形成了眼袋比外眼角受重视，外眼角比内眼角受重视的现状。 两个用眼...
查看更多精彩>>
xiaojianxj520 xiaojianxj520

经验教程

994

收藏

52
最新文章
编程语言 编程语言综合

精华推荐

两个用户体验的误区例子

两个用户体验的误区例子

一哥阳王

计算两个时间之差的函数

计算两个时间之差的函数

阿水8788

Windows的两个另类小技

Windows的两个另类小技

OP2S1G

热门标签

编程语言 高级语言 C语言 网络编程 Linux编程 C语言函数 编程器 语言程序设计 汇编语言 计算机语言 儿童语言障碍 C语言教程 语言表达能力 新手挑选眼影的两个准则 两个时间点纹眉恢复快 怀孕两个月 热天不推荐纹眉这两个原因需要了解 坐着瘦腿的五个方法 电熨斗挑选的五个重点 秋天吃南瓜的四个好处
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部