笔宽不是1的画矩形的问题(50分)

S

sw7309

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #1

imgXy.Canvas.Pen.Width := 16;
imgXy.Canvas.Pen.Color := ForColor;
imgXy.Canvas.Pen.Style := psSolid;
imgXy.Canvas.Polyline([points]);
用上述代码画出的矩形四个角是圆弧形,有没有办法使四个角变成直角

 

C

china_bill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #2

procedure Rectangle(x1,y1,x2,y2:integer);

 

S

sw7309

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #3

但rectangle是填充的,我不要填充,只要画一个矩形

 

X

xyf2001721

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #4

imgXy.Canvas.Pen.Width := 3;
imgXy.Canvas.Pen.Color := clRed;
imgXy.Canvas.Pen.Style := psclear;
imgXy.Canvas.Rectangle(x1,y1,x2,y2);

 

P

plane822

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #5

Adv.Canvas.pen.Color := clred;
Adv.Canvas.Pen.Width := 3;
Adv.Canvas.MoveTo(rect.Left, rect.Top);
Adv.Canvas.LineTo(rect.Right, rect.Top);
Adv.Canvas.LineTo(rect.Right, rect.Bottom);
Adv.Canvas.LineTo(rect.left, rect.bottom);
Adv.Canvas.LineTo(rect.left, rect.top);
办法笨一点，效果不差呀

 

Y

yanglibo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-30

• #6

自己创建一个Pen, HPen的style参数 PS_ENDCAP_SQUARE 或 PS_ENDCAP_FLAT。然后把一个
TPen的handle 设为Hpen就可以了。

 

还

还是朋友

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-30

• #7

>>>但rectangle是填充的,我不要填充,只要画一个矩形
可以加上此句呀Canvas.Bursh.Style := bsClear;

画出的矩形就不填充了。

 

S

sw7309

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-30

• #8

多人接受答案了。