アーティクル

#99 Article 740 Posted at 1993/06/06 15:08:07 by Mai (MAP2260) [TPW.Q]

Subject: HELP! TP for Win

ＴＰＷを使ってビットマップハンドル(BitmapHandle)のコピーを作ろうと、
下のようなプログラムを書いてみたのですが、どうもうまくいきません。

Procedure TMyWindow.Copy(var TMsg:THandle);
var
   OrgDC,DestDC:hDC;
   CopyBitmapHandle:hBitmap;
begin
   OrgDC :=CreateDC('Display',nil,nil,nil);
   DestDC:=CreateCompatibleDC(OrgDC);
   CopyBitmapHandle:=CreateCompatibleBitmap(OrgDC,MagX,SizeY*Magnify);
   SelectObject(OrgDC,BitmapHandle);
   SelectObject(DestDC,CopyBitmapHandle);
   BitBlt(DestDC,0,0,MagX,SizeY*Magnify,
          OrgDC ,0,0                   , SrcCopy);
   DeleteDC(OrgDC);DeleteDC(DestDC);
end;

どなたか、どうすればいいのか教えてください。

Ｍａｉ