关于贝塞尔曲线的问题,和在form上画图怎么保存成bmp文件. ( 积分: 150 )

M

mike1031

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-05

• #1

我在Image上画的话,
point[0].x:=0; point[0].y:=104;
point[1].x:=90; point[1].y:=184;
point[2].x:=210; point[2].y:=208;
point[3].x:=315; point[3].y:=216;
Image1.Canvas.PolyBezier(point);
Image1.Picture.SaveToFile('11');
显示的是一条曲线和一条直线在第四点相交.是什么原因啊?是我写的不正确.
如果改在Form上显示的话就是和上面的一样的一条直线.这是我想要的,可是form上
画的图像怎么才可以保存为文件了.
请高手指教,谢谢.

 

M

mike1031

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-05

• #2

我在Image上画的话,
point[0].x:=0; point[0].y:=104;
point[1].x:=90; point[1].y:=184;
point[2].x:=210; point[2].y:=208;
point[3].x:=315; point[3].y:=216;
Image1.Canvas.PolyBezier(point);
Image1.Picture.SaveToFile('11');
显示的是一条曲线和一条直线在第四点相交.是什么原因啊?是我写的不正确.
如果改在Form上显示的话就是和上面的一样的一条直线.这是我想要的,可是form上
画的图像怎么才可以保存为文件了.
请高手指教,谢谢.

 

W

Walnut_Tom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-05

• #3

曲线不懂，form上画的图像copy出来然后写到文件里边。

 

K

kerbcurb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-05

• #4

使用GetFormImage()可以得到Form上的图形，然后保存就可了
比如：
procedure TForm1.Button1Click(Sender: TObject);
var
FormImage : TBitmap;
begin
FormImage := GetFormImage();//得到Form上的图形（1）
Image1.Picture.Assign(FormImage);//（2）
Image1.Picture.SaveToFile('C:/Temp.bmp');//保存Image1上的图形为BMP格式文件
end;
如果只是保存Image1上图形，（1）（2）可以不要

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-05

• #5

在Image上测试了，是对的啊 。

 

M

mike1031

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-06

• #6

谢谢大家,已经解决.

 

M

mike1031

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-06

• #7

多人接受答案了。