FiveTech Software tech support forums

Please try
oBrw:bOnRefresh := { || oSay:Refresh() }

where oSay is

@ r,c SAY oSay PROMPT Len( oBrw:aSelected ) SIZE ............. OF oDlg

Thank you, It's working fine. I want to expand the possibility to deselect all files of one type. Can I just set the value of the aSelected array to 0 for those records, or should I create a new one? I deleted the record in the oBrw:aSelected array, and now it's working also for deselecting ...

Thank you,

It's working fine.
I want to expand the possibility to deselect all files of one type.
Can I just set the value of the aSelected array to 0 for those records, or should I create a new one?

...     oBrwCambi:aCols[3]:nWidth   := 70    WITH OBJECT oBrwCambi:InsCol( 1 )      :bEditValue    := { || AScan( oBrwCambi:aSelected, oBrwCambi:BookMark ) > 1 }      :SetCheck()      :nHeadBmpNo    := { || If( Len( oBrwCambi:aSelected ) ...

... @ x,y Xbrowse.... WITH OBJECT oBrw WITH OBJECT oBrw:InsCol( 8 ) :lHide := !lRitenuta :bEditValue := { || AScan( oBrw:aSelected, oBrw:BookMark ) > 0 } :SetCheck() :nHeadBmpNo := { || If( Len( oBrw:aSelected ) == oBrw:nLen, 1, 2 ) } :cHeader := "Rit." END ...

... I made @x,y button ...action Ins_Ritenuta(oBrw) Function Ins_Ritenuta(oBrw) WITH OBJECT oBrw:InsCol( 8 ) :bEditValue := { || AScan( oBrw:aSelected, oBrw:BookMark ) > 0 } :SetCheck() :nHeadBmpNo := { || If( Len( oBrw:aSelected ) == oBrw:nLen, 1, 2 ) } :cHeader := "Rit." END ...

...     oBrwCambi:aCols[3]:nWidth   := 70    WITH OBJECT oBrwCambi:InsCol( 1 )      :bEditValue    := { || AScan( oBrwCambi:aSelected, oBrwCambi:BookMark ) > 0 }      :SetCheck()      :nHeadBmpNo    := { || If( Len( oBrwCambi:aSelected ) ...

oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROWMS // multisel does the job

you can mark the lines needed by clicking

then

FOR I = 1 TO LEN(oBRW:aSELECTED) // obrw:aSELECTED is an array containing recnos marked

dbgoto->(oBRW:aSELECTED[I]))
.....
next

Hth

Richard

... He may like to caution the user with one message to the user for the batch operation and proceed to delete the batch. sample code: AEval( aSelected, { |n| oBrw:BookMark := n, oBrw:Delete() } ) I am proposing to have a Delete() method in TDataRow() also. This enables programmer to delete ...

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: #include 'fivewin.ch'#include 'xbrowse.ch'REQUEST DBFCDXfunction main()   local oDlg, ...

... the Multi selection First, I selec with shift+clic or ctrl+clic, some registers. after I do right clic (to open a popup), over a selection and ::aSelected only return the last register selected. If I do again with Ctrl pressed. ::aSelected, returned all the registers, but not the register where ...

... the Multi selection First, I selec with shift+clic or ctrl+clic, some registers. after I do right clic (to open a popup), over a selection and ::aSelected only return the last register selected. If I do again with Ctrl pressed. ::aSelected, returned all the registers, but not the register where ...

... que: 1.- Al señalar uno de los registros marcados y hacer clic derecho, para abrir un menu secundario y tomar una opcion (borrar x ej.). El ::aSelected contiene un solo registro (el último sobre el que se hizo clic) 2.- Si mantengo la tecla Ctrl presionada y repito el proceso, ::aSelected ...

... si responde mejor tu pregunta y revisa METHOD Select( nOperation ) CLASS TXBrowse, saludos... :shock: lHighLite := ::lMultiSelect .and. ( Ascan( ::aSelected, Eval( ::bBookMark ) ) > 0 ) if ::lMultiSelect .and. ( nStyle == MARQSTYLE_HIGHLROWMS .or. ::nMarqueeStyle == MARQSTYLE_HIGHLWIN7 ) lHighLite ...

... := { nTop, nBottom } aSelCols := { nLeft, nRight } Note: I am using two arrays instead one aRect, because this logic easily enables using oBrw:aSelected. Code: for each oCol in oBrw:aCols SetClrStd( oCol ) next .... .... static function SetClrStd( oCol ) oCol:bClrStd := { || { CLR_BLACK, If( ...