He tenido errores en el método lButtonUp de la clase xbrowse porque oCapCol tiene valor nil
lo he solucionado asi:
lo he solucionado asi:
METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TXBrowse
...
if ::nCaptured > 0
nCaptured := ::nCaptured
::nCaptured := 0
ReleaseCapture()
do case
case nCaptured == 1
if ::oCapCol != nil // -> Añadido nuevo por Fernando. AlsisGHE
::oCapCol:HeaderLButtonUp( nRow, nCol, nFlags )
endif
case nCaptured == 2
if ::oCapCol != nil
::oCapCol:FooterLButtonUp( nRow, nCol, nFlags )
endif
...Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
Fernando González Diez
ALSIS Sistemas Informáticos