Delphi 7,如何将Paintbox内容复制到Tbitmap？

发布时间：2020-12-15 09:40:10 所属栏目：大数据来源：网络整理

导读：我正在研究delphi 7,我想如何将TpaintBox的内容复制/分配给Tbitmap？像这样 public { Public declarations } BitMap : TBitmap; end; 我有一个声明为公共的Tbitmap,我像这样创建onFormCreate procedure TForm1.FormCreate(Sender: TObject); begin BitMap :

我正在研究delphi 7,我想如何将TpaintBox的内容复制/分配给Tbitmap？

像这样

public
  { Public declarations }
   BitMap     : TBitmap;
 end;

我有一个声明为公共的Tbitmap,我像这样创建onFormCreate

procedure TForm1.FormCreate(Sender: TObject);
      begin
      BitMap     := TBitMap.Create;
      end;

然后我像这样在位图上绘制一些东西

procedure TForm1.DrawOnPainBox;
        begin
         If BitMap.Width  <> PaintBox1.Width  then BitMap.Width  := PaintBox1.Width;
         If BitMap.Height <> PaintBox1.Height then BitMap.Height := PaintBox1.Height;
         BitMap.Canvas.Rectangle(0,random(PaintBox1.Width ),random(PaintBox1.Height));
         PaintBox1.Canvas.Draw(0,BitMap);
        end;

with PaintBox1.Canvas.Draw(0,BitMap);我们可以在一个paintbox中显示Bitmap中的内容但是相反的方法是什么？

如何将一个paintbox的内容分配/复制到位图？

`BitMap:=PaintBox1.Canvas.Brush.Bitmap;`

这编译,但如果我这样做,再次调用过程TForm1.DrawOnPainBox;我得到访问违规和调试器显示位图和PaintBox1.Canvas.Brush.Bitmap即使在paintBox上绘制了一些行

解决方法

要将TPaintBox的内容(让我们称之为PaintBox1)分配给TBitmap(比如说Bitmap),你可以做

Bitmap.Width := PaintBox1.Width;
Bitmap.Height := PaintBox1.Height;
BitBlt(Bitmap.Canvas.Handle,Bitmap.Width,Bitmap.Height,PaintBox1.Canvas.Handle,SRCCOPY);

注意：在较新版本的Delphi中,您可以使用Bitmap.SetSize而不是Bitmap.Width和Bitmap.Height.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!