踢
踢你PP
Unregistered / Unconfirmed
GUEST, unregistred user!
下面是代码，画出的线不连贯，都是一个个的圆点，除非鼠标移动很慢，请问如何解决。
代码:
procedure TForm1.Image2MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
bdrawing:=true;
end;
procedure TForm1.Image2MouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
begin
if(bdrawing)then
begin
image2.Canvas.Brush.Color :=clblack;
image2.Canvas.Pen.Color :=clblack;
image2.Canvas.Ellipse(x-3,y-3,x+3,y+3);
end;
end;
procedure TForm1.Image2MouseUp(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
bdrawing:=false;
end;