- Code: Select all Expand view
- function testbutton()
local oDlg
local nOption := 2
local obtn1, obtn2
local oRad
DEFINE DIALOG oDlg FROM 0, 0 TO 34, 99 ;
TITLE "Test RADIO BUTTON" ;
GRADIENT { { 1, nRGB( 199, 216, 237 ), nRGB( 237, 242, 248 ) } }
@ 13, 0.22 RADIO oRad VAR nOption PROMPT "This is option 1",;
"This is option 2" OF oDlg;
ON CHANGE { || radiobtntest(nOption) } size 100, 10.45 UPDATE
@ 13.49, 29.3 BUTTON "&OK" OF oDlg SIZE 40, 12 ACTION (oDlg:End())
@ 1, 1 BUTTON oBtn1 PROMPT "&Change To Option 1" OF oDlg SIZE 8, 8 ACTION (changebutton(1))
@ 2, 1 BUTTON oBtn2 PROMPT "C&hange To Option 2" OF oDlg SIZE 8, 8 ACTION (changebutton(2))
ACTIVATE DIALOG oDlg CENTERED
return nil
*****************************************
function radiobtntest()
parameter ckhradio
if ckhradio = 1
nOption = 1
else
nOption = 2
endif
return nil
********************************************
function changebutton(buttontype)
if buttontype = 1
nOption = 1
else
nOption = 2
endif
return nil
***************************
How do I change the radio button to option 1 when I click the top button.
Thanks
ACWOO
Using bcc582+harbour+FWH1304