GUICtrlCreate Problem mit Spalte

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Form1", 800, 443, 192, 124)
$btnCheckbox = GUICtrlCreateButton("Checkbox", 504, 400, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

Global $Wahl,$reihenAnzahl,$spaltenNr

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

Case $btnCheckbox
_Namen()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Namen()
Dim $Links = 25
Dim $oben = 30
Dim $Zwischen = 50
Dim $Zeilen = 4
Dim $Abstand = 300
Dim $Namebreite = 100
Dim $Namehoehe = 10

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Wahl &= "c1 Name1|"
$Wahl &= "d2 Name2|"
$Wahl &= "e3 Name3|"
$Wahl &= "n4 Name4|"
$Wahl &= "n5 Name5|"
$Wahl &= "f6 Name6|"
$Wahl &= "p7 Name7|"
$Wahl &= "p8 Name8|"
$Wahl &= "r9 Name9|"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$WahlSplit = StringSplit($Wahl, "|")
Global $Checkbox[$WahlSplit[0]]
Global $CheckboxName[$WahlSplit[0]]
Global $arProgress[$WahlSplit[0]]

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

For $i = 1 To $WahlSplit[0]-1
If $i > 2 Then
If Mod($i - 1, $reihenAnzahl) = 0 Then $spaltenNr += 1
EndIf
$chkName = StringTrimLeft($WahlSplit[$i], 3)
$Checkbox[$i] = GUICtrlCreateCheckbox($chkName, $Links + Int($i / $Zeilen) * $Abstand, $oben + Mod($i, $Zeilen) * $Zwischen, $Namebreite, $Namehoehe)
$arProgress[$i] = GUICtrlCreateProgress($Links + 100 + Int($i / $Zeilen) * $Abstand, $Oben + Mod($i, $Zeilen) * $Zwischen, $Namebreite, $Namehoehe)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetFont($Checkbox[$i], 10, 500, 0, "Arial")

[/autoit] [autoit][/autoit] [autoit]

Next

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit]