Put a hold on xbrowses scope action (SOLVED)

[Marc Venken]

I want to put a timer or so on the execution of a scope in a Xbrowse.

Normal behavior is that when we scroll into a browse, the scope is always executed, and for large databases (or network trafic) it give a slowmotion.

I want the execution of the scope to happen if the browse stay on the same row for example 1 second, then the scope should happen.

In this case, when I scroll the database, the scope is only exucuted when I stay on the line where I want to see the selected data.

[ukoenig]

Marc,

maybe not needed ?
Can You test it, if there is any difference ?

New FTDN May/Mayo 2016 (FWH 16.05)
Postby Antonio Linares » Mon Jul 04, 2016 10:11 pm

May 2016
========

* XBrowse:
New: DATA lFastDraw (default .F. )
When set to .T., screen rendering of the browse is very fast.
But this can be set to .T. only when (a) background color of
all the cells are the same as oBrw:nClrPane, (b) all columns
use oBrw:oFont, (c) every column contains either single line
text or a single bitmap. Programmer has to decide when to use
this switch.

regards
Uwe

[Marc Venken]

Uwe,

I don't see any difference.

Thanks.

[nageswaragunupudi]

You need to use a timer in bChange method

[Marc Venken]

Looking at some info about timers, I have this kind of solutions.

They do what I want (delay the update of child browses), but it think almost for sure that it is not fully programmaticaly correct.

Code: Select all  Expand view  RUN

// before calling the oDlg

   Define Timer oTimer Interval 10000 Action updatescreen(oBrw) OF oWnd
   Activate Timer oTimer

// insite the setup of the browse

   :bChange       := { || scopetimer(oBrw) }




function scopetimer(oBrw)
   local nDuration := Seconds()+2
   oTimer:deactivate()

   WHILE Seconds() < nDuration
     SysRefresh()
   END

   updatescreen()

   oTimer:Activate()
return nil

//  a second option I tried

function scopetimer1(oBrw)

   local oTmr, nStart := Seconds()

   DEFINE TIMER oTmr INTERVAL 10000 ;
      ACTION If( Seconds() - nStart > 2,( nStart := Seconds(), updatescreen()  ), )
   ACTIVATE TIMER oTmr

return nil

// a third option I tried

function scopetimer2(oBrw)
  local nDuration := Seconds()+2

  WHILE Seconds() < nDuration
    SysRefresh()
  END

  updatescreen()
return nil

function updatescreen()
   SET_SCOPE(oBrw2)
   ('foto')->(DBGOTOP())
   oBrw:refresh()
   oBrw2:Refresh()
   oBrw4:gotop()
   oBrw4:Refresh()
   oImage:Refresh()
   oImage2:Refresh()
   Oget:refresh()
   oGet2:refresh()
   //msginfo("Test")
return NIL
*/
 

[nageswaragunupudi]

Please try this sample.
Create the prg in \fwh\samples folder and build with buildh.bat

Code: Select all  Expand view  RUN

#include "fivewin.ch"

// EXECUTE IN FWH\SAMPLES FOLDER

REQUEST DBFCDX

static nSecs      := 0
static nDelay     := 1  // seconds
static oTimer
//----------------------------------------------------------------------------//

function Main()

   field STATE,CODE
   local oDlg, oStates, oCust

   // OPEN DBF AND SET SCOPES
   USE STATES NEW VIA "DBFCDX"
   USE CUSTOMER NEW VIA "DBFCDX"
   INDEX ON STATE TAG STATEM TO TMP MEMORY
   SET ORDER TO TAG STATEM
   GO TOP
   SELECT STATES
   SET RELATION TO CODE INTO CUSTOMER SCOPED
   GO TOP

   //
   DEFINE DIALOG oDlg SIZE 900,600 PIXEL TRUEPIXEL

   @ 20,20 XBROWSE oStates SIZE 250,-20 PIXEL OF oDlg ;
      DATASOURCE "STATES" AUTOCOLS ;
      CELL LINES NOBORDER

   WITH OBJECT oStates
      :bChange    := { || nSecs := SECONDS() }
      :CreateFromCode()
   END

   @ 20,250 XBROWSE oCust SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CUSTOMER" COLUMNS "STATE","CITY","SALARY" ;
      CELL LINES NOBORDER

   oCust:CreateFromCode()

   ACTIVATE DIALOG oDlg ON INIT DlgInit( oDlg, oCust )

   CLOSE DATA

return nil

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

static function DlgInit( oDlg, oCust )

   DEFINE TIMER oTimer INTERVAL 1000 OF oDlg ACTION CustScope( oCust )
   oTimer:Activate()

return nil

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

static function CustScope( oCust )

   if nSecs > 0
      if SECONDS() - nSecs >= nDelay
         oCust:GoTop()
         oCust:Refresh()
         nSecs    := 0
      endif
   endif

return nil

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

[Marc Venken]

Works perfectly !! Thank you.

I have a learning question :

I see that you use :

SET RELATION TO CODE INTO CUSTOMER SCOPED

and I use :

:bChange := { || SET_SCOPE(oBrw) }

Code: Select all  Expand view  RUN

STATIC FUNCTION SET_SCOPE(oBrw)
LOCAL cNName := fotoinde->code

DBSELECTAREA( "nofoto" )
("nofoto")->( ORDSCOPE(0, cNName ) )
("nofoto")->(ORDSCOPE(1, cNName ) )

RETURN NIL
 

Is there a advantage in one of the 2 ways ? Maybe mine is the older fasion of programming ?

[nageswaragunupudi]

Scoped relation is simpler and faster. Also less code less bugs