FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour CONSULTA XBROWSE
Posts: 32
Joined: Thu Dec 07, 2017 10:26 AM
CONSULTA XBROWSE
Posted: Sun Nov 19, 2023 07:37 PM

Buenas compañeros,

Cuando se pulsa doble click en alguna columna en la cabecera del Browse.

Hay alguna variable o metodo que devuelva sobre que columna se ha dado doble click?

Gracias

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: CONSULTA XBROWSE
Posted: Mon Nov 20, 2023 02:06 PM
Right now, this is not possible.
For this we need to make some change in the xbrowse.prg:

Change:
Please locate these lines of code at the end of METHOD LDblClick( nRow, nCol, nKeyFlags )
Code (fw): Select all Collapse
    if nColPos != 0 .and. nRowPos != 0
      return ::Super:LDblClick( nRow, nCol, nKeyFlags )
   Endif
return 0
Please make the following change:
Code (fw): Select all Collapse
return ::Super:LDblClick( nRow, nCol, nKeyFlags )
After this change we can do this:
Code (fw): Select all Collapse
   XBROWSER "CUSTOMER.DBF" SETUP ( ;
      oBrw:bLDblClick := { |r,c,f,o| DblClick( r,c,f,o ) } )

//-----------------

function DblClick( r, c, f, oBrw )

   local oCol, nCol

   if oBrw:MouseAtHeader( r, c )
      if ( nCol := oBrw:MouseColPos( c ) ) > 0
         oCol  := oBrw:ColAtPos( nCol )
         // now do anything with oCol
         // example:
         ? oCol:cHeader
         return 0
      endif
   endif

return nil
Regards



G. N. Rao.

Hyderabad, India
Posts: 32
Joined: Thu Dec 07, 2017 10:26 AM
Re: CONSULTA XBROWSE
Posted: Mon Nov 20, 2023 11:03 PM

Muchas gracias, voy a probar.

Continue the discussion