ERROR ON RADIO

[Silvio]

WHEN IF i USE TWO RADIO AND CLICK ON SECOND RADIO FWH HIDE THE FIRST RADIO ?

Code: Select all  Expand view

#include "fivewin.ch"

Function Test()
LOCAL oDlg,oRAD1,NTIPO:=1

lOCAL lUppercase:=.F.
LOCAL cUpperCase:="SSSS"


DEFINE DIALOG oDlg

@ 6, 10 RADIO oRad1 VAR ntipo PROMPT "&RADIO 1" PIXEL SIZE 105, 12 OF oDlg

@ 22, 20 CHECKBOX lUppercase PROMPT cUpperCase OF oDlg SIZE 180, 12 PIXEL  WHEN ntipo=1

@ 42, 10 RADIOITEM "RADIO 2" RADIOMENU oRad1 PIXEL SIZE 105, 12 OF oDlg

activate dialog oDlg

retuRN NIL

I try to modify control.prg

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


Bu tI have the same error on Win xp and Win Seven

[Silvio]

Now on win xp I add

function IsAppThemed()

return .F.

and it seems go ok , this afternoon I try to win seven

I'm thinking perhaps there is an error on DrawPBack( ::hWnd, hDC ) function