I enhanced the sample below per your requests to try with the checkboxes with just the tabpage being the parent and then with the groupbox being the child of the tabpage and the checkboxes being the child of the groupbox. I also tired with the background color being GRA_CLR_RED. You can see that when compiled with Xb1.9/exp262 that the colors are as expected. With 2.0, the transparent color is only working via the presentation parameters when disabled. With the GRA_CLR_RED background color, even with the presentation parameter in use, it is different than XB1.9. I did not try this with exp259 but I expect that the behavior would be the same.
This is with themes enabled and enabled for the tabpage. I did not try without a tabpage but tried by removing the manifest and enclosed the image. The behavior between 1.9 is the same in that case.
So it appears that something is not working properly for Xbase 2.0/Express with themes enabled and the :SetcolorBG() method versus the use of presentation parameters. This has been forwarded with a prior example to Andreas at Alaska and I will also provide Alaska Support with this example.
I do not know if the interaction of Express has anything to do with this as the same Express code is used for both versions.
Code: Select all
#include "dcdialog.ch"
LOCAL Getlist := {}, x := .T., oTabpage, ogroupbox
@ 0,0 dctabpage otabpage SIZE 30, 30 TABWIDTH 10 CAPTION 'Xbase++ 2.0'
dcsetparent to otabpage
@ 1,3 DCCHECKBOX x prompt 'prompt1' color GRA_CLR_BLACK,XBPSYSCLR_TRANSPARENT
@ 2,3 DCCHECKBOX x prompt 'prompt2'
@ 3,3 DCCHECKBOX x prompt 'prompt3' color GRA_CLR_BLACK,XBPSYSCLR_TRANSPARENT WHEN {|| .F.}
@ 4,3 DCCHECKBOX x prompt 'prompt4' WHEN {|| .F.}
@ 5,3 DCCHECKBOX x prompt 'prompt5' PRESENTATION {{ XBP_PP_BGCLR, -255 }} WHEN {|| .F.}
@ 6,3 DCCHECKBOX x prompt 'prompt6' EVAL {|o| o:SetColorBG(XBPSYSCLR_TRANSPARENT)} WHEN {|| .F.}
@ 7,3 DCCHECKBOX x prompt 'prompt7' color GRA_CLR_BLACK,GRA_CLR_RED WHEN {|| .F.}
@ 8,3 DCCHECKBOX x prompt 'prompt8' PRESENTATION {{ XBP_PP_BGCLR, GRA_CLR_RED }}
@ 9,3 DCCHECKBOX x prompt 'prompt9' color GRA_CLR_BLACK,GRA_CLR_RED WHEN {|| .F.}
@ 10,3 DCCHECKBOX x prompt 'prompt10' PRESENTATION {{ XBP_PP_BGCLR, GRA_CLR_RED }} WHEN {|| .F.}
@ 12,1 DCGROUP ogroupbox SIZE 20,14
dcsetparent to ogroupbox
@ 1,3 DCCHECKBOX x prompt 'prompt1' color GRA_CLR_BLACK,XBPSYSCLR_TRANSPARENT
@ 2,3 DCCHECKBOX x prompt 'prompt2'
@ 3,3 DCCHECKBOX x prompt 'prompt3' color GRA_CLR_BLACK,XBPSYSCLR_TRANSPARENT WHEN {|| .F.}
@ 4,3 DCCHECKBOX x prompt 'prompt4' WHEN {|| .F.}
@ 5,3 DCCHECKBOX x prompt 'prompt5' PRESENTATION {{ XBP_PP_BGCLR, -255 }} WHEN {|| .F.}
@ 6,3 DCCHECKBOX x prompt 'prompt6' EVAL {|o| o:SetColorBG(XBPSYSCLR_TRANSPARENT)} WHEN {|| .F.}
@ 7,3 DCCHECKBOX x prompt 'prompt7' color GRA_CLR_BLACK,GRA_CLR_RED WHEN {|| .F.}
@ 8,3 DCCHECKBOX x prompt 'prompt8' PRESENTATION {{ XBP_PP_BGCLR, GRA_CLR_RED }}
@ 9,3 DCCHECKBOX x prompt 'prompt9' color GRA_CLR_BLACK,GRA_CLR_RED WHEN {|| .F.}
@ 10,3 DCCHECKBOX x prompt 'prompt10' PRESENTATION {{ XBP_PP_BGCLR, GRA_CLR_RED }} WHEN {|| .F.}
dcread gui FIT
return
- checkboxtest1-enhanced.xpj.jpg (67.61 KiB) Viewed 17712 times
- checkboxtest1-enhanced-notheme.jpg (54.73 KiB) Viewed 17712 times