bb.donnay-software.com

Code: Select all

#INCLUDE "dcdialog.CH"
#INCLUDE "appevent.CH"

STATIC snLastUpdate := 0

FUNCTION Main()

LOCAL GetList[0], oBrowse, aDir, i

aDir := Directory()

@ 0,0 DCBROWSE oBrowse DATA aDir SIZE 100, 20 ;
      AUTOREFRESH 1000 ;
        REFRESHBLOCK {|o|UpdateDirectory(o)} ;
        WHEN {||Seconds()-snLastUpdate < 15 }

DCBROWSECOL ELEMENT 1 HEADER 'File Name' WIDTH 10 PARENT oBrowse
DCBROWSECOL ELEMENT 2 HEADER 'File Size' WIDTH 10 PARENT oBrowse
DCBROWSECOL ELEMENT 3 HEADER 'File Date' WIDTH 10 PARENT oBrowse
DCBROWSECOL ELEMENT 4 HEADER 'File Time' WIDTH 10 PARENT oBrowse

DCREAD GUI FIT TITLE 'Browse Auto-Refresh Test' ;
   HANDLER myHandler

RETURN nil

* -----------

STATIC FUNCTION myHandler( nEvent, mp1 )

IF nEvent == xbeM_Motion
  snLastUpdate := Seconds()
ENDIF

RETURN DCGUI_NONE

* -----------

PROC appsys ; return

* -----------

STATIC FUNCTION UpdateDirectory( oBrowse )

wtf 'refreshing'

oBrowse:dataSource := Directory()
oBrowse:refresh()

RETURN nil

Code: Select all

here's my autorefresh clause
AUTOREFRESH m->nBrowseRefresh WHEN {||myautorefresh() .AND. browse_not_active(snLastUpdate) }  

my handler clause
   HANDLER mybrowsehandler REFERENCE @snLastUpdate


**********************
function myautorefresh(aGetlist)
**********************
static slIsRefreshOn
IF slIsRefreshOn==nil
  slIsRefreshOn:=.t.
ENDIF
IF !aGetlist==nil
  slIsRefreshon:=!slIsRefreshOn
  DC_GetObject(aGetList,'REFRESHBUTTON'):setcaption('Turn Autorefresh '+IIF( slIsRefreshOn,"Off" ,"On" ))
ENDIF
return(slIsRefreshOn)

************************
FUNCTION myBrowseHandler( nEvent, mp1)
************************
IF nEvent == xbeM_Motion .OR. nEvent == xbeP_Keyboard
  snLastUpdate := Seconds()
ENDIF

RETURN DCGUI_NONE


**************************
function browse_not_active(snLastUpdate)
**************************
IF fexists('browsedebug.ovl')
  wtf Seconds()-snLastUpdate
ENDIF
return(Seconds()-snLastUpdate > m->nBrowseRefresh/100 )