Painting of disabled checkboxes not ok

[byte-one]

The first picture shows normal dialog!


This picture shows, when the status from the checkbox changes from enable to disable. In this case the background from left,top from checkbox to the right,bottom corner of dialog is erased. The text above are disabled by me (not error)!!

As tip: This "bug" are not visible, when the following code in METHOD Colors() from TCONTROL are temporarely deleted! Any massage also to send?

Code: Select all  Expand view

SendMessage( ::oWnd:hWnd, WM_ERASEBKGND, hDC, 0 ) // to properly remove/set the dotted rect

[byte-one]

Antonio, any suggestion?

[byte-one]

Antonio, any solution for this problem? I found, this problem are only shown, if the dialog is transparent!

[fgondi]

Antonio,

Yo tengo el mismo problema con los radiobutton

Code: Select all  Expand view

Redefine Radio oRadio VAR nOpc ID 805,806 OF oDlg

[RAMESHBABU]

Try with this:

Set lTransparent Property of your Group Boxes with .T. as under:

Code: Select all  Expand view

oGroupBox:lTransparent := .T.

It it does not work, please post the code here to give you a solution.

- Ramesh Babu

[byte-one]

In Tcontrol method Colors() i change

Code: Select all  Expand view

SendMessage( ::oWnd:hWnd, WM_ERASEBKGND, hDC, 0 ) // to properly remove/set the dotted rect

with

Code: Select all  Expand view

DrawPBack(::hWnd,hDC)

and it seems, that all is functioning! This behavoir is only with lTransparent and themed!

[fgondi]

In Tcontrol method Colors() i change

Code: Select all  Expand view

SendMessage( ::oWnd:hWnd, WM_ERASEBKGND, hDC, 0 ) // to properly remove/set the dotted rect

with

Code: Select all  Expand view

DrawPBack(::hWnd,hDC)

and it seems, that all is functioning! This behavoir is only with lTransparent and themed!

Funciona perfercto, muchas gracias por la aportación.

[Antonio Linares]

The current code is:

Code: Select all  Expand view

            if Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP"
               // DrawPBack( ::hWnd,  hDC )
               ParentImage( ::hWnd, hDC )
               if Upper( ::ClassName() ) != "TGROUP"
                  SendMessage( ::oWnd:hWnd, WM_ERASEBKGND, hDC, 0 ) // to properly remove/set the dotted rect
               endif  
            endif
 

Are you changing it into: ?

Code: Select all  Expand view

            if Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP"
               DrawPBack( ::hWnd,  hDC )
            endif
 

[Gale FORd]

I downloaded and installed again. It did not solve my problem. Reading the thread and looking at control.prg It seems you guys are talking about being related to transparency.

I am just using testchk3.prg in the samples folder. No themes, no .rc, and no transparency.