Ayuda con componente TSelectOnRuntime de Neftali
Hola a todos
Aunque mas bien el tema esta dirigido a Neftalí, pero cualquier otro miembro del foro pudiera aceptar el reto Pues buscando una solucion para un proyecto que incluye un mapa de red, llegue a los componenetes TSelectOnRuntime y TSaveComps de la libreria GLib, que me sirven bien para lo que necesito, muy buenos. Me basé en el ejemplo del restaurante que esta en la propia web de Neftali, que se adecua perfectamente a lo que quiero, pero quisiera que me ayudaran en modificar algunos detalles, necesarios para mi proyecto. – Al crear un control, poder asociarle una etiqueta (que se ubique debajo) y que se mueva junto con el mismo – Al seleccionarlo en lugar de rodearlo con los “circulitos” encerrarlo en un cuadrado de algun color Alguna idea de como hacerlo? :confused: Para Neftalí: Si quieres (o puedes) agregas las modificaciones (como propiedades o como entiendas mejor) al componente TSelectOnRuntime, y me dices para descargar la nueva actualizacion ;) Solo me quedan esos detalles para que me sirva 100% para lo que necesito |
Aunque no está de más que cooques aquí tu mensaje, también podrías escribirle directamente en su blog y también podrías colocar aquí el enlace correspondiente de su blog para quien esté interesado y sepa bien de qué se habla.
LineComment Saludos |
Hola.
No es por no hacerlo, pero creo que se "rompe" con la idea del componente. De todas formas, no se si una solución podría ser crear un Frame con una imagen y un Label (por ejemplo) y seleccionar el frame para moverlo, cosa que no te debería dar ningún problema. No se ve el ratón en la captura, pero creo que se entiende la idea. |
Cita:
No pude modificar el post para los enlaces, pero pueden acceder a la web de neftali para descargar la libreria GLib PD: En su web tambien lo publique, pero ademas aqui, que hay mas posibilidades de respuestas de otros miembros |
Pues esto es lo que yo tengo hasta ahora, pero la seleccion no me funciona bien, y lo de guardar las posiciones lo resolvere con el TSaveComps
La etiqueta la creo de esta forma:
Para moverlo, lo hago con estos procedimientos
Lo elimino asi
Y para seleccionarlo parece que algo me falta o no es el metodo adecuado, lo que intento es ponerle un TShape transparente para que quede alrededor del control, pero no funciona del todo bien.
Lo que sucede es que tengo que dar clic dos veces para que me muestre el TShape en el Nodo seleccionado, por ejemplo: 1ra situación: Doy un clic y no sucede nada, doy otro clic y me muestra el TShape correctamente 2da situación: Doy un clic en un nodo y no sucede nada, doy un clic en otro nodo y el TShape se me ubica en el nodo anterior Al dar un clic parece que el nodo se asigna bien, porque al darle eliminar se elimina al que le di un clic, pero no sucede nada con la ubicacion del TShape Alguna idea de lo que estoy haciendo mal? Como podria arreglar eso? Cita:
|
Pues continué experimentando con TSelectOnRuntime de Neftali en el ejemplo del restaurante y logre adicionar la etiqueta y resaltar el TImage con un TShape
Le agregue esto al procedimiento de crear las mesa (_CreateMesa) para asociarle la etiqueta
quedando de esta forma
Estab es la funcion del Label
Y para el resaltado modifique el evento OnMesaClick, quedando de esta forma
Aunque me quedo un poco "rustico" ya que cuando se mueve el control, la etiqueta y el marco se quedan en su origen hasta que se suelte el control en su destino, que se ubican en la posicion correcta Pero bueno, por ahora esta bien, despues se podra refinar un poco para que quede mejor |
Al final ya quedo resuelto el problema ^\||/
Lo que pasaba era que estaba usando el evento equivocado, lo de poner el resaltado del control con el Shape es en el ControlMouseDown y no en el ControlClick como lo trataba de hacer. |
^\||/^\||/^\||/^\||/
Enhorabuena. |
La franja horaria es GMT +2. Ahora son las 06:54:35. |
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