NOMAINWIN WindowWidth = 175 WindowHeight = 185 GROUPBOX #main.gb1, " RadioButton Test ", 10, 5, 150, 80 RADIOBUTTON #main.rb1, "RadioButton 1", [rb1Set], [rb1Reset], 25, 20, 100, 20 RADIOBUTTON #main.rb2, "RadioButton 2", [rb2Set], [rb2Reset], 25, 40, 100, 20 RADIOBUTTON #main.rb3, "RadioButton 3", [rb3Set], [rb3Reset], 25, 60, 100, 20 BUTTON #main.b1, "Enable", [b1Click], UL, 10, 90, 75, 25 BUTTON #main.b2, "Disable", [b2Click], UL, 90, 90, 75, 25 BUTTON #main.b3, "SetRB1", [b3Click], UL, 5, 120, 50, 25 BUTTON #main.b4, "SetRB2", [b4Click], UL, 60, 120, 50, 25 BUTTON #main.b5, "SetRB3", [b5Click], UL, 115, 120, 50, 25 OPEN "RadioButton Test" FOR window_nf AS #main #main, "font ms_sans_serif 10" #main, "trapclose [main.quit]" [rb1Set] [rb1Reset] [rb2Set] [rb2Reset] [rb3Set] [rb3Reset] WAIT [b1Click] #main.rb1, "enable" #main.rb2, "enable" #main.rb3, "enable" WAIT [b2Click] #main.rb1, "disable" #main.rb2, "disable" #main.rb3, "disable" WAIT [b3Click] #main.rb1, "set" WAIT [b4Click] #main.rb2, "set" WAIT [b5Click] #main.rb3, "set" WAIT [main.quit] CLOSE #main END
|
|
|