HOW TO GET BROWSE COLUMN HEADING AT RUNTIME ?
Posted: Wed Mar 02, 2011 4:59 am
#include "dcdialog.ch"
FUNCTION MyBrowse()
LOCAL GetList[0], GetOptions, oBrowse
LOCAL aDir := Directory()
@ 0, 0 DCBROWSE oBrowse DATA aDir SIZE 20,10 FIT
DCBROWSECOL ELEMENT 1 HEADER 'File Name' WIDTH 10 PARENT oBrowse
DCBROWSECOL ELEMENT 2 HEADER 'File Size' WIDTH 11 PARENT oBrowse
DCBROWSECOL ELEMENT 3 HEADER 'File Date' WIDTH 12 PARENT oBrowse
DCBROWSECOL ELEMENT 4 HEADER 'File Time' WIDTH 13 PARENT oBrowse
DCREAD GUI FIT TITLE 'Zebra Colors on Browse'
RETURN nil
*
In the sample program above:
1. How can I retrieve the Column Headers i.e. 'File Name', 'File Size' from the oBrowse object at runtime ?
2. How can I retrieve the Column Width i.e. 10, 11, 12, 13 from the oBrowse object at runtime ?
FUNCTION MyBrowse()
LOCAL GetList[0], GetOptions, oBrowse
LOCAL aDir := Directory()
@ 0, 0 DCBROWSE oBrowse DATA aDir SIZE 20,10 FIT
DCBROWSECOL ELEMENT 1 HEADER 'File Name' WIDTH 10 PARENT oBrowse
DCBROWSECOL ELEMENT 2 HEADER 'File Size' WIDTH 11 PARENT oBrowse
DCBROWSECOL ELEMENT 3 HEADER 'File Date' WIDTH 12 PARENT oBrowse
DCBROWSECOL ELEMENT 4 HEADER 'File Time' WIDTH 13 PARENT oBrowse
DCREAD GUI FIT TITLE 'Zebra Colors on Browse'
RETURN nil
*
In the sample program above:
1. How can I retrieve the Column Headers i.e. 'File Name', 'File Size' from the oBrowse object at runtime ?
2. How can I retrieve the Column Width i.e. 10, 11, 12, 13 from the oBrowse object at runtime ?