Is there an easy way?

Clark · September 2, 2011

This is the sort screen for a reporting app I am putting together for internal use.

Posted Image

Each of the boxed areas is grouped, so that only one radio button can be active.

BUT, when I select a radio button in a group, the same radio buttons in the other groups must be disabled. (As shown in the graphic)

Now the only way I can see to do this is to write code for each and every button to do this, and also to find which other buttons might be disabled to re-activate them (say, if a user has previously selected a different radio button).

That would be a lot of code and I am thinking there must be a simpler way.

Is there a way for e.g. to have a radio button multi grouped? So in the graphic the Defect ID would be grouped within both "First by" and then also with the other radio buttons of the same name.

Or is there a better way entirely to do this? I'm not hung up on radio buttons.

Edited September 2, 2011 by Clark

monoscout999 · September 2, 2011

Maybe using arrays and a check variable and a function to do the job, it is not so hard, right now i can not write any snippet, but later i will post an example of what i am saying

guinness · September 2, 2011

I had this example in my function folder or you can search the forum too.

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIConstantsEx.au3>
#include <GUIMenu.au3>
#include <WindowsConstants.au3>

Global $aCheckbox[17][2] = [[16, 2]], $hContextMenu, $hGUI, $iButton, $iLeft = 8, $iTop = 8, $sChecked
$hGUI = GUICreate("Multiple Checkbox Example", 365, 225)

For $A = 1 To $aCheckbox[0][0]
$aCheckbox[$A][0] = GUICtrlCreateCheckbox("Checkbox " & $A, $iLeft, $iTop, 95, 16)
If Mod($A, 10) = 0 Then
$iLeft *= 16
$iTop = 8
ContinueLoop
EndIf
$iTop += 20
Next
$iButton = GUICtrlCreateButton("Sumbit", 232, 128, 75, 25)

Global Enum $iContextItem_1 = 1000, $iContextItem_2
$hContextMenu = _GUICtrlMenu_CreatePopup()
_GUICtrlMenu_InsertMenuItem($hContextMenu, 0, "Select All", $iContextItem_1)
_GUICtrlMenu_InsertMenuItem($hContextMenu, 1, "Select None", $iContextItem_2)

GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)

AdlibRegister("Checkbox_Check", 200)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
GUIRegisterMsg($WM_CONTEXTMENU, "WM_CONTEXTMENU")

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
AdlibUnRegister("Checkbox_Check")
GUIRegisterMsg($WM_COMMAND, "")
GUIRegisterMsg($WM_CONTEXTMENU, "")
Exit

Case $iButton
$sChecked = ""
For $A = 1 To $aCheckbox[0][0]
If $aCheckbox[$A][1] Then
$sChecked &= $A & ", "
EndIf
Next
MsgBox(0, "Information", "Following Checkboxes Are Checked: " & @CRLF & @CRLF & StringTrimRight($sChecked, 2))

EndSwitch
WEnd

Func Checkbox_Check()
Local $iAdd
For $A = 1 To $aCheckbox[0][0]
$aCheckbox[$A][1] = BitAND(GUICtrlRead($aCheckbox[$A][0]), $GUI_CHECKED)
$iAdd += $aCheckbox[$A][1]
Next
If $iAdd Then
If Not BitAND(GUICtrlGetState($iButton), $GUI_ENABLE) Then
GUICtrlSetState($iButton, $GUI_ENABLE)
EndIf
Else
If Not BitAND(GUICtrlGetState($iButton), $GUI_DISABLE) Then
GUICtrlSetState($iButton, $GUI_DISABLE)
EndIf
EndIf
EndFunc ;==>Checkbox_Check

Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $ilParam
Switch $iwParam
Case $iContextItem_1
For $A = 1 To $aCheckbox[0][0]
GUICtrlSetState($aCheckbox[$A][0], $GUI_CHECKED)
Next
Case $iContextItem_2
For $A = 1 To $aCheckbox[0][0]
GUICtrlSetState($aCheckbox[$A][0], $GUI_UNCHECKED)
Next
EndSwitch
Return "GUI_RUNDEFMSG"
EndFunc ;==>WM_COMMAND

Func WM_CONTEXTMENU($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $iMsg, $iwParam, $ilParam
_GUICtrlMenu_TrackPopupMenu($hContextMenu, $hWnd)
Return 1
EndFunc ;==>WM_CONTEXTMENU

Edited September 2, 2011 by guinness

Clark · September 2, 2011

Thanks Guiness,

I'm having trouble understanding how that applies to my particular question?

I know how to check whether a particular button is pushed or not, and enabled or not, and in fact how to enable it, but to do that for every combination seems a lot of code.

monoscout999 · September 2, 2011

This is not very prolix but you can get an idea from here.

#include <GUIConstantsEx.au3>
Global $check = False

$hGui = GUICreate("Check Radios", 300, 600)
GUICtrlCreateGroup("group 1", 5, 5, 290, 190)
Global $Checks1[6]
Global $Width = 130
Global $Height = 40
Global $y = 20
Global $x = 10
Global $a = 0
For $i = 0 To UBound($Checks1) - 1
    $Checks1[$i] = GUICtrlCreateRadio("Check 1 " & $i, $x + $Width * $a + $x * $a, $y, $Width, $Height)
    If $a = 1 Then
        $a = 0
        $y = $Height + $y
    Else
        $a = 1
    EndIf
Next
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("group 2", 5, 205, 290, 190)
Global $Checks2[6]
$y = 220
For $i = 0 To UBound($Checks2) - 1
    $Checks2[$i] = GUICtrlCreateRadio("Check 2 " & $i, $x + $Width * $a + $x * $a, $y, $Width, $Height)
    If $a = 1 Then
        $a = 0
        $y = $Height + $y
    Else
        $a = 1
    EndIf
Next
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("group 3", 5, 405, 290, 190)
Global $Checks3[6]
$y = 420
For $i = 0 To UBound($Checks3) - 1
    $Checks3[$i] = GUICtrlCreateRadio("Check 3 " & $i, $x + $Width * $a + $x * $a, $y, $Width, $Height)
    If $a = 1 Then
        $a = 0
        $y = $Height + $y
    Else
        $a = 1
    EndIf
Next
GUICtrlCreateGroup("", -99, -99, 1, 1)
; Just to release the memory
$a = 0
$x = 0
$y = 0
$Width = 0
$Height = 0
; -----------------------------
GUISetState()

While True
    $iMsg = GUIGetMsg()
    Switch $iMsg
        Case -3
            Exit
        Case $Checks1[0] To $Checks1[5]
            $check = Not $check
    EndSwitch
    If $check Then _CheckRadio()
WEnd
Func _CheckRadio()
    $check = Not $check
    For $i = 0 To UBound($Checks1) - 1
        If BitAND(GUICtrlRead($Checks1[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
            GUICtrlSetState($Checks2[$i], $GUI_DISABLE)
            GUICtrlSetState($Checks3[$i], $GUI_DISABLE)
        Else
            GUICtrlSetState($Checks2[$i], $GUI_ENABLE)
            GUICtrlSetState($Checks3[$i], $GUI_ENABLE)
        EndIf
    Next
EndFunc   ;==>_CheckRadio

Clark · September 2, 2011

Monoscout, you're a legend!

Thankyou kindly sir.

Spiff59 · September 3, 2011

Arrays rock. This is the route I'd go:

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
 
Global $aGroup[4] = [0, "First by", "Then by", "Lastly by"]
Global $aKey[7][2] = [[6, 0], ["Defect ID", 0], ["Defect Name", 0], ["Defect Status", 0], ["By Date", 0], ["By Reporter", 0], ["By Assignee", 0]]
Global $Radio_Key[4][7]
Global $Current_Group = 1
 
;===================================================================================================================================
GUICreate("", 260, 345)
For $x = 1 to 3
  GUICtrlCreateGroup($aGroup[$x], 20, 100 * $x - 90, 220, 90)
  For $y = 1 to 3
    $Radio_Key[$x][$y] = GUICtrlCreateRadio($aKey[$y][0], 30, 100 * $x + 20 * $y - 90, 85, 16)
  Next
  For $y = 1 to 3
    $Radio_Key[$x][$y + 3] = GUICtrlCreateRadio($aKey[$y + 3][0], 135, 100 * $x + 20 * $y - 90, 85, 16)
  Next
Next
$Button_Clear = GUICtrlCreateButton("CLEAR", 40, 315, 80, 20)
$Button_Sort = GUICtrlCreateButton("SORT", 140, 315, 80, 20)
GUISetState()
Update_Keys(-7)
 
;-----------------------------------------------------------------------------------------------------------------------------------
While 1
$msg = GUIGetMsg()
Switch $msg
  Case $Radio_Key[1][1] to $Radio_Key[3][6]
   $msg -= $Radio_Key[1][1]
   Update_Keys($msg - Int($msg / 7))
  Case $Button_Clear
   Clear_Group()
   Update_Keys(-7)
  Case $Button_Sort
   _ArrayDisplay($aKey)
  Case -3
   Exit
EndSwitch
WEnd
 
;==================================================================================================================================
Func Update_Keys($ctrlid)
Local $group = Int($ctrlid / 6) + 1, $radio = Mod($ctrlid, 6) + 1
If $radio Then
  $aKey[$radio][1] = $group; mark field as used in this group
  For $x = 1 to 6 ; lock this group as used
   If $x <> $radio Then GUICtrlSetState($Radio_Key[$group][$x], $GUI_DISABLE)
  Next
  If $Current_Group < 4 Then $Current_Group += 1
EndIf
For $x = $Current_Group to 3 ; open "new" current group (if not used) then lock remaining groups
  For $y = 1 to 6
   If Not $aKey[$y][1] And $x = $Current_Group Then
    GUICtrlSetState($Radio_Key[$x][$y], $GUI_ENABLE)
   Else
    GUICtrlSetState($Radio_Key[$x][$y], $GUI_DISABLE)
   EndIf
  Next
Next
EndFunc
 
Func Clear_Group()
If $Current_Group > 1 Then $Current_Group -= 1
For $x = 1 to 6
  GUICtrlSetState($Radio_Key[$Current_Group][$x], $GUI_UNCHECKED)
  If $aKey[$x][1] = $Current_Group Then $aKey[$x][1] = 0
Next
EndFunc

Edit: Switched from |Code| tags to |Autoit| tags. Hopefully it'll better retain the source formatting...

Edit2: Nope :mellow:

Edited September 3, 2011 by Spiff59

Clark · September 5, 2011

Nice. That one is pretty clever also. 20 less lines, but I think the functionality given Monoscout's snippet is more like what I was looking for.

Clark · September 5, 2011

Actually, I spoke to soon.

Unfortunately Monoscout's doesn't work properly, and I think it will be difficult for me to fix it. I will try Spiff's one instead.

(Mono, if you are interested, the problem is that when you have selected a radio button in group 2 you can still select the same radio button in group 1. This is probably just my bad specification. I think Spiff's solution should avoid this problem entirely.)

Thanks all.

Sign In

Is there an easy way?

Recommended Posts

Clark

Link to comment

Share on other sites

monoscout999

Link to comment

Share on other sites

guinness

Link to comment

Share on other sites

Clark

Link to comment

Share on other sites

monoscout999

Link to comment

Share on other sites

Clark

Link to comment

Share on other sites

Spiff59

Link to comment

Share on other sites

Clark

Link to comment

Share on other sites

Clark

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta