Page 2 of 2

Re: XBROWSE RESTRINGIR MULTISELECT

PostPosted: Fri Sep 06, 2013 4:02 am
by 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
#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
 


Image

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

Re: XBROWSE RESTRINGIR MULTISELECT (SOLUCIONADO!)

PostPosted: Fri Sep 06, 2013 1:22 pm
by MarioG
Mr. Rao
many thanks for your time

here is my sample, and i discovered my error!
Code: Select all  Expand view
#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

Re: XBROWSE RESTRINGIR MULTISELECT

PostPosted: Fri Sep 06, 2013 2:37 pm
by nageswaragunupudi
Glad you got it working now.

Re: XBROWSE RESTRINGIR MULTISELECT

PostPosted: Fri Sep 06, 2013 4:33 pm
by sysctrl2
en el Explorador de Windows, con las teclas:
CTRL+E, seleccionas todos los elementos,
en xbr. como se hace?
saludos..

Re: XBROWSE RESTRINGIR MULTISELECT

PostPosted: Sat Sep 07, 2013 4:18 am
by 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
     oBrw:bKeyChar         := { |nKey| If( nKey == 1, ( oBrw:SelectAll(), 0 ), nil ) }