Delphi TSpeedButton 字形透明度

Question

我目前正在使用一个名为 TdsTaskBar 的组件，它打算像 Windows 中的 TaskBar 一样工作，这意味着所有打开的窗口（但现在在我的应用程序中）都列为我的应用程序窗口底部的按钮。这个按钮是 TSpeedButtons。 现在我已经更改了我自己窗口的图标，这些图标总是通过 SpeedButtons 的字形显示。问题是，透明度不起作用。

我知道左下角像素定义的透明度颜色，但这不是我的问题。问题是，当更改活动窗口然后将鼠标悬停在按钮上时，字形的透明区域会显示“随机”图像伪影而不是按钮背景。这会将背景更改为当前活动窗口的图标，但会有些失真。

我不知道这些工件是如何到达那里的，但我确信它不是来自 TdsTaskBar-/TdsTaskButton-Component，因为我检查了所有与绘画相关的程序。

有人知道如何解决这个问题吗？我已经考虑过自己绘制背景，但因此我需要知道这个字形背后的实际按钮颜色，这是我不确定如何弄清楚的另一件事。

---

这里是指定字形的代码sn-p，绘图由标准Vcl SpeedButton Code处理：

procedure TTaskBarButton.AssignGlyphIcon;
var
  GlyphIcon: TIcon;
  b: TBitmap;
begin
  if TForm(owner).Icon.Empty then
    GlyphIcon := Application.Icon
  else
    GlyphIcon := TForm(owner).Icon;

  b := TBitmap.create;
  try
    b.Width := GlyphIcon.Width;
    b.Height := GlyphIcon.Height;
    b.Canvas.Brush.Color := b.TransparentColor;    // This two lines were added by me
    b.Canvas.FillRect(b.ClipRect);         // so that the background of my "helper" bitmap is transparent, too
    b.Canvas.Draw(0,0, GlyphIcon);
    Glyph.Width := 16;
    Glyph.Height := 16;
    Glyph.Canvas.StretchDraw(Rect(0, 0, 16, 16), b);
  finally
    b.free;
  end;
end;

Answer 1

您必须擦除字形背景。

这是一个示例代码，应该可以完成这项工作

procedure TTaskBarButton.AssignGlyphIcon;
var
  b: TBitmap;
  r: TRect;
begin
  b := TBitmap.create;
  try
    if TForm( Owner ).Icon.Empty then
      b.Assign( Application.Icon )
    else
      b.Assign( TForm(Owner).Icon );

    r := TRect.Create( 0, 0, 16, 16 );
    Glyph.Width := r.Width;
    Glyph.Height := r.Height;
    // clear the background
    Glyph.Canvas.Brush.Color := Glyph.TransparentColor;
    Glyph.Canvas.FillRect( r );
    // draw the icon
    Glyph.Canvas.StretchDraw( r, b );
  finally
    b.free;
  end;
end;

Answer 2

找到解决方案：TdsTaskBar（它是一个 TCustomPanel）将 DoubleBuffered 默认设置为 false。按钮继承此设置。将其更改为 true 即可解决问题。

因此，DoubleBuffering 似乎影响了按钮透明度的功能。