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

修正XPMenu的两个Bug

2016-02-19 16:24 23 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;

　　很明显，除了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;

　　TXPMenu.ToolBarDrawButton的原因也是一样。
　　

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

　　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

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

　　  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
　　}

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

　　end;

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

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

延伸阅读
coreldraw两个小技巧
标签： CorelDRAW 电脑应用
使用Tab键选择对象       Tab键选择对象的操作步骤如下 1. 选择挑选工具。 2. 按下键盘上的“Tab”键即可选择某个对象。 3. 不停地按下键盘上的“Tab”键，则系统会自动依照创建对象的顺序，从最后绘制的对象开始，依次选择对象。 ...
猪蹄冻的两个做法
标签： 营养价值
猪蹄的做法有很多，不仅可以煲汤，还可以爆炒和炖煮，猪蹄还可以作为糕点食用。猪蹄冻就是其中一种，猪蹄冻的外表晶莹透亮，就像我们平时吃的果冻一样。猪蹄冻的做法就是将猪蹄切碎，加入调味料，加水经过长时间的熬制之后，然后冷却之后，就会凝结成果冻一样的食品了。 猪蹄冻的味道可口，口感香滑，颜色晶莹，像我们平时吃的果冻一...
两个用户体验的误区例子
标签： 平面设计 海报设计 广告设计 画报设计 签名设计 服装设计 名片设计 画册设计 版式设计 商标设计
一直不赞成把用户体验精英化，所谓的用户体验就是研究 普通用户 在使用产品中遇到的问题，这里的普通用户是指你的最大目标用户群体，他们可能很高端、也可能非常低端，这是用户研究中间常常会陷入的误区。 用户体验也没有那么高深，其实就是从用户的角度去体验产品、发现问题，一个熟练使用互联网的小学生、农民工都能完成，从这个角度来说用...
计算两个时间之差的函数
标签： ASP
  '****************************** '||Function TimeDiff(sBegin, sEnd) '||本函数计算两个时间的差，可以不用更改直接使用 '||作者：machinecat 2001/10/26 '****************************** '****************************** '注：首先需要判断用户输入的sBegin与sEnd之间的大小 '可以通过DataDiff函数获得两者之间的时间差，不需要进...
Windows的两个另类小技
标签： windows 操作系统
★紧急情况下的临时“防火墙” 一台接入因特网的电脑中了木马，其中所有硬盘都被设为共享。在杀除木马前，如果不想与他人共享你的资源，更不想被破坏，有一种简便的方法：在“控制面板→管理工具→服务”中用右键点击“Server”，选择“属性”，在“启动类型”中选择“已禁用”，确定后，重启电脑即可立即禁用所有共享。 ★Wind...
查看更多精彩>>
xiaojianxj520 xiaojianxj520

经验教程

888

收藏

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

精华推荐

宝宝成长的两个“麻烦”阶段

宝宝成长的两个“麻烦”阶段

莎莎a7A星

iphone怎么装两个qq

iphone怎么装两个qq

zlj361112708

两个排毒瑜伽动作

两个排毒瑜伽动作

一直坚持的星星

热门标签

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