FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour ERROR ON RADIO
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
ERROR ON RADIO
Posted: Sun Apr 10, 2011 11:00 AM
WHEN IF i USE TWO RADIO AND CLICK ON SECOND RADIO FWH HIDE THE FIRST RADIO ?

Code (fw): Select all Collapse
 #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
Best Regards, Saludos



Falconi Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Re: ERROR ON RADIO
Posted: Mon Apr 11, 2011 09:38 AM

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

Best Regards, Saludos



Falconi Silvio

Continue the discussion