FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
No entiendo lo que quieres decir.
|
#2
|
||||
|
||||
Pues he hecho una prueba y tienes razón, desaparece lo que hay debajo
|
#3
|
|||
|
|||
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.
|
#4
|
||||
|
||||
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. |
#5
|
|||
|
|||
Muchas gracias por tu comentario.
Con relación a: Cita:
Saludos. |
#6
|
||||
|
||||
La primera opción son los Eventos.
Si revisas los eventos de tu formulario (TForm) verás que hay el OnShow (la primera vez que se visualiza), el OnActivate, que "salta" cada vez que el formulario se "activa" (sería algo así como cuando coge el foco), OnPaint (cada vez que se hare un "redraw"). Si con los eventos no obtienes lo que necesitas, lo siguiente es capturar mensajes de Windows. Digamos que con los eventos tienes las cosas más habituales, pero hay muchas más cosas que pasan que no están accesible mediante eventos; Para eso están los mensajes. Es una técnica un poco más avanzada y requiere conocimientos de la VCL. Otra opción es el componente TApplicationEvents, que te permite acceder a eventos a nivel de la aplicación (no sólo de un formulario), aunque también se puede conseguir esto último. Para el caso que estás piendo, la primera prueba a poner esto en el OnActivate de tu formulario, a ver si es el que necesitas:
__________________
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
|
|||
|
|||
Muchas gracias por estas opciones, Neftali.
Las investigaré. Por lo pronto, ya he visto que el componente TapplicationEvents no existe en Lazarus o, al menos, no lo encontré. Investigaré los eventos que has comentado. 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 |
|