Dibujar línea

[dicatek]

Hola estoy creando un pequeño ejemplo para dibujar una línea y poder escoger el ancho y color de la línea.

De momento tengo en el form un botón para crear la línea y para escoger el color de la línea (aunque creo que hay algun error. ya que no siempre me sale el color escogido ni cuando quiero)

habe si alguna alma caritativa se mira mi "proyecto" y consigue echarme una mano en el error del color y el tamaño de la línea.

Muy agradecido,

Dicatek

[Acanol]

No tengo mucho tiempo asi que te envio lo que he podido mirar Pruebalo y comenta...

[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!

[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...

[dicatek]

Hola Acanol! Vaya currada te has echo. Muchas gracias! Lo que has colgado si que me sirve todo excepto lo de pintar las lineas. Mi intención de la aplicación era crear las agujas de un barómetro para medir la presión y de allí la inclinación de la linea.

He pensado y creo que el sistema de los Tedits va a ser complicado por el usuario y seria mejor usar un Trackbar y a medida que lo varie, cambie la inclinación de la linea.

Quizás fuera más practico algun otro sistema que modificando

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

¿Algo de trigonometria?

¿Que me sugieres?

[Acanol]

Muy buenas Dicatek, perdona por no contestarte pero anoche llegue muy tarde a casa y no tube tiempo de mirar el foro. A tu pregunta siento no poder darte una respuesta, ya que en eso de los barometros no estoy nada puesto, jeje, lo unico que se me ocurre ahora mismo es que cojas una coordenada que sera el punto central a partir de la que saldran todas las lineas, ahora aplicando trigonometria obtendriamos una serie de puntos has los que tendrian que salir cada una de estas lineas en funcion de su valor.. como sinceramente no controlo esto muy bien te adjunto un ejemplo de como crear un reloj en el que en el txt que viene con el ahi una parte que te explica la parte trigonometrica del reloj que yo creo que se podria aplicar a lo que tu necesitas (habria que cambiar una serie de valores), exale un vistazo y me dices que tal, el apartado que creo que puede servir se titula "De Aritmética". Esta un txt. Un saludillo y buenas noches...

P.D: ostia que largo me ha salio esto... (el ejemplo no es mio eh)

[Acanol]

wop wop, 3 dias que no se nada de ti me estoy preocupando tal vez te haya tragado la pantalla del pc al intentar hacer mi ejemplo jejejeje ... como vas? lo has resuelto?

[dicatek]

Ei hola Acanol!

No la verdad es que no continué más, ahora estoy en un hotel de Bélgica que curiosamente tiene conexion wireless. A la vuelta continuaré con el trabajo, de momento descansar un poco, y si no nos volvemos a ver, que vayan bien las vacaciones!

[Acanol]

Bueno pues disfrutas de las vacaciones... joder con la peña que lejos se va. XDD un saludillo.