carlos vargas wrote:antonio, he logrado que me funcione, ya no muestra en bold los textos en los dialogos en un folder, tanto en xp como en w7
he modificado un poco y habilitado el metodo handlevent de la clase tcheckbox
si la version es xp entonces llamo al super:handlevent.
no creo que sea lo adecuado este codigo, pero te puede dar luz de donde este el problema, revisalo por favor.
- Code: Select all Expand view
#define WM_UPDATEUISTATE 0x0128
METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TCheckBox
IF nMsg == WM_UPDATEUISTATE
::Refresh(.f.)
RETURN NIL
ENDIF
RETURN IIf( "XP" $ Upper( cWinVersion() ), Super:HandleEvent( nMsg, nWParam, nLParam ), NIL )
Carlos,
El efecto de pintado en negrita viene de la función FixSays() que hace que los SAYs se pinten en modo transparente, pero se pintan sobre su propia imagen. Es decir, habría que borrar su imagen antes de que se pintasen. Estamos intentando encontrar una solución a eso.
En tu solución lo que evitas es el repintado, pero si muves la caja de dialogo fuera de la pantalla y luego dentro forzando un repintado, el efecto aparecera.