dccheckbox on dcstatic
Posted: Thu Jan 26, 2023 2:55 am
Hi,
With the latest version a dccheckbox on a dcstatic is only readable if TYPE XBPSTATIC_TYPE_TEXT is used. You can't use a type as TYPE XBPSTATIC_TYPE_FGNDFRAME.
The code below shows the problem.
With the latest version a dccheckbox on a dcstatic is only readable if TYPE XBPSTATIC_TYPE_TEXT is used. You can't use a type as TYPE XBPSTATIC_TYPE_FGNDFRAME.
The code below shows the problem.
Code: Select all
#INCLUDE "dcdialog.CH"
FUNCTION Main()
LOCAL GetList[0], oGetStatic, oGetStatic2 ,lCheck := .F.
@ 0,0 DCSTATIC ;
TYPE XBPSTATIC_TYPE_FGNDFRAME ; // checkbox shows black caption which is unreadable
SIZE 500,100 PIXEL OBJECT oGetStatic ;
COLOR nil, GRA_CLR_WHITE
@ 10,10 dccheckbox lCheck prompt 'Checkbox test' parent oGetStatic PIXEL
@ 150,0 DCSTATIC ;
TYPE XBPSTATIC_TYPE_TEXT ; // Checkbox works when type is TEXT
SIZE 500,100 PIXEL OBJECT oGetStatic2 ;
COLOR nil, GRA_CLR_WHITE
@ 10,10 dccheckbox lCheck prompt 'Checkbox test' parent oGetStatic2 PIXEL
DCREAD GUI FIT
RETURN nil
* ----------
PROC appsys ; return