Creating checkboxes with counting up.

[JoshuaLoman]

Still experimenting with autoit.. dont know how to get the following to work

I have a GUI, where i need to create multiple(like 50) checkboxes under or next to each other.

Until now i have this code:

Global $CheckboxCount = "50"
For $CheckboxCounter = 1 to $CheckboxCount
  GUICtrlCreateCheckbox("TS00" & $CheckboxCounter & "",5,10)
Next

So i need to create multiple checkboxes with the name TS001, TS002, TS003 etc. Well i think this counter does that job.

The following problem is, how to place the checkboxes under eacher other, so the height must count up with 20 for examples, so it makes height 10, 30, 50 etc.

any help would be appreciated

[Robjong]

Untested, but it should get you started

; the 3 in %03d is the length of the number including leading zeros you want
; 8 + ($i * 20)
Local $CheckboxCount = 10
For $CheckboxCounter = 1 to $CheckboxCount  
    GUICtrlCreateCheckbox(StringFormat('TS%03d', $CheckboxCounter), 5, 8 + ($CheckboxCounter * 20)) ; 8 is starting offset, 20 is assumed height
Next

Edited February 3, 2012 by Robjong

[JoshuaLoman]

Works great thanks! I understand what you are doing..

But the next thing is.. what is want now is that the checkboxes after 20, form a new row next to the row 1 til 20.. so it will adjust the width automatically for 21 til 30 etc..

Cant figure it out with if then else..

[Robjong]

how about something like this (again untested)

Local $CheckboxCount = 30, $iOffsetLeft = 5, $iOffsetTop = 10
For $CheckboxCounter = 1 to $CheckboxCount
    GUICtrlCreateCheckbox(StringFormat('TS%03d', $CheckboxCounter), $iOffsetLeft, $iOffsetTop) ; 8 is starting offset, 20 is assumed height
    $iOffsetTop += 20
    If IsInt($CheckboxCounter / 10) Then
        $iOffsetLeft += 150 ; this was item 10, 20 30 etc. so we update offset from the left
        $iOffsetTop = 10
    EndIf
Next

Edit: forgot to reset top offset before

Edited February 3, 2012 by Robjong

[JoshuaLoman]

Thanks, works!

[JoshuaLoman]

The checkboxes are created well, but now the problem is that i want to read the $GUI_CHECKED from a particular checkbox when i click the function ButtonServersOk. Apparently i cannot use GUICTRLRead with arrays so i cannot do the $GUI_CHECKED check.

Cant get it to work.

Global $CheckboxArray[50]

Func ButtonServers()
Local $CheckboxCount = 50, $iOffsetLeft = 5, $iOffsetTop = 10

$ServersPopup = GUICreate("Servers",270,440)
GUISetIcon("icon.ico")
TraySetIcon("icon.ico")
$btnServersOk = GUICtrlCreateButton("Ok",5,415,90,20)
GUICtrlSetOnEvent($btnServersOk, "ButtonServersOk")
GUISetOnEvent($GUI_EVENT_CLOSE, "ClosePopup")
GUICtrlCreateCheckbox("Alle servers",100,415)
For $CheckboxCounter = 1 to $CheckboxCount
  GUICtrlCreateCheckbox(StringFormat("TS%03d", $CheckboxCounter), $iOffsetLeft, $iOffsetTop)
  $iOffsetTop += 20
  If IsInt($CheckboxCounter / 20) Then
   $iOffsetLeft += 70
   $iOffsetTop = 10
  EndIf
$CheckboxArray[$CheckboxCounter -1] = $CheckboxCounter
Next

GUISetState(@SW_SHOW, $ServersPopup)
EndFunc

Func ButtonServersOk()
  $CheckboxChecked = GUICtrlRead($CheckboxArray[1])
  If $CheckboxChecked = $GUI_CHECKED Then
  MsgBox(0,"", $CheckboxChecked)
  EndIf
EndFunc

Edited February 6, 2012 by JoshuaLoman

[Melba23]

JoshuaLoman,

i cannot use GUICTRLRead with arrays

Of course you can - but you need to loop through the elements like this:

expandcollapse popup

#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)

Global $ServersPopup, $CheckboxCount = 50, $CheckboxArray[$CheckboxCount + 1]

ButtonServers()

While 1
    Sleep(10)
WEnd

Func ButtonServers()

    Local $iOffsetLeft = 5, $iOffsetTop = 10

    $ServersPopup = GUICreate("Servers", 270, 440)
    GUISetOnEvent($GUI_EVENT_CLOSE, "ClosePopup")
    ;GUISetIcon("icon.ico")
    ;TraySetIcon("icon.ico")
    $btnServersOk = GUICtrlCreateButton("Ok", 5, 415, 90, 20)
    GUICtrlSetOnEvent($btnServersOk, "ButtonServersOk")

    GUICtrlCreateCheckbox("Alle servers", 100, 415)
    For $CheckboxCounter = 1 To $CheckboxCount
        GUICtrlCreateCheckbox(StringFormat("TS%03d", $CheckboxCounter), $iOffsetLeft, $iOffsetTop)
        $iOffsetTop += 20
        If IsInt($CheckboxCounter / 20) Then
            $iOffsetLeft += 70
            $iOffsetTop = 10
        EndIf
        $CheckboxArray[$CheckboxCounter - 1] = $CheckboxCounter
    Next

    GUISetState(@SW_SHOW, $ServersPopup)

EndFunc   ;==>ButtonServers

Func ButtonServersOk()
    For $i = 1 To $CheckboxCount
        If GUICtrlRead($CheckboxArray[$i]) = 1 Then
            MsgBox(0, "", GUICtrlRead($CheckboxArray[$i], 1) & " checked")
        EndIf
    Next
EndFunc   ;==>ButtonServersOk

Func ClosePopup()
    GUIDelete($ServersPopup)
    Exit
EndFunc

All clear?

M23

P.S. Please post code that actually works if you want help - not everyone is prepared to add the necessary additional lines for it to run.

[JoshuaLoman]

Works, great!! Very clear to me

About the code, will do it right next time