0

Devexpress のグリフ画像で D2007 と TcxButton を使用していますが、どの画像でも同じである必要があります。ボタンには 2 つの状態があり、2 番目の状態では、元の画像の上にオーバーレイを描画します。したがって、この場合、Main と呼ばれる 1 つの 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;

だから私はメイン画像とオーバーレイが同じ Imagelist にある必要があると思いますか? 今ではコンパイルさえしません。

[DCC エラー] Unit6.pas(41): E2250 これらの引数で呼び出すことができる 'DrawOverlay' のオーバーロードされたバージョンはありません

編集：

提案された解決策を試しました。コンパイルしましたが、何も起こりませんでした。プロジェクトへのリンクは次のとおりですhttps://www.dropbox.com/sh/tk5n7frkbveyxbz/D1O4Ags9fS/Overlay

4

1 に答える 1

2

GetBitmap で使用する前に、ビットマップを作成する必要があります。Overlay
を 使用して、リスト内の画像の 1 つにオーバーレイ インデックスを割り当てる必要があります。 

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;
于 2013-05-03T07:22:30.343 に答える