Saber cuando un Form hace un Paint

[[José Luis Garcí]]

Gracias pro vuetra ayuda, lo he intentado, con un TWinControl, Con un TCustomControl, Con TImagen, no recuerso si con alguno más, pero el fallos lo comenta AI Gonzáles, es un componente no visual que realiza un efecto en los controles del form, y no un componente visual, ya que aunque lo podria mandar al fondo, el problema es si otro componentenecesitase ir al fondo, quedaria, mal.

Lo tengo medio solucionado, creando un timer en el componente, el único problema es que si el valor de interval es muy bajo, se puede llegar a notar un ligero parpadeo, y si el intervalo es muy largo, cualquier refresh, repaint, minimize, etc, que oblige a redibujar los controles, seguiria sin aparecer hasta llegar al evento OnTimer, no se si me he explicado bien.

Pronto pondre este componente, en el club, si alguien tiene la solución, como siempre es libre de modificarlo, al gusto, que para eso soy un principiante, tambien añadire los TCCDEditZoom y TCCDDBEditZoom, ya modificados,me quedan pequeños detalles, pero ha sido una semana muy dura de trabajo y llego casi todos los días tarde.

Unb pequeño detalle, los que han probado el componente, que les parece el efecto, se han dado cuenta, que ya no se han seguido introuciendo componentes para el Club, por mi parte pienso seguir, será que los compañeros, han estado muy liados.

[[Al González]]

¡Hola José Luis!

¿Quién es AI Gonzáles? ¿Algún robot con inteligencia artificial?

Échale un vistazo a esta sección de Torry's Delphi Pages. Estuve mirando y encontré que, en algunos casos similares al tuyo, los programadores han recurrido a la sustitución del manejador del evento OnPaint de la forma (técnica que en lo personal sólo empleo como último recurso) o la sustitución de su propiedad WindowProc.

Dos ejemplos de ello son los componentes TAeroGlass y TAlphaBlendForm que ahí aparecen. Espero sirva de algo.

Hasta pronto.

Al.

[[José Luis Garcí]]

Gracias, echando un vistazo.

[[basti]]

Empezado por José Luis Garcí

No me vale el evcento Ompaint, ya que se repite multitud de veces, en un segundo.

El evento OnPaint se repite cada vez que se tiene que repintar el form. En este caso, si pones un breakpoint en el evento onPaint, cuando vuelvas a ejecutar se volverá a parar en el breakpoint del evento. Lo mismo pasa si muestras un mensaje o cambias el valor de un label dentro del evento onPaint, que se vuelve recursivo. Por eso puede parecer que se ejecuta demasiadas veces.

Creo que capturar el evento OnPaint del form sería la mejor manera de solucionar el problema del pintado del componente. En los ejemplos que te mostró Al González utilizan el OnPaint para cambiar la apariencia de los controles.

[[José Luis Garcí]]

Como hacer un breakpoint del evento en el código?