Dibujar línea

[Acanol]

MUy buenas, he mirado tu codigo y por lo que veo tambien quieres dibujar cuando pulsas con el raton en el paintbox... eso ya funciona... lo que comentas del:

Código Delphi [-]
 
 Canvas.LineTo(edit1.text,50);
Te falta pasar el texto a numero:
 Canvas.LineTo(StrToInt(edit1.text),50);

Lo de la inclinacion de la linea te he puesto lo que tu habias pensado...si me explicas que finalidad tiene tu aplicacion a lo mejor te puedo dar algun consejo. Un saludo y espero te resulte util.

P.D: te he puesto un boton "Aplicar propiedades" con el se cambian las caracteristicas a la hora de dibujar con el raton. (Selecciona color y tamaño pulsa "Aplicar Propiedades" y pinchas sobre el paintbox, arrastra y compruebalo.

Miralo y comenta...