Hi Roger
in COMBOBOX not Work
and DC CHECKBOX works differently if you only paints the foreground color Caption with having disabledColor it would look better
#INCLUDE "dcdialog.CH"
FUNCTION Main()
LOCAL GetList[0], cName := 'Hello there', GetOptions, lCheck := .t., ;
cMle := '', aCombo := {'Hello there 1','Hello there 2','Hello there 3',' '}, cCombo := 'Hello there 1'
@ 0,0 DCGET cName WHEN {||.t.}
@ 2,0 DCGET cName WHEN {||.f.}
@ 4,0 DCCHECKBOX lCheck PROMPT 'Check Me' WHEN {||.t.}
@ 6,0 DCCHECKBOX lCheck PROMPT 'Check Me' WHEN {||.f.}
@ 8,0 DCMULTILINE cMle SIZE 30,2 WHEN {||.t.}
@11,0 DCMULTILINE cMle SIZE 30,2 WHEN {||.f.}
@ 14.4,0 DCCOMBOBOX cCombo LIST aCombo TYPE XBPCOMBO_DROPDOWNLIST SIZE 12.9,04 WHEN {||.t.}
@ 16.4,0 DCCOMBOBOX cCombo LIST aCombo TYPE XBPCOMBO_DROPDOWNLIST SIZE 12.9,04 WHEN {||.f.}
DCGETOPTIONS DISABLEDCOLOR GRA_CLR_CYAN
DCREAD GUI FIT OPTIONS GetOptions
RETURN nil
PROC appsys ; RETURN
rdonnay wrote:I don't understand your problem.
I was wrong about only GETS supporting DISABLEDCOLOR.
I looked at my source code and it is supported by all DC* commands.
Run this sample:
Code: Select all
#INCLUDE "dcdialog.CH"
FUNCTION Main()
LOCAL GetList[0], cName := 'Hello there', GetOptions, lCheck := .t., ;
cMle := ''
@ 0,0 DCGET cName WHEN {||.t.}
@ 2,0 DCGET cName WHEN {||.f.}
@ 4,0 DCCHECKBOX lCheck PROMPT 'Check Me' WHEN {||.t.}
@ 6,0 DCCHECKBOX lCheck PROMPT 'Check Me' WHEN {||.f.}
@ 8,0 DCMULTILINE cMle SIZE 30,2 WHEN {||.t.}
@11,0 DCMULTILINE cMle SIZE 30,2 WHEN {||.f.}
DCGETOPTIONS DISABLEDCOLOR GRA_CLR_CYAN
DCREAD GUI FIT OPTIONS GetOptions
RETURN nil
PROC appsys ; RETURN