lineto划直线

procedure TForm1.DrawLine(x, y: Integer);
begin
  Self.Canvas.MoveTo(20,20);
  Self.Canvas.LineTo(x,y);
end;

你可能感兴趣的:(lineto划直线)