FiveTech Software tech support forums

... help, please. This is only a test, but don't work. Why ? METHOD Paint() INLINE Super:Paint() METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0 One simple solution could be to add something like this in the Paint() method of TWindow class: if ::aControls != nil AEval( ::aControls, ...

Amigo efectivamente, el problema es de twindows

la solucion al parecer esta aqui:

http://forums.fivetechsoft.com/viewtopi ... t=endpaint

saludos..

... añadido soporte para "@!" y otros carácteres especiales como la "ñ" del español y de otros idiomas. * Corrección: Pequeña corrección en el método EndPaint() de la clase TOutLook. * Nuevo: Nuevo método End() en la clase TComboBox para destruir y ocultar los desplegables editables de los comboboxes. ...

... * Enhancement: Class TGet proper support for '@!' and spanish and other countries special chars like "ñ", etc. * Fix: Class TOutLook Method EndPaint() minor fix. * New: Class TComboBox Method End() to properly hide and destroy the dropdown editable comboboxes. * Enhancement: Class TTabs ...

Pete,

Have you tried Giovany's suggestion ?

It would be enough to add this method to Class TOutLook:

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

I solved like this in OUTLOOK.PRG METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaintOld() in WINDOW.PRG METHOD EndPaint() INLINE ::nPaintCount--,; EndPaint( ::hWnd, ::cPS ), ::cPS := nil, ::hDC := nil, 0 // keep this zero here! METHOD EndPaintOld() INLINE ...

... return Creio que isto não esta correto outra coisa na CLASSE WINDOW comigo acontece algo estranho pois se comento a linha abaixo METHOD EndPaint() INLINE ::nPaintCount--,; EndPaint( ::hWnd, ::cPS ), ::cPS := nil, ::hDC := nil //, 0 // keep this zero here! veja que estou comentanto o ...

Hola Diego:

Yo tengo una versión anterior a la tuya y modificando el método EndPaint de window.prg, como dice Antonio, se soluciona el problema.

Saludos,
Manuel

Diego, Solo se me ocurre que estés usando una versión incorrecta de window.prg. Solo tienes que modificar el método EndPaint(). Si sigue dándote errores, lo más aconsejable es que te actualices a la versión actual 7.11 que incluye todas esas mejoras y no tienes que andar recompilando, ...

Raymundo, Gracias. Es lo que suponía: no hay cambios en TPages. Puedes probar a quitar el cero que añadimos en window.prg en el método EndPaint() y probar tu aplicación ? gracias, METHOD EndPaint() INLINE ::nPaintCount--,; EndPaint( ::hWnd, ::cPS ), ...

Construccion Octubre 2007 =================== * Corrección: El método EndPaint() de la clase TWindow devuelve cero para evitar errores de pintado. Todas las clases que usan el método Display() devuelven cero, para evitar errores de pintado. * Mejora: La función ...

October 2007 build ============== * Fix: Class TWindow Method EndPaint() returns zero to avoid painting errors. This way all classes using Method Display() return zero now, to avoid painting errors. * Enhancement: function MsgGet() shows proper dimensions ...

Antonio fijate que probe haciendo el cambio de ponerle el cero (el de la sugerencia fue carlos, no yo, jeje) en el endpaint(), y no me va, sigue pintando mal, y aparte me bloquea el sistema completo... asi tengo mi codigo DEFINE WINDOW oWnd TITLE oVarSys:NomSys MDI MENU MiMenu() ...

Antonio Linares wrote:In Class TWindow Method EndPaint(), add this final zero:

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

It solves painting errors!

Antonio,
My version "FWHX 7.04" ix fixable?
can you post the little sample for test the fix?

Solo hay que añadir ese cero al final en EndPaint()