FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
El dibujo sobre el canvas de un panel desaparece
Hola.
Estoy haciendo un programa en Lazarus en la cual dibujo sobre el canvas de un panel. Todo funciona normalmente aunque, cuando la ventana de otro programa (por ejemplo, el explorador de windows) tapa parte del panel con la imagen, esa parte dibujada ya no aparece cuando se vuelve a seleccionar mi programa. Lo que quisiera saber es: 1- Si es posible hacer que el dibujo sobre el canvas del panel sea permanente. y ¿cómo se hace? 2- Y también quisiera saber, cuando se tienen ejecutándos varios programas y se pasa de usar un programa a usar otro, si hay algún evento que indique que el programa ha quedado activo en ese momento. Uso Lazarus 2.2.0 sobre Windows 7. De antemano, muchas gracias. Saludos. |
#2
|
||||
|
||||
Un poco de código para que probemos
|
#3
|
|||
|
|||
No entiendo lo que quieres decir.
|
#4
|
||||
|
||||
Pues he hecho una prueba y tienes razón, desaparece lo que hay debajo
|
#5
|
|||
|
|||
Hola.
He encontrado una posible solución al problema de que desaparezca la imagen. Posiblemente no valdrá para todo el mundo, pues dependerá de las necesidades. Comparto el código por si alguien lo puede necesitar en el futuro. Se trata de añadir un TImage y copiar a la imagen lo que se había dibujado en el panel y así la imagen queda fija. El image1.BringToFront permite que la imagen quede por encima del panel. El procedimiento image1click lo incluyo porque permite comprobar, tras realizar el proceso, si estamos viendo la imagen o estamos viendo el panel. Con relación a saber (en el caso de que hayan varias aplicaciones o programas funcionando en Windows) si el programa que está activo en ese momento es el programa nuestro. Eso no he encontrado la forma de hacerlo. Saludos.
|
#6
|
||||
|
||||
Creo que no es necesario hacer lo que has mostrado en el código de volcar la imagen a otro componente para luego restaurarla.
Coincido con [Casimiro] en que algo de código ayudaría a saber lo que estás haciendo y saber cual es el problema. Lo primero que se me ocurre es que no estás "repintando" tu dibujo "cuando toca". ¿Qué quiero decir con esto? Los componentes de Windows (entre ellos el TPanel) se están repintando continuamente. Sin ir más lejor, como tú comentas, cuando ponemos una ventana delante de otra y luego la quitamos, Windows "repinta" toda la ventana (y todos los componentes que hay dentro). Si tú pintas sobre un TCanvas directamente, sea de un TForm, de un TPanel, de un TEdit, de un TImage,... (o de cualquier componente) eso que has pintado en el TCanvas no es "persistente", por lo tanto en cuanto se "repinte" el componente, los cambios que hayas hecho en el TCanvas directamente se perderán. Lo lógico sería capturar algunos de los mensajes de "repintado"; Es decir cuando a al TCanvas le llegue el aviso (mensaje) de "repintarse", si capturas ese mensaje, lo que debes hacer es "después de que se repinte el camvas, volver a pintar tu dibujo". No se si me he explicado bien. Para eso, resisa información sbre el mensaje WM_PAINT, por ejemplo.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#7
|
||||
|
||||
Cita:
Tanto el Formulario (TForm) como TApplication tienen el evento OnActivate. Y por supuesto el OnPaint, aunque este "salta" muchas más veces de las que necesitas (cada vez que mueves el ratón, por ejemplo). En concreto para lo que comentas, al activar tu aplicación y la ventana puedes usar el Application.OnActivate, que salta cada vez que tu aplicación pasa a ser la activa.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#8
|
|||
|
|||
Pues tienes razón, Neftali.
La clave estaba en que probé los eventos con el formulario y no con TApplication. Funcionó con el evento Application.OnActivate . Para hacerlo en Lazarus 2.2.0: En la Paleta de Componentes, en la Pestaña "Additional" (es la segunda), se hace clic en el componente TApplicationProperties y se incluye en un Formulario de nuestra aplicación. Luego, en el Inspector de Objetos (F11), en la pestaña Eventos, se hace doble clic en el evento OnActivate e introducimos el código que vayamos a incluir. Esto hace que la aplicación ejecute este evento cada vez que la aplicación pasa a primer plano (entre otras ventanas de Windows). Por la prueba que hice, no depende del formulario, sino de la aplicación, y funciona aunque en ese momento se esté utilizando un formulario diferente a aquel en el que está el componente TApplicationProperties. Muchas gracias Neftali. Tu último mensaje me hizo ver la solución. Saludos. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Copiar TLabel.Canvas sobre TBitmap.Canvas | @CSE1970 | Gráficos | 2 | 23-10-2013 12:46:53 |
Guardar dibujo Canvas como Imagen | felipe88 | Gráficos | 6 | 01-12-2008 03:17:03 |
borrar dibujo en Timage usando Canvas | pablopessoa | Gráficos | 4 | 30-10-2008 16:12:08 |
Escribir texto sobre un dibujo | vejerf | Gráficos | 3 | 11-02-2008 21:39:09 |
Como Funcionan Los Metodos De Dibujo De Canvas?? | ASAEL | Gráficos | 2 | 15-11-2006 03:11:40 |
|