Checkbox problem when disabled.

[Horizon]

Hi,

My example is below. The problem is that when I press disable button, the area that is below the checkbox is disappeared.

In this case, when I move the mouse in this area, the lost fields are coming back again.

Code: Select all  Expand view  RUN

include "Fivewin.ch"


FUNCTION MAIN( )

    LOCAL oDlg, oChk, oChk2

    LOCAL lChk := .F., lChk2 := .F.

    DEFINE DIALOG oDlg
        oDlg:lTransparent := .T.

    @ 1, 1 CHECKBOX oChk VAR lChk PROMPT "Test";
           SIZE 100, 13

    @ 2, 1 CHECKBOX oChk2 VAR lChk2 PROMPT "Test2";
           SIZE 100, 13

    @ 3, 1 BUTTON "Disable";
           ACTION oChk:Disable()

    @ 3, 10 BUTTON "Enable";
           ACTION oChk:Enable()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

Code: Select all  Expand view  RUN

#ifndef __64__
  1 24 "winxp\WindowsXP.Manifest"
#endif
 

I think this is related Transparent issue. When I delete oDlg:lTransparent := .T., There is not any problem.

How Can I solve this problem?

Thanks.

[cnavarro]

At moment

Code: Select all  Expand view  RUN

   @ 3, 1 BUTTON "Disable";
           ACTION ( oChk:Disable(), oDlg:Refresh() ) OF oDlg

    @ 3, 10 BUTTON "Enable";
           ACTION ( oChk:Enable(), oDlg:Refresh() ) OF oDlg

 

[Horizon]

At moment

Code: Select all  Expand view  RUN

   @ 3, 1 BUTTON "Disable";
           ACTION ( oChk:Disable(), oDlg:Refresh() ) OF oDlg

    @ 3, 10 BUTTON "Enable";
           ACTION ( oChk:Enable(), oDlg:Refresh() ) OF oDlg

 

Thank you Mr. Navarro. it works.