[dicatek]

Olé Acanol es justo lo que queria hacer!

Ahora estoy probando de hacer para alargar o reducir el "largo de la línea". Para ello, he puesto un edit más con su updown, queriendo que lea el número del edit y lo ponga en:

Código Delphi [-]
procedure TForm1.Button7Click(Sender: TObject);
begin
  with paintbox1 do
    begin
      Canvas.Pen.Width:= strtoint(Etam.Text);
      Canvas.Pen.Color:= colorbox1.Selected;
      Canvas.MoveTo(50,50);
      Canvas.LineTo(edit1.text,50);
   end;

¿Como es que me dá error?

Tambien estoy probando de hacer una opción que permita inclinar la línea. Para ello, tengo pensado hacerlo modificando el valor de

Código Delphi [-]
Canvas.LineTo(edit1.text,50);

¿Que me recomendais?

Gracias!