Pérdida de fondo al mover diálogo<< Antonio Linares>>

[Pedro]

Hola a todos.

Antonio retomo este post
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=26437#p145911
He estado comprobando en el programa en donde, al mover un diálogo que estaba sobre una ventana con xBrowse me hacía desaparecer los registros del browse o me ponía cosas que no estaban en la ventana. He comprobado con el SetResDebug( .T. ) y el CheckRes() si había consumo de recursos y como comprobaras en el post no lo hay.
De modo que me puse a buscar en que momento me hacía eso y me dí cuenta que solo lo hace cuando en el browse tengo 3 colores para las filas. Por ejemplo el típico efecto pijama y un color para cuando el registro cumple una condición.

Code: Select all  Expand view  RUN

      oLbx:bClrStd := { ||IIF((oLbx:cAlias)->VENCTO < DATE() .and. (oLbx:cAlias)->PAGADO= .F.,{CLR_BLACK,RGB(255,192,240)}, ;
                        IIf( ( (oLbx:cAlias)->(OrdKeyNo()) % 2 ) == 0, ;
                            { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } )) }

Si quito del código anterior el primer IIF y dejo sólo el segundo no me hace la guarrada.

[Pedro]

¿Algo al respecto?

[Pedro]

Antonio has podido mirar algo de esto?

[Antonio Linares]

Pedro,

En FWH/samples/FiveDbu,prg usamos esta línea en todos los browses:

Code: Select all  Expand view  RUN

  oBrw:bClrStd = { || If( oBrw:KeyNo() % 2 == 0, ;
                         { If( ( oBrw:cAlias )->( Deleted() ), CLR_HRED, CLR_BLACK ),;
                           RGB( 198, 255, 198 ) }, ;
                         { If( ( oBrw:cAlias )->( Deleted() ), CLR_HRED, CLR_BLACK ),;
                           RGB( 232, 255, 232 ) } ) }

y no hay pérdida de recursos. Que versión de FWH usas ? Has modificado algo en xbrowse.prg ?

[Pedro]

Antonio uso la versión 12.06, no he modificado el xbrowse, y tampoco tengo pérdida de recursos. Es sólo que al mover el diálogo sobre el fondo, que es un xbrowse en una windows, se borra todo menos el primer registro que es donde está el cursor del browse o bien te aparecen registros que no están visibles,por ejemplo, por estar en el final de la tabla menos cinco registros. Sólo se produce cuando tienes en la forma que me indicasteis hace tiempo que debería de poner un tercer color.

[Pedro]

Antonio aquí te pongo una imágen de lo que sucede. He de decirte que el código del bclrstd lo cambié al que tu me indicabas y que habías puesto en Fivedbu y el tema sigue igual, en cuanto mueves el diálogo te enguarra la ventana.
A parte de eso, observa que la columna de ajuste no tiene color.

[Antonio Linares]

Pedro,

Creo que es muy probable que se deba a la versión de xbrowse.prg que usas. El problema es que la Clase XBrowse cambia tanto constantemente que es muy dificil poder decirte que cambiar en tu versión para solucionar el problema facilmente.

Si quieres puedo enviarte por email la versión actual de xbrowse.prg pero lo más seguro es que no funcione porque precise de más cosas que hayan cambiado, pero si quieres, lo intentamos.

[Antonio Linares]

Y además el problema añadido es que posiblemente es un tema relacionado con los brushes que tambien han cambiado desde la versión que usas.

[Pedro]

Antonio, si tu crees que pueda hacerlo funcionar con el xharbour de la versión 12.06, envíamelo y probamos, si no tendré que esperar al mes de septiembre u octubre para poder actualizarme.