topic-20337

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Posible correccion a xBrowse - 20-11-2010
Posted: Sat Nov 20, 2010 08:33 PM

En el xbrowse me arroja un error al clickear doble vez a un header.

METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TXBrowse

   if ::nCaptured > 0
      nCaptured   := ::nCaptured
      ::nCaptured := 0
      ReleaseCapture()
      do case
         case nCaptured == 1
              ::oCapCol:HeaderLButtonUp( nRow, nCol, nFlags )

         case nCaptured == 2
              ::oCapCol:FooterLButtonUp( nRow, nCol, nFlags )

         case nCaptured == 3
              ::oCapCol:ResizeEnd( nRow, nCol, nFlags )

         case nCaptured == 4

Y lo he solucionado de la siguiente manera.

Code (fw): Select all Collapse

METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TXBrowse

   if ::nCaptured > 0
      nCaptured   := ::nCaptured
      ::nCaptured := 0
      ReleaseCapture()
      do case
         case nCaptured == 1 .AND. ::oCapCol != NIL
              ::oCapCol:HeaderLButtonUp( nRow, nCol, nFlags )

         case nCaptured == 2 .AND. ::oCapCol != NIL
              ::oCapCol:FooterLButtonUp( nRow, nCol, nFlags )

         case nCaptured == 3 .AND. ::oCapCol != NIL
              ::oCapCol:ResizeEnd( nRow, nCol, nFlags )

         case nCaptured == 4

William, Morales

Saludos

méxico.sureste

Daniel Garcia-Gil

Posts: 2365