XBROWSE RESTRINGIR MULTISELECT

[nageswaragunupudi]

I checked this with current version and also ver 12.04.
In my test when we right click oBrw:aSelected is showing all selected records correctly.

Please try this sample:

Code: Select all  Expand view  RUN

#include 'fivewin.ch'
#include 'xbrowse.ch'

REQUEST DBFCDX

function main()

   local oDlg, oBrw, oFont

   USE CUSTOMER NEW VIA "DBFCDX"
   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 800,400 PIXEL FONT oFont TITLE FWVERSION
   @ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg DATASOURCE "CUSTOMER" ;
      AUTOCOLS LINES AUTOSORT NOBORDER

   WITH OBJECT oBrw
      :nMarqueeStyle    := MARQSTYLE_HIGHLROWMS
      :bClrSel          := { || { CLR_BLACK, CLR_HGRAY } }
      :bRClicked        := { || xbrowse( oBrw:aSelected, "SELECTED ROWS" ) }
      //
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return 0
 

If you still have a problem, please post a simple program to reproduce your problem.

[MarioG]

Mr. Rao
many thanks for your time

here is my sample, and i discovered my error!

Code: Select all  Expand view  RUN

#include 'fivewin.ch'
#include 'xbrowse.ch'

REQUEST DBFCDX

function main()

   local oDlg, oBrw, oFont

   USE CUSTOMER NEW VIA "DBFCDX"
   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 800,400 PIXEL FONT oFont TITLE FWVERSION
   @ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg DATASOURCE "CUSTOMER" ;
      AUTOCOLS LINES AUTOSORT NOBORDER

   WITH OBJECT oBrw
      :nMarqueeStyle    := MARQSTYLE_HIGHLROWMS
      :bClrSel          := { || { CLR_BLACK, CLR_HGRAY } }
      //:bRClicked        := { || xbrowse( oBrw:aSelected, "SELECTED ROWS" ) }
      :bRClicked        := {|nRow, nCol| MenuPop( nRow,nCol, oBrw ) }
      //
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return 0

//----------------------------------
procedure MenuPop( nRow,nCol, oBrw )
local oMenu

/*
   oBrw:SetFocus()
   oBrw:lButtonDown(nRow,nCol)
   oBrw:lButtonUp(nRow,nCol)
*/
   MENU oMenu POPUP
      MENUITEM "Show aSelected" ;
      ACTION   xbrowse( oBrw:aSelected, "SELECTED ROWS" )
   ENDMENU

   ACTIVATE POPUP oMenu AT nRow, nCol OF oBrw
// Fin

I copy code from other source (when i was comented, wotrk fine)

many thanks again
Regards

[nageswaragunupudi]

Glad you got it working now.

[sysctrl2]

en el Explorador de Windows, con las teclas:
CTRL+E, seleccionas todos los elementos,
en xbr. como se hace?
saludos..

[nageswaragunupudi]

oBrw:SelectAll() selects all rows.

I think it is Ctrl+A but not Ctrl+E.

To implement this behavior

Code: Select all  Expand view  RUN

     oBrw:bKeyChar         := { |nKey| If( nKey == 1, ( oBrw:SelectAll(), 0 ), nil ) }