Bitblt

解決

---

また質問させてもらいます。
BitbltでのBitmapの表示の仕方を
ご存知でしたら教えてください。

編集    削除

---

DelphiにはTBitmapのDrawメソッドなど、同様の便利なメソッドがありますが、それらを使わないんですか？

  使いたくないんだとしても、情報はすぐに見つかるはずなので、インターネットで検索してください。


  それから、質問が解決したら、ちゃんと"解決"マークをつけてくださいね。

編集    削除

---

TCanvas の Draw メソッドが BitBlt() と同じです。
描画先が Canvas を持っているときは Draw() メソッドを使ってください。

以下の例は、どちらも同じ実行結果を与えます。

// TCanvas.Drawメソッドの例
procedure TForm1.Button1Click(Sender: TObject);
var
  BMP:TBitmap;
begin
  BMP := TBitmap.Create;
  try
    BMP.LoadFromFile('c:\Test.bmp');
    Canvas.Draw(10,10,BMP);
  finally
    BMP.Free;
  end;
end;

// BitBlt() の例
procedure TForm1.Button2Click(Sender: TObject);
var
  BMP:TBitmap;
begin
  BMP := TBitmap.Create;
  try
    BMP.LoadFromFile('c:\Test.bmp');
    BitBlt(Canvas.Handle,10,10, BMP.Width,BMP.Height,
           BMP.Canvas.Handle,0,0,SRCCOPY);
  finally
    BMP.Free;
  end;
end;

編集    削除

---

すいません、
解決はどうやってつければよいでしょうか。

編集    削除

---

Bitbltでということですので、参考までに。
調べるときはAPIのGetDC、ReleaseDCを調べるとよいでしょう。

編集    削除

---

Halbow です。

>  解決はどうやってつければよいでしょうか。

えーと、書き込むときのすぐ上にある

←解決時は質問者本人がここをチェックしてください。

のチェックボックスをチェックします。

編集    削除

---

解決しました。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。