Large check boxes

[Myicq]

Is there any example code for large (touch screen friendly) check boxes ? I need to create a gui full-screen with about 16 different check boxes, approx 1x1 cm size.

As this is not directly possible with Windows, I wonder if anyone has example code already ?

 

My take would be to put Windings font in a label, and keep state behind the scenes in an sqlite database.

Is this approach best way ?

[Melba23]

Myicq,

Is this solution any use?

M23

[royalmarine]

To quickly create multiple checkboxes of Melba23's suggestion, I used the following

It creates 8 checkboxes, and enable / disable all works. However, I can't quite figure out how to manually click individual checkboxes yet...

If you can get it working, would be happy to know

expandcollapse popup

Global $iDispensers = 8, $aCheckbox[$iDispensers], $iCountChecked = 0

For $i = 0 To $iDispensers - 1
    $aCheckbox[$i] = GUICtrlCreateLabel("", 72, ($i * 32) + 16, 30, 30, 0x1201)
    GUICtrlSetFont(-1, 19, 400, 0, "Marlett")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlCreateLabel("Dispenser" & $i + 1, 115, ($i * 32) + 25, 100, 30)
Next
$CheckboxAll = GUICtrlCreateLabel("", 72, ($i * 32) + 16, 30, 30, 0x1201)
    GUICtrlSetFont(-1, 19, 400, 0, "Marlett")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlCreateLabel("Enable/Disable All", 115, 280, 100, 30)

GUISetState()

While 1
    $nMsg = GUIGetMsg()

    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $CheckboxAll
            $bCheckAll = _IsChecked($CheckboxAll)
            Switch GUICtrlRead($CheckboxAll)
                Case ""
                    GUICtrlSetData($CheckboxAll, "a")
                        For $i = 0 To UBound($aCheckbox, 1) - 1
                            If $bCheckAll Then
                                GUICtrlSetData($aCheckbox[$i], "")
                            Else
                                GUICtrlSetData($aCheckbox[$i], "a")
                            EndIf
                        Next
                Case "a"
                    GUICtrlSetData($CheckboxAll, "")
                        For $i = 0 To UBound($aCheckbox, 1) - 1
                            If $bCheckAll Then
                                GUICtrlSetData($aCheckbox[$i], "a")
                            Else
                                GUICtrlSetData($aCheckbox[$i], "")
                            EndIf
                        Next
                Case Else
                    GUICtrlSetData($CheckboxAll, "")
            EndSwitch

 

Edited November 24, 2016 by royalmarine