www.FiveTechSoft.com
https://fivetechsupport.com/forums/
https://fivetechsupport.com/forums/viewtopic.php?f=6&t=30274
Posted: Sun Mar 01, 2015 4:23 pmPosted: Sun Mar 01, 2015 4:54 pmPosted: Mon Mar 02, 2015 2:08 amPosted: Mon Mar 02, 2015 7:15 am
#include "fivewin.ch"
#include "xbrowse.ch"
function Main()
local aData[ 20000 ]
local aSub
local oDlg, oFont, oBrw, n, r
local bFilter := { |x| x[ 1 ] % 3 == 0 } // can be any other filter cond
// Initialize Array
for n := 1 to 20000
aData[ n ] := { HB_RandomInt( 10001, 99999 ) }
next
//
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
DEFINE DIALOG oDlg SIZE 300,600 PIXEL FONT oFont
@ 10,10 XBROWSE oBrw SIZE -10,-30 PIXEL OF oDlg DATASOURCE aData ;
COLUMNS 1,1 HEADERS "SlNo", "Data" ;
PICTURES "99999", "999,999" ;
CELL LINES NOBORDER FOOTERS
oBrw:aCols[ 1 ]:bEditValue := { || oBrw:nArrayAt }
oBrw:aCols[ 1 ]:bFooter := { || oBrw:nLen }
oBrw:CreateFromCode()
@ 275, 10 BUTTON "SetFilter" SIZE 40,12 PIXEL OF oDlg ACTION ;
( If( aSub == nil, ( aSub := {}, AScan( aData, { |x| If ( Eval( bFilter, x ), AAdd( aSub, x ), nil ) } ) ), nil ), ;
n := oBrw:aRow, r := oBrw:nRowSel, oBrw:aArrayData := aSub, oBrw:Refresh( .t. ), ;
oBrw:nArrayAt := Max( 1, AScan( aSub, { |x| x == n } ) ), ;
oBrw:nRowSel := r, ;
oBrw:SetFocus() )
@ 275, 55 BUTTON "ClearFilter" SIZE 40,12 PIXEL OF oDlg ACTION ;
( n := oBrw:aRow, r := oBrw:nRowSel, oBrw:aArrayData := aData, oBrw:Refresh( .t. ), ;
oBrw:nArrayat := Max( 1, AScan( aData, { |x| x == n } ) ), ;
oBrw:nRowSel := r, ;
oBrw:SetFocus() )
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
return nil