Question

我使用D2007和TcxButton以及来自Devexpress的字形图像，但对于任何图像都应该是相同的。按钮有2个状态，在第二个状态我想在原始图像上绘制一个叠加。所以在这种情况下，我有一个名为Main的Imagelist。主图像存储在索引0上，叠加层存储在索引1上。我做了一个小的测试项目，但是没有让它工作：

procedure TForm6.CheckBox1Click(Sender: TObject);
var
  vBm: TBitMap;
  vOverlay: TOverLay;
begin
  if Main.GetBitmap(0, vBm) then
  begin
    vOverlay := 1;
    if CheckBox1.Checked then
    begin
      // procedure DrawOverlay(Canvas: TCanvas; X, Y: Integer;  ImageIndex: Integer; Overlay: TOverlay; Enabled: Boolean = True); overload;
      Main.DrawOverlay(vBm.Canvas, 0, 0, vOverlay, True);
    end
    else
    begin
      Main.DrawOverlay(vBm.Canvas, 0, 0, vOverlay, False);
    end;
  end;
end;

所以我假设主图像和叠加必须在同一个图像列表中？现在它甚至没有编译，我得到了

[DCC错误] Unit6.pas（41）：E2250没有可以使用这些参数调用的'DrawOverlay'的重载版本

修改

尝试了建议的解决方案。它编译但没有任何反应。以下是项目https://www.dropbox.com/sh/tk5n7frkbveyxbz/D1O4Ags9fS/Overlay

的链接

Answer 1

在将其与GetBitmap一起使用之前，您必须先创建一个位图您必须使用Overlay为列表中的一个图像指定叠加索引。

var
  vBm: TBitMap;
  vOverlay: TOverLay;
begin
  vBm:= TBitMap.Create; // create Bitmap before using GetBitmap
  try
  if Main.GetBitmap(0, vBm) then // can be done but will be painted over by DrawOverlay
  begin
    vOverlay := 1; // use eg. 1 of the possible 4 indices (0..3)
    Main.Overlay(1,vOverlay); // define second image in List to overlay index 1 to enable it as overlay image
    if CheckBox1.Checked then
    begin
      Main.DrawOverlay(vBm.Canvas, 0, 0, 0 , vOverlay, True);
    end
    else
    begin
      Main.DrawOverlay(vBm.Canvas, 0, 0,0, vOverlay, False);
    end;

    //TheButton.Glyph.Assign(vBm);
  end;
  finally
    vBm.Free;
  end;
end;

如何使用TImageList.DrawOverlay？

1 个答案: