Buttons erstellen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIScroll.au3>
$sWinTitle = "Form1"

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

Dim $Oben = 50
Dim $Links = 40
Dim $Spalten = 4
Dim $Buttonbreite = 80
Dim $Buttonhoehe = 150
Dim $Spaltenstart = 0

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

$var = IniReadSection(@ScriptDir & '\Namen.ini',"Name")
If @error Then
MsgBox(4096, "", "Es ist ein Fehler aufgetreten. Warscheinlich keine INI Datei vorhanden.")
Else
$Form1 = GUICreate($sWinTitle, 650, 400, 200, 100, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_VSCROLL))
GUISetState(@SW_SHOW)
GUISetState(@SW_MAXIMIZE)
Scrollbar_Create($Form1, $SB_VERT, (Ceiling($var[0][0]/$Spalten) * $Buttonhoehe) + $Oben); Höhe für vertikale Scrollbar = Anzahl Reihen * Buttonhöhe + Kopfzeilenhöhe
Scrollbar_Step(20, $Form1, $SB_VERT); Scrolls per 20 pixels.
$aGUISize = WinGetClientSize ($sWinTitle)
$Buttonbreite = ($aGUISize[0] - $Links) / $Spalten
For $i = 1 To $var[0][0]
GUICtrlCreateButton($var[$i][1],$Links,$oben,$Buttonbreite,$Buttonhoehe)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$Links += $Buttonbreite
$Spaltenstart +=1
If $Spaltenstart = $Spalten Then
$Spaltenstart = 0
$Links =40
$oben +=$Buttonhoehe
endif
Next
EndIf

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

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

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

EndSwitch
WEnd

[/autoit]