QB64/InForm
QB64/InForm
1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 11:59:34 +00:00
Code Issues Releases Wiki Activity

Prevents SetRadioButtonValue method from altering other types of controls.

Browse source
This commit is contained in:
FellippeHeitor 2018-05-24 11:22:21 -03:00
parent 309cffb044
commit b0e3e5bb5c
1 changed files with 24 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
InForm/InForm.ui
View file

@ -4581,25 +4581,32 @@ SUB SetRadioButtonValue (id AS LONG)
'Also works for menus with the .BulletStyle set to __UI_Bullet
DIM i AS LONG
FOR i = 1 TO UBOUND(Control)
SELECT CASE Control(id).Type
CASE __UI_Type_RadioButton
IF Control(i).Type = __UI_Type_RadioButton AND Control(i).ParentID = Control(id).ParentID THEN
IF Control(i).Value THEN
Control(i).Value = False
__UI_ValueChanged i
IF Control(id).Type = __UI_Type_MenuItem AND Control(id).BulletStyle <> __UI_Bullet THEN
Control(id).Value = NOT Control(id).Value
EXIT SUB
END IF
IF Control(id).Type = __UI_Type_MenuItem OR Control(id).Type = __UI_Type_RadioButton THEN
FOR i = 1 TO UBOUND(Control)
SELECT CASE Control(id).Type
CASE __UI_Type_RadioButton
IF Control(i).Type = __UI_Type_RadioButton AND Control(i).ParentID = Control(id).ParentID THEN
IF Control(i).Value THEN
Control(i).Value = False
__UI_ValueChanged i
END IF
END IF
END IF
CASE __UI_Type_MenuItem
IF Control(i).Type = __UI_Type_MenuItem AND Control(i).ParentID = Control(id).ParentID THEN
IF Control(i).MenuItemGroup = Control(id).MenuItemGroup THEN
Control(i).Value = False
CASE __UI_Type_MenuItem
IF (Control(i).Type = __UI_Type_MenuItem AND Control(i).BulletStyle = __UI_Bullet) AND Control(i).ParentID = Control(id).ParentID THEN
IF Control(i).MenuItemGroup = Control(id).MenuItemGroup THEN
Control(i).Value = False
END IF
END IF
END IF
END SELECT
NEXT
Control(id).Value = True
IF Control(id).Type = __UI_Type_RadioButton THEN __UI_ValueChanged id
END SELECT
NEXT
Control(id).Value = True
IF Control(id).Type = __UI_Type_RadioButton THEN __UI_ValueChanged id
END IF
END SUB
'---------------------------------------------------------------------------------