Problemas Canvas para un Paint VCL
 

Hola Colegas:

Estoy tratando de hacer un paint en Delphi XE2 para VCL, y estoy usando para pintar la propiedad canvas de un TImage, en el cual con las funciones LineTo, pinto una linea, el tema es el siguiente; cuando tengo el TImage limpio, o sea sin una imagen todo funciona de maravilla, pero cuando intento hacer los mismo con una imagen de fondo o sea con una imagen asinada con Image1.Picture.LoadFromFile (bmp), el tema es que me sigue pintando pero a la medida que me alejo de la posicion inicial del TImage (0,0) el trazo del dibujo se aleja de la posicion real del mouse y estoy pintando usando las cordenadas que me da el evento OnMouseMove, o sea Pinto desde el origien hasta mis cordenadas actuales X,Y. Alguien sabe porqué sucede esto?

Cómo lo estás haciendo? Quiero ver código

Saludos!

Bienvenido a clubdelphi,yasnielmh, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.

Como dice Chris, pon el código, no somos adivinos :)

Y recuerda poner los tags al código fuente, ejemplo:




.