修正XPMenu的两个Bug

最新推荐文章于 2024-09-20 12:49:47 发布

nhconch

最新推荐文章于 2024-09-20 12:49:47 发布

阅读量2.2k

点赞数

分类专栏： Dephi&BCB 文章标签： imagelist integer button windows 工具

本文链接：https://blog.csdn.net/nhconch/article/details/221573

版权

文章详细介绍了在使用XPMenu控件时遇到的两个问题：一是菜单和工具栏图标绘制时，白色部分被误认为透明色导致图像缺损；二是菜单的阴影效果过于单一。作者通过分析源码，找到了+jt修改导致的问题，并提出了修正方案，成功改进了图像显示和阴影效果，使其更符合WinXP的视觉风格。

摘要由CSDN通过智能技术生成

　　XPMenu是大名鼎鼎的Dephi第三方界面控件，最近在使用中发现了几个Bug，并对其中的两个进行修正。

1、首先，是绘制菜单和工具栏图标时，会将图像白色部分作为透明色，导致图像缺损非常难看，如下图所示：
XPMenu图标透明Bug示图
　　查看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
    begi