Hay un error al aplicar un tree sobre un xbrowse.
se puede observar en el ejemplo "xbrwtree.prg"
Al expandir, reducir, editar, etc. el browse se pierde de la visión la primera fila
Visión inicial:
Al expandir una fila, La primera fila pasa a ser la fila "AL" y la fila "AK" queda por encima
Revisando el código he visto que el problema esta cada vez que se llama a oBrw:Refresh(), mas concretamente en esta línea.
se puede observar en el ejemplo "xbrwtree.prg"
Al expandir, reducir, editar, etc. el browse se pierde de la visión la primera fila
Visión inicial:
Al expandir una fila, La primera fila pasa a ser la fila "AL" y la fila "AK" queda por encima
Revisando el código he visto que el problema esta cada vez que se llama a oBrw:Refresh(), mas concretamente en esta línea.
METHOD Refresh( lComplete ) CLASS TXBrowse
...
::nRowSel = Max( 1, Min( ::nRowSel, nKeyNo ) ) // bKeyNo for ADS is approx. can be zero also
...Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
Fernando González Diez
ALSIS Sistemas Informáticos