bitblt函数
把bit1上的位图拷贝给bit2
bit1,bit2分别放在panel1,panel2上,但点button2,却没有图出现
向各位大虾请教,因为我对bitblt函数还不太了解
var
bit1:Tbitmap;
cs1,cs2:Tcanvas;
procedure TForm1.FormCreate(Sender: TObject);
begin
bit1:=tbitmap.Create;
bit1.Width:=panel1.ClientWidth ;
bit1.Height:=panel1.ClientHeight ;
cs1:=Tcanvas.Create;
cs2:=tcanvas.Create;
cs1.Handle:=Getdc(panel1.Handle);
cs2.Handle:=getdc(panel2.Handle);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
bit1.Canvas.Pen.Width:=2;
bit1.Canvas.Pen.Color:=clred;
bit1.Canvas.MoveTo(0,0);
bit1.Canvas.LineTo(10,10);
cs1.Draw(0,0,bit1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
bitblt(cs2.Handle,panel2.Left,panel2.Top,bit1.Width,bit1.Height,bit1.Canvas.Handle,panel1.Top,panel1.Height,SRCCOPY); //感觉这里面的参数我设置的很混乱,怎么设置才是正确的?
end;