在图片上画一个圈(50分)

A

anbncnfn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-18

• #1

我想在图片上画一个小圆圈，标出一个位置，用如下代码：
var
Bmp:TBitmap;
Bmp:=TBitmap.Create;
Bmp.LoadFromFile(Filename);
Bmp.Canvas.Ellispe(x1,y1,x2,y2);//运行出错了
怎么这样不行呢？是不是还需要初始化一些参数呢？

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-18

• #2

我用下面代码试了,好象没问题.
procedure TForm1.Button1Click(Sender: TObject);
var
Bmp:TBitmap;
begin
Bmp:=TBitmap.Create;
Bmp.LoadFromFile('c:/a.bmp');
Bmp.Canvas.Ellipse(10,10,100,100);//运行出错了
Image1.Picture.Bitmap:=Bmp
end;

 

W

westwind2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-18

• #3

X1，Y1，X2，Y2需要初始化，同时你还需要初始化一些CAVAS属性，如画笔。

 

S

spacepoint

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-18

• #4

可以这样：
procedure TForm1.Button1Click(Sender: TObject);
var
Bmp:TBitmap;
begin
Bmp:=TBitmap.Create;
Bmp.LoadFromFile('c:/a.bmp');
Image1.Picture.Bitmap:=Bmp;
Image1.Canvas.pen.color:=clRed;//定义画笔颜色
Image1.Canvas.Ellipse(x1,y1,x2,y2);//在Image1上画圈
end;

 

A

anbncnfn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-19

• #5

谢谢大家