How To Add A Row To A DCBROWSE ?
Posted: Fri Aug 26, 2011 1:50 pm
I want to add a new row to a DCBROWSE by pressing the 'down arrow' when on the last row. Is there an example that shows how to do this?
Thanks.
GeneB
Thanks.
GeneB
Code: Select all
#INCLUDE "dcdialog.CH"
FUNCTION Main()
LOCAL GetList[0], oBrowse, aDir := Directory()
@ 0,0 DCBROWSE oBrowse DATA aDir SIZE 10,10 FIT ;
EVAL {|o|o:hitBottomBlock := {||AddItem(aDir,oBrowse)}}
DCBROWSECOL ELEMENT 1 HEADER 'File Name' WIDTH 10 PARENT oBrowse
DCREAD GUI FIT TITLE 'Hit Bottom Test' SETFOCUS @oBrowse
RETURN nil
* ----------
PROC appsys ; return
* ----------
STATIC FUNCTION AddItem( aDir, oBrowse )
LOCAL aItem := { '<new item>', 0, Ctod(''),'','',0,Ctod(''),0,Ctod(''),0}
LOCAL bSave := oBrowse:hitBottomBlock
AAdd( Adir, aItem )
oBrowse:hitBottomBlock := nil
oBrowse:refreshAll()
oBrowse:goBottom()
oBrowse:forceStable()
oBrowse:hitBottomBlock := bSave
RETURN nil