How do I display a two-dimensional array in the table style on the screen?
Posted: Sun Dec 13, 2020 7:32 am
How do I display a two-dimensional array in the table style on the screen?
Code: Select all
#INCLUDE "dcdialog.ch"
FUNCTION Main()
LOCAL GetList[0], oBrowse, aDir := Directory()
@ 0,0 DCBROWSE oBrowse DATA aDir SIZE 65,20 ;
FONT '10.Lucida Console'
DCBROWSECOL ELEMENT 1 HEADER 'File Name' WIDTH 20 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 'Browsing a 2-Dimensional Array'
RETURN nil
* -----------
PROC appsys ; RETURN