Si solo tienes que marcar y listo (no tienes que deshacer lo pintado, ni mover ni nada de eso), lo puedes hacer con el TImage en el evento MouseDown y accediendo a Image1.Picture.Bitmap.canvas.Ellipse(....)
Ellipse te permite dibujar un círculo o elipse; también tienes cuadrados, Lineas, etc.
Si tienes que borrar los puntos para permitir deshacer o algo así, te recomiendo pongas 2 TImages superpuestos, en el de abajo cargas la imagen. En el de arriba, le pones Transparent a True en el inspector de objetos y pintas en él. Así si tienes que borrar, haces un Clear del image de arriba. Una vez finalizado, los dibujos en el Timage de arriba, los vuelves a pintar en el de abajo y guardas la imagen modificada.
No sé la versión de delphi que usas, pero si cargas un jpg no te dejará modificarlo, tendrás que convertirlo a BMP y cargarlo en image.Picture.Bitmap.
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|