Saber cuando un Form hace un Paint

[[José Luis Garcí]]

Gracias a ambos, he de decir, que efectivamentem ene ste caso es sólo un componente visual, pero que dependiendo, del resultado que me de derivara, en posteriores componentes, visuales, y no visuales, que ire poniendo en el club, tengo en mente un buen puñado, pero soy muy lento programandolos, por que me pierdo en la OPP, tengo multitud de libros sobre delphi hasta el 6, incluyendo La Cara Oculta de DElphi 4, y no termino de allar las respuestas.

Con Delphi, mi gran problema, es el Ingles, me peleo a ratos, con el de mis 6 Delphi (2,3,4,5,6,Turbo), sólo tengo el manual en españos del 4, Son comprados Orginales, todos, exeptuando el Turbo que es free en su página, yo hasta hace unos seis años, sólo me interesaba, programar para bases de datos, hara unos 4 tube una serie de problemas en la empresa, que aún acarreo, pero en un principio, no me quedaba casi tiempo libre, ahora aunque vivo mucho mas lejos, tengo más tiempo.

Pero soy persistente, suelo trabajar con muchas cosas a la vez, llevo trabajando 24 años (desde los 16) y he aprendido muchas profesiones, y en todas ellas la tenacidad, es una cuestion que no puede fallar, me he propuesto terminar el componente, y lo hare.

Gracias por vuestra ayuda y probare los cambios expuestos.

[[José Luis Garcí]]

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

[[Caral]]

Hola
No me hagais mucho caso en esto, de componentes no se nada, pero leyendo un poco encontre esto:

Como base para la elección del ascendiente, conviene hacer notar las siguientes normas:

* TComponent - El punto de partida para los componentes no visuales.
* TWinControl - El punto de partida si es necesario que el componente disponga de handles.
* TGraphicControl - Un buen punto de partida para componentes visuales que no sea necesario que dispongan de handles, es decir, que no reciban el foco. Esta clase dispone del método Paint y de Canvas.
* TCustomControl - El punto de partida más común. Esta clase dispone de window handle, eventos y propiedades comúnes y, principalmente, canvas con el método Paint.

Bueno, segun entiendo el TComponent es para componentes NO visuales, en este caso seria lo correcto.
Pero dice que TCustomControl es para el manejo del metodo Paint.
Me quede con la duda y por eso lo puse, nada mas para aprender.
Saludos

[[Al González]]

¡Hola a todos y bienvenido de regreso Carlos!

Empezado por Caral

...segun entiendo el TComponent es para componentes NO visuales, en este caso seria lo correcto.
Pero dice que TCustomControl es para el manejo del metodo Paint.
Me quede con la duda y por eso lo puse, nada mas para aprender.
Saludos

Es precisamente el punto de mi comentario anterior. El componente, estrictamente hablando no tiene que ser visual, porque su propósito es darle cierto aspecto visual a otros componentes mas no a sí mismo. El quid es atrapar algún mensaje o evento relacionado con el dibujo de los controles de la forma. Como la forma misma recibe un mensaje wm_Paint de parte de Windows, se pensó que sería buena idea tratar de interceptar este mensaje, pero entonces la pregunta fue ¿cómo? Como tú señalas, sería buena idea derivar la clase del nuevo componente de TCustomControl (no directamente de TWinControl, como sugería en mi mensaje anterior), pero no sería lo correcto, a menos que el nuevo componente sea visual en el sentido de que posea su propia área de dibujo.

Desde ayer he venido pensando que el nuevo componente podría contener dentro de sí mismo un objeto TApplicationEvents con el cual, a través de su evento OnMessage, se intercepten todos los mensajes wm_Paint que le lleguen a la aplicación y proceda en consecuencia a realizar su cometido cuando dicho mensaje vaya dirigido a la forma o a alguno de sus controles. Pero de momento no estoy seguro de si todos los mensaje wm_Paint llegan al evento OnMessage de la aplicación (TApplicationEvents.OnMessage, en este caso). Sería cosa de investigar un poco más.

De todas maneras, creo que no se pierde mucho con intentarlo.

Un wm_abrazo.

Al González.

[[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.