FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Test de pintado - Carlos
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Test de pintado - Carlos
Posted: Fri Sep 14, 2007 05:38 PM
Usando este ejemplo, con Vista 32, no somos capaces de que aparezca un error de pintado. Podeis intentar conseguir el error con este ejemplo ? gracias
#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd COLOR "W/G"

   ACTIVATE WINDOW oWnd

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 229
Joined: Sat Mar 18, 2006 03:42 PM
Test de pintado - Carlos
Posted: Fri Sep 14, 2007 06:16 PM

No tengo Windows Vista , pero con una ventana sencilla aquí tampoco da problemas. Parece que surge cuando insertamos un control FW con bitmaps. Pruébale colocando un buttonbar con unos cuantos botones incluida la imagen de cada boton, o una imagen de de fondo.

Un saludo

Marcelo Jingo

Marcelo Jingo
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Test de pintado - Carlos
Posted: Fri Sep 14, 2007 06:34 PM

Marcelo,

usando samples\Fwborl.prg tampoco conseguimos que falle

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 229
Joined: Sat Mar 18, 2006 03:42 PM
Test de pintado - Carlos
Posted: Sat Sep 15, 2007 04:10 AM
Probé el samples\Fwbrl.prg, y efectivamente no se presenta el problema y la aplicación va muy bien casi sin consumir recursos al mover la ventana. Todo va de perlas.

Así que sólo por probar le agregé un recurso .RC de los que uso en mis aplicaciones compilándolo junto con el Fwbrl.prg. En el código no hice ninguna llamada que use algún bmp de este RC . Lo ejecuté y ¡Apareció el error!.

Entonces dedusco que el problema está en la forma de usar los recursos, a lo mejor, como en mi caso lo estamos llenando con bmps muy grandes, haciendo que en el executable se carge todo volviéndolo pesado. Al menos eso parece.

Algún buen consejo para usar los recursos, es mejor que estén compilados con el exe o en dlls.....?

Vean la imagen de la prueba



Saludos

Marcelo Jingo
Marcelo Jingo
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Test de pintado - Carlos
Posted: Sat Sep 15, 2007 07:30 AM

Marcelo,

Que hay en el RC ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Test de pintado - Carlos
Posted: Sat Sep 15, 2007 07:59 AM
PROBLEMA SOLUCIONADO:

Efectivamente Paco tenía razón y faltaba ese cero. La cuestión es donde ponerlo correctamente:

En la clase TWindow:

METHOD EndPaint() INLINE ::nPaintCount--,;
EndPaint( ::hWnd, ::cPS ), ::cPS := nil, ::hDC := nil, 0

Observen el cero al final. Problema del brush solucionado! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
Test de pintado - Carlos
Posted: Sat Sep 15, 2007 10:47 AM

Buenos días por la lista,

al final era una cosa sencilla, tal como habia dicho. Para colmo la solución siempre estuvo ahí, porque en mis pruebas tengo un TXBrowse que siempre se pintaba bien, pero miraba en el código de la clase y siempre buscaba algo en el método Paint pero (lamentablemente) nunca miré en el Display, donde ya estaba la respuesta. Es un pelín frustrante :( . Pero sirve para aprender, ya casi puedo recitar los mensajes de windows de memoria y leer la MSDN en inglés en voz alta. :D

Un saludo,

Carlos.

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Posts: 229
Joined: Sat Mar 18, 2006 03:42 PM
Test de pintado - Carlos
Posted: Sat Sep 15, 2007 02:08 PM

Es verdad, realicé el cambio como dice Antonio y le adjunte al Fwbrl.prg compilado con el recurso mencionado, y desapareció el problema. Lo mismo hice a mis aplicaciones y ya no quedan esas horribles líneas. Lo que si noté es que se mantiene una lentitud en el repintado; pero que insisto creo que es debido a mi recurso en donde tengo muchos bmps, pero eso ya es otro asunto.

Gracias a todos por haber solucionado este problema estético.

Un saludo

Marcelo Jingo

Marcelo Jingo

Continue the discussion