Poligono con posicion incorrecta dentro del canvas
Buenas noches.
Tengo un pequeño problema que no se resolver y espero poder recibir ayuda de ustedes. Lo que quiero hacer: Quiero mediante código dibujar un polígono con un color y un borde para resaltar una porción de la imagen Obtener puntos del polígono a dibujar: Para obtener los puntos del poligono que siempre sera el mismo puse sobre un formulario un control Timage y cargue la imagen, luego puso un control del tipo TSelectionPoint luego ejecute el proyecto temporal y fui capturando los puntos mediante la sentencia: TSelectionPoint.Position.Point.X / Y. Dibujar Polígono y sorpresa: Cuando ya obtuve mis puntos para poder dibujar el polígono cree un código (lo pego abajo para que vean) en un control TButton para dibujar mi polígono y ver los resultados, pero me lleve una sorpresa al ver que mi polígono se me dibuja por arriba de las coordenadas que obtuve con el control TSelectionPoint. No se que estoy haciendo mal, espero haberme explicado :D
Les dejo una imagen para ilustrar mas: https://drive.google.com/file/d/0B4d...ew?usp=sharing |
Una pequeña prueba que te puede orientar sobre donde está el problema, es que te fijes si ese "error" o desplazamiento a la hora de dibujar el polígono siempre es el mismo.
Es decir, intenta dibujar un polígono para cubrir la raiz del diente inferior y revisa si el "offset" es el mismo que en el anterior caso (en cuanto a X e Y). |
Buenas Neftali.
Chanfles , me doy!! :) Intente crear otro polígono para cubrir el diente de abajo y se me dibuja en el mismo lado. |
La franja horaria es GMT +2. Ahora son las 07:56:44. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi