El dibujo sobre el canvas de un panel desaparece

[rrf]

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.

[Casimiro Notevi]

Un poco de código para que probemos

[rrf]

Empezado por Casimiro Notevi

Un poco de código para que probemos

No entiendo lo que quieres decir.

[Casimiro Notevi]

Pues he hecho una prueba y tienes razón, desaparece lo que hay debajo

[rrf]

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.

Código Delphi [-]
procedure TForm1.Button8Click(Sender: TObject);
begin
       // Pasa el dibujo del canvas a un TImage
       //---------------------------------------

  Image1.Left  := Panel1.Left;
  Image1.Top   := Panel1.top;
  Image1.Width := Panel1.Width;
  Image1.Height:= Panel1.Height;

  Image1.Canvas.CopyRect(Rect(0,0, Image1.Width, Image1.Height), Panel1.Canvas,
                         Rect(0,0,Panel1.Width, Panel1.Height));

  Image1.BringToFront;

end;

procedure TForm1.Image1Click(Sender: TObject);
begin
      // Image1Click
      //-------------
 ShowMessage('CLIC EN IMAGE1');

end;

[Neftali [Germán.Estévez]]

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.

[rrf]

Muchas gracias por tu comentario.

Con relación a:

Empezado por Neftali [Germán.Estévez]

... cuando ponemos una ventana delante de otra y luego la quitamos, Windows "repinta" toda la ventana (y todos los componentes que hay dentro) ...

te pregunaría ¿Cómo puedo saber cuando ocurre que, después de estar en segundo plano, mi aplicación pasa a ser la aplicación que está activa y pasa a "primer plano"? ¿Hay algún evento para ello que indique que la aplicación ha pasado a ser la que está activa?.

Saludos.

[Neftali [Germán.Estévez]]

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:

Código Delphi [-]
ShowMessage('OnActivate del form: ' + Self.ClassName +  ' - ' + Self.Name);

[rrf]

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.

[rrf]

Hola de nuevo.

He probado los eventos OnShow, OnActivate y OnPaint y puede que alguno más (lo hice hace unos días) y no funcionan para indicar cuando la ventana de Windows ha pasado a ser la ventana activa. Aunque puede que sea posible y yo no he sabido hacerlo.

Las pruebas las he realizado en Lazarus 2.2.0 .

Aclaro que, la duda por la que inicié este hilo está ya resuelta, pues el usar un Image como canvas (que no hay que redibujar) me permite resolver el problema.

Muchas gracias por las sugerencias y aportaciones.

Saludos.

[Neftali [Germán.Estévez]]

Empezado por rrf

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.

Como he dicho hay varios eventos que te pueden indicar cuando "redibujar". Esto es para Delphi, pero diría que a este nivel debe funcionar igual el lazarus.
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.

[rrf]

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.