image.picture怎么到图一个图像阿(100分)

  • 主题发起人 主题发起人 zsy_good
  • 开始时间 开始时间
怎么得到一个图像,我不会写这个程序
 
image.picture.loadformfile()
 
image.picture可以利用其中的bitmap来作图
 
要复制一个位图,可以用TBitmap.Assign()方
法:

Bitmap1.Assign(Bitmap2);

也可以从一个TBitmap的实例中复制位图的一部
分给另一个,还可以使用CopyRect()方法复制给
窗体的画布。

var

R1:Trect;

begin

with R1 do

begin

Top:=0;

Left:=0;

Right:=BitMap2.Height div 2;

Bottom:=BitMap2.Height div 2;

end;

Bitmap1.Canvas.CopyRect(ClientRect,BitMa
p2.Canvas,R1);

end;

上面的代码中,先给TRect记录中的每个字段赋
值,然后调用TCanvas .CopyRect()复制位图的
一部分,TRect是这样定义的:

TRect=record
Case Integer of
0:(Left,Top,Right,Bottom:Integer);
1:(TopLeft,BottomRight:TPoint);
end;
 
例如:
image.picture.loadformfile(openpicturedialog1.filename);
image1.picture.bitmap.assign(bitmap2);
 
很简单!除非我理解错了。
 
后退
顶部