我想用canvas画一条粗的虚线，我的代码怎么不行啊？(30分)

X

xiaoxiami2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #1

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image1.Canvas.Pen.Width:=2;
image1.Canvas.Pen.style:=psdot;
image1.Canvas.MoveTo(10,10);
image1.Canvas.lineTo(x,y);

end;

 

C

ColdBlood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #2

image1.Canvas.Pen.Width:= 1; <------------ 这样就可以看出效果了 []
image1.Canvas.Pen.style:= psDot;
image1.Canvas.MoveTo(10,10);
image1.Canvas.LineTo(x,y);

 

火

火龙真人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #3

或许你笔的颜色和IMAGE的背景色一样了可以把PEN颜色改下
image1.Canvas.Pen.Color:=clred;改成红色
不过你每次MOUSE移动都会触发哦，记得把上一次画的清掉

 

H

Huzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #4

DELPHI中PEN的Width>1时Style会失效

 

X

xiaoxiami2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-11

• #5

多人接受答案了。