Dibujar sobre una imagen.

[oregon]

Muchas gracias fjcg02,

POr lo que me cuentas tiene muy buena pinta. Sin embargo, tengo un pequeño problema. Trabajo con Turbo Delphi, y no puedo instalar componentes externos. Por eso, cuando intento compilar me dan error todos los componentes JV. ¿te importaría pasarme un ejecutable para ver como funciona? Así de paso te puedo hacer de "Beta-tester"
Mientras tanto me llevo el código fuente para repasarlo a fondo este largo fin de semana.

Respecto a mi aplicación, la verdad es que va muy retrasada, pero no tengo problema en dejarlo aquí para que puedas aprovechar algo. Si es que puedes aprovechar algo del código de un principiante como yo. Ahora no lo tengo aquí, pero lo dejaré lo antes posible.

Muchas gracias de nuevo fjcg02.
Un saludo,

[[fjcg02]]

oregon,
no tengo problemas para pasarte el ejecutable, pero pesa un mega, y en esta página no se permiten archivos de ese tamaño. Si me indicas cómo hacertelo llegar, no tengo ningún problema.
Por otro lado, el unico objeto JV que tengo es un JvDBImage, para visualizar los jpgs de la bbdd y/o cargarlos. Lo que ocurre que el Tdbimage no me permite cargar jpg's directamente. Si cambias ese objeto, y 'trampeas' lo que esté asociado a él, no tendrás problemas en utilizar el código para compilar.
Por otro lado, he conseguido pintar las líneas de referencia sin problemas ( cuadricula sobre la foto) para tener referencias.
Espero que puedas darle caña al tema y que te valga el resto en caso de que no puedas compliar.
Un saludo
Por cierto, es un placer ayudar a cualquiera. He sido visitante de ese foro y he aprendido mucho, pero hasta hace poco casi no preguntaba ni intervenía. Parece que la edad me quita la timidez.

[[fjcg02]]

Sin ánimo de ser pesado, me está ocurriendo un pequeño contratiempo.
He incluido en mi programa el escalado de la ortofoto que visualizo utilizando tpegimage().scale.
el timage está en un scrollbox.
Cuando la imagen está visualizada a 1:8 o 1:4 se visualiza entera, y no hay problemas cuando pinto los lugares.
Cuando está a 1:2 o a 1:1 la imagen no 'cabe' en el formulario, por lo que se activa el scroll, mientras se visualiza la esquina superior izquierda, funciona ok, pero cuando se activa el scroll, me descuadra los puntos que pinto, y al hacer el scroll seguido, me hace un efecto un poco raro.
Llevo un rato rompiendome la cabeza, y aunque las coordenadas x,y del timage donde supuestamente pinto el punto son las correctas, me lo pinta desplazado.

Datos:
Timage mostrando una ortofoto (jpg)
TPaintBox de las mismas dimensiones y posición que el timage que es donde pinto. Cada vez que redimensiono el timage, doy las mismas dimensiones al tpaintbox. Estos dos objetos están en un tscrollbox.

Os adjunto una imagen del problema por si os sirve de ayuda. Esto ocurre cuando clicko en la flecha de desplazamiento varias veces. La primera vez que pinto, si no hago scroll, se pinta tal y como debe ser.

Agradezco cualquier ayuda que puedan darme.
Un saludo

[[fjcg02]]

Tras dar más vueltas de lo necesario, he encontrado el porqué de mi error. Como tengo la cabeza muy dura, no me he dado cuenta hasta ahora de que en los calculos de coordenadas utm a ratón , utilizaba tamaño - izquierda. Cuando haces scroll, la izquierda y/o el top son negativos, por lo que me desvirtuaba las coordenadas.
Arreglado.

Gracias por vuestra ayuda de todas maneras, ya que aunque este problema no me lo habeis solucionado sí que me habeis ayudado en muchos otros.

Un saludo

[master2009]

Buenas noches amigo, tengo un problemilla q por lo q lei en los hilos, lo resolvieron, pero tengo un detalle, yo uso builder 6. Mi problemilla es lo siguiente, como hago parq dibujar una figuea en tiempo real y poder moverla sobre la pantalla? Les agradeceria su amable atencion.
Saludos

[Casimiro Noteví]

Empezado por master2009

Buenas noches amigo,

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración