Buttons nach Labelklick hinzufügen

1. offizieller Beitrag

    Hey an alle :)

    Habe mal wieder ein Problem...

    Ich möchte in meiner Gui durch einen Klick auf ein laben mit dem Text [+] das sich eine bestimmte Buttonreihe kopiert und eine spalte unter der davorigen kommt...

    Mein bisheriges Script sieht so aus:

    Spoiler anzeigen
    [autoit]

    Func _addprogramm()
    Local $ahigh=10
    Local $awidh=10
    Local $count=0
    Local $ghigh=80
    Local $gwidh=700

    GUICreate("Einträge Hinzufügen",$gwidh,$ghigh)
    GUICtrlCreateLabel("Name:",$awidh,$ahigh+$count)
    $namein=GUICtrlCreateInput("",$awidh+40,$ahigh-2+$count,120)
    GUICtrlCreateLabel("Pfad:",$awidh+170,$ahigh+$count)
    $pfadin=GUICtrlCreateInput("",$awidh+200,$ahigh-2+$count,120)
    $pfadsearch=GUICtrlCreateButton("Durchsuchen",$awidh+325,$ahigh-4+$count)
    GUICtrlCreateLabel("Bild:",$awidh+410,$ahigh+$count)
    $picin=GUICtrlCreateInput("",$awidh+435,$ahigh-2+$count,120)
    $picsearch=GUICtrlCreateButton("Durchsuchen",$awidh+560,$ahigh-4+$count)
    $addbuttons=GUICtrlCreateLabel("[+]",$awidh+650,$ahigh+1+$count)
    GUICtrlSetFont (-1,8,460,Default,"tahoma")

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

    GUICtrlCreateButton("Einträge Speichern und Übernehmen",$awidh+320,$ahigh+40+$count)
    GUICtrlCreateButton("Einträge Bearbeiten",$awidh+510,$ahigh+40+$count)
    GUICtrlCreateButton("Abbrechen",$awidh+620,$ahigh+40+$count)

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

    GUICtrlCreateGraphic(0,45,700,1)
    GUICtrlSetBkColor(-1, 0x000000)

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

    GUISetState()
    ;Schleife
    While 1
    $msg = GUIGetMsg()
    ;Switch $msg
    Switch $msg
    Case -3
    GUIDelete()
    ;_gui()
    Exit
    EndSwitch
    WEnd
    EndFunc

    [/autoit]

    Kann mir mal einer ein Beispiel geben wie ich das am besten mache das wenn man jetzt auf das label $addbuttons klickt das sich die oberen Buttons alle Dubliziert nochmal daruntersetzen?

    Danke für die Hilfe :)

    MFG: Blacky911

    Kleiner AutoIt Lehrling :)

    Einmal editiert, zuletzt von blackdeath911 (22. August 2010 um 14:45)

    Okay habe jetzt nur 1 Problem...
    Die Gui muss sich ja mit den Buttons auch vergrößern ohne sie zu deleten und neu kommen zu lassen...
    Finde da keine Passende funktion, oder gibt es sowas nicht?

    MFG: Blacky911

    Kleiner AutoIt Lehrling :)

    • Offizieller Beitrag

    Zum resizen der GUI kannst du WinMove oder _WinAPI_MoveWindow benutzen.

    Irgendwie will beides nicht...

    Hier mal mein Teil des Scripts:
    (Zeile 41,42)

    Spoiler anzeigen
    [autoit]

    Func _addprogramm()
    Local $ahigh=10
    Local $awidh=10
    Local $count=0
    Local $ghigh=80
    Local $gwidh=700
    Local $var1,$var2

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

    $gui1=GUICreate("Einträge Hinzufügen",$gwidh,$ghigh)
    GUICtrlCreateLabel("Name:",$awidh,$ahigh)
    $namein=GUICtrlCreateInput("",$awidh+40,$ahigh-2,120)
    GUICtrlCreateLabel("Pfad:",$awidh+170,$ahigh)
    $pfadin=GUICtrlCreateInput("",$awidh+200,$ahigh-2,120)
    $pfadsearch=GUICtrlCreateButton("Durchsuchen",$awidh+325,$ahigh-4)
    GUICtrlCreateLabel("Bild:",$awidh+410,$ahigh)
    $picin=GUICtrlCreateInput("",$awidh+435,$ahigh-2,120)
    $picsearch=GUICtrlCreateButton("Durchsuchen",$awidh+560,$ahigh-4)
    $addbuttons=GUICtrlCreateLabel("[+]",$awidh+650,$ahigh+1)
    GUICtrlSetFont (-1,8,460,Default,"tahoma")

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

    $copyright=GUICtrlCreateLabel("Coded by Blackdeath911 and Vampyr1091",$awidh-6,$ahigh+55)
    $save=GUICtrlCreateButton("Einträge Speichern und Übernehmen",$awidh+320,$ahigh+40)
    $bearbeiten=GUICtrlCreateButton("Einträge Bearbeiten",$awidh+510,$ahigh+40)
    $abort=GUICtrlCreateButton("Abbrechen",$awidh+620,$ahigh+40)

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

    $grafik7=GUICtrlCreateGraphic(0,45,700,1)
    GUICtrlSetBkColor(-1, 0x000000)

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

    GUISetState()
    ;Schleife
    While 1
    $msg = GUIGetMsg()
    ;Switch $msg
    Switch $msg
    Case -3
    GUIDelete()
    ;_gui()
    Exit
    Case $addbuttons
    $count=$count+25
    ;_WinAPI_MoveWindow($gui1,,Default,$gwidh,$ghigh+$count)
    winmove($gui1,Default,Default,$gwidh,$ghigh+$count)
    GUICtrlCreateLabel("Name:",$awidh,$ahigh+$count)
    $namein1=GUICtrlCreateInput("",$awidh+40,$ahigh-2+$count,120)
    GUICtrlCreateLabel("Pfad:",$awidh+170,$ahigh+$count)
    $pfadin1=GUICtrlCreateInput("",$awidh+200,$ahigh-2+$count,120)
    $pfadsearch1=GUICtrlCreateButton("Durchsuchen",$awidh+325,$ahigh-4+$count)
    GUICtrlCreateLabel("Bild:",$awidh+410,$ahigh+$count)
    $picin1=GUICtrlCreateInput("",$awidh+435,$ahigh-2+$count,120)
    $picsearch1=GUICtrlCreateButton("Durchsuchen",$awidh+560,$ahigh-4+$count)

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

    GUICtrlDelete ($copyright)
    GUICtrlDelete ($save)
    GUICtrlDelete ($bearbeiten)
    GUICtrlDelete ($abort)
    GUICtrlDelete ($grafik7)
    $grafik7=GUICtrlCreateGraphic(0,45+$count,700,1)
    GUICtrlSetBkColor(-1, 0x000000)
    $copyright=GUICtrlCreateLabel("Coded by Blackdeath911 and Vampyr1091",$awidh-6,$ahigh+55+$count)
    $save=GUICtrlCreateButton("Einträge Speichern und Übernehmen",$awidh+320,$ahigh+40+$count)
    $bearbeiten=GUICtrlCreateButton("Einträge Bearbeiten",$awidh+510,$ahigh+40+$count)
    $abort=GUICtrlCreateButton("Abbrechen",$awidh+620,$ahigh+40+$count)

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

    Case 0
    $cursor1 = GUIGetCursorInfo($gui1)
    If Not IsArray($cursor1) Then ContinueLoop
    If $cursor1[4] = $addbuttons Then ; Maus über Label
    If Not $hovered Then
    GUICtrlSetColor($addbuttons,0x0000FF)
    GUICtrlSetFont ($addbuttons,9,460,Default,"tahoma")
    $hovered = True
    EndIf
    Else ; Maus nicht über Label
    If $hovered Then
    GUICtrlSetColor($addbuttons,0x000000)
    GUICtrlSetFont ($addbuttons,8,460,Default,"tahoma")
    $hovered = False
    EndIf
    EndIf
    Case $abort
    GUIDelete()
    _gui()
    Case $pfadsearch
    $var1=FileOpenDialog("Bitte den Pfad des Programms auswählen","C:\","Ausführbares (*.exe)",1)
    GUICtrlSetData($pfadin,$var1)
    Case $picsearch
    $var2=FileOpenDialog("Bitte den Pfad des Bildes auswählen","C:\","Bilder (*.jpg;*.bmp)",1)
    GUICtrlSetData($picin,$var2)
    Case $bearbeiten
    MsgBox(0,"Comming Soon", "Diese Funktion ist noch nicht vorhanden")
    Case $save
    ;speicherfunktion bitte hier ^^
    EndSwitch
    WEnd
    EndFunc

    [/autoit]

    Bei einem macht er es nur größer aber die Controlls werden ganz verschoben und beim 2. wird die Gui kleiner?
    MFG: Blacky911

    Kleiner AutoIt Lehrling :)

    Also so wie ich das jetzt gemacht bzw. probiert hab bekommt man das fenster nur so, dass man es mit der maus größer und kleiner ziehen kann.

    Was ich möchte ist aber, dass wenn man auf das + klickt neue Buttons kommen und sich gleichzeitig die komplette gui um 25 vergrößert nahc unten, das die unteren Buttons und so sich dann nach unten schieben hab ich schon, auch das die neuen kommen wenn man auf das + klickt aber nur das sich die Gui beim klick auf + vergrößert hab ich noch nicht hinbekommen.

    Und wenn sich die größe verändert hat hat sich die gui in irgendeine Ecke verschoben und die ganzen Buttons etc. haben sich verschoben und die neuen sind an andere positionen gegangen.

    Ich möcht ja eig nur, dass sich die höhe verändert alles andere mach ich ja selber die gui soll halt nur höher werden.
    Danke für die hilfe

    MFG: Blacky911

    Kleiner AutoIt Lehrling :)

    Also wenn ich WinMove wie folgt einbaue bekomme ich so ein bild:
    [Blockierte Grafik: http://www.abload.de/thumb/fail7owo.png]

    Und naja, das ist nicht so ganz erwünscht...
    Hier mald er funktionierende Code:

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>
    #include <array.au3>
    #include <EditConstants.au3>
    #Include <GuiButton.au3>
    #include <ListboxConstants.au3>

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

    #Include <WinAPI.au3>
    ;globals
    Global $label1
    Global $gui
    Global $startbutton
    Global $aSize
    Global $hovered
    Global $ininame="data.ini"
    Global $ininame2="settings.ini"
    Global $buttonhigh=90
    Global $button1widht=10 ;startbutton
    Global $breite=300 ;guibreite
    Global $hoehe=120 ;guihoehe
    Global $mainguititle,$maininitext,$mainlabeltext,$mainsettingstext,$mainstarttext,$savebutton

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

    ;settings
    Global $guititle
    Global $labeltext
    Global $starttext
    Global $settingtext

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

    _addprogramm()

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

    Func _addprogramm()
    Local $ahigh=10
    Local $awidh=10
    Local $count=0
    Local $ghigh=80 ;80
    Local $gwidh=700
    Local $var1,$var2
    Local $i=0
    Local $a=0
    Dim $namein[10]
    Dim $pfadin[10]
    Dim $pfadsearch[10]
    Dim $picin[10]
    Dim $picsearch[10]

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

    $gui1=GUICreate("Einträge Hinzufügen",$gwidh,$ghigh, -1, -1)
    GUICtrlCreateLabel("Name:",$awidh,$ahigh)
    $namein[$i]=GUICtrlCreateInput("",$awidh+40,$ahigh-2,120)
    GUICtrlCreateLabel("Pfad:",$awidh+170,$ahigh)
    $pfadin[$i]=GUICtrlCreateInput("",$awidh+200,$ahigh-2,120)
    $pfadsearch[$i]=GUICtrlCreateButton("Durchsuchen",$awidh+325,$ahigh-4)
    GUICtrlCreateLabel("Bild:",$awidh+410,$ahigh)
    $picin[$i]=GUICtrlCreateInput("",$awidh+435,$ahigh-2,120)
    $picsearch[$i]=GUICtrlCreateButton("Durchsuchen",$awidh+560,$ahigh-4)
    $addbuttons=GUICtrlCreateLabel("[+]",$awidh+650,$ahigh+1)
    GUICtrlSetFont (-1,8,460,Default,"tahoma")

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

    $copyright=GUICtrlCreateLabel("Coded by Blackdeath911 and Vampyr1091",$awidh-6,$ahigh+55)
    $save=GUICtrlCreateButton("Speichern und Übernehmen",$awidh+360,$ahigh+40)
    $bearbeiten=GUICtrlCreateButton("Einträge Bearbeiten",$awidh+510,$ahigh+40)
    $abort=GUICtrlCreateButton("Abbrechen",$awidh+620,$ahigh+40)

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

    $grafik7=GUICtrlCreateGraphic(0,45,700,1)
    GUICtrlSetBkColor(-1, 0x000000)

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

    GUISetState()
    ;Schleife
    While 1
    $msg = GUIGetMsg()
    ;Switch $msg
    Switch $msg
    Case -3
    GUIDelete()
    Case $addbuttons
    $i=$i+1
    If $i <= 9 Then
    $count=$count+25

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

    ;GUICtrlSetResizing($gui1,$GUI_DOCKALL)
    ;_WinAPI_MoveWindow($gui1,,Default,$gwidh,$ghigh+$count)
    winmove("Einträge Hinzufügen","",Default,Default,$gwidh,$ghigh+$count)
    GUICtrlCreateLabel("Name:",$awidh,$ahigh+$count)
    $namein[$i]=GUICtrlCreateInput("",$awidh+40,$ahigh-2+$count,120)
    GUICtrlCreateLabel("Pfad:",$awidh+170,$ahigh+$count)
    $pfadin[$i]=GUICtrlCreateInput("",$awidh+200,$ahigh-2+$count,120)
    $pfadsearch[$i]=GUICtrlCreateButton("Durchsuchen",$awidh+325,$ahigh-4+$count)
    GUICtrlCreateLabel("Bild:",$awidh+410,$ahigh+$count)
    $picin[$i]=GUICtrlCreateInput("",$awidh+435,$ahigh-2+$count,120)
    $picsearch[$i]=GUICtrlCreateButton("Durchsuchen",$awidh+560,$ahigh-4+$count)

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

    GUICtrlDelete ($copyright)
    GUICtrlDelete ($save)
    GUICtrlDelete ($bearbeiten)
    GUICtrlDelete ($abort)
    GUICtrlDelete ($grafik7)
    $grafik7=GUICtrlCreateGraphic(0,45+$count,700,1)
    GUICtrlSetBkColor(-1, 0x000000)
    $copyright=GUICtrlCreateLabel("Coded by Blackdeath911 and Vampyr1091",$awidh-6,$ahigh+55+$count)
    $save=GUICtrlCreateButton("Speichern und Übernehmen",$awidh+360,$ahigh+40+$count)
    $bearbeiten=GUICtrlCreateButton("Einträge Bearbeiten",$awidh+510,$ahigh+40+$count)
    $abort=GUICtrlCreateButton("Abbrechen",$awidh+620,$ahigh+40+$count)
    Else
    MsgBox(0,"Maximum für eine Eintragung erreicht","Mehr als 10 Einträge auf einmal sind leider nicht möglich, bitte erst speichern und dann nochmal.")
    EndIf
    Case 0
    $cursor1 = GUIGetCursorInfo($gui1)
    If Not IsArray($cursor1) Then ContinueLoop
    If $cursor1[4] = $addbuttons Then ; Maus über Label
    If Not $hovered Then
    GUICtrlSetColor($addbuttons,0x0000FF)
    GUICtrlSetFont ($addbuttons,9,460,Default,"tahoma")
    $hovered = True
    EndIf
    Else ; Maus nicht über Label
    If $hovered Then
    GUICtrlSetColor($addbuttons,0x000000)
    GUICtrlSetFont ($addbuttons,8,460,Default,"tahoma")
    $hovered = False
    EndIf
    EndIf
    Case $abort
    GUIDelete()
    Case $pfadsearch[0]
    $var1=FileOpenDialog("Bitte den Pfad des Programms auswählen","C:\","Ausführbares (*.exe)",1)
    GUICtrlSetData($pfadin[0],$var1)
    Case $pfadsearch[1]
    $var1=FileOpenDialog("Bitte den Pfad des Programms auswählen","C:\","Ausführbares (*.exe)",1)
    GUICtrlSetData($pfadin[1],$var1)
    Case $pfadsearch[2]
    $var1=FileOpenDialog("Bitte den Pfad des Programms auswählen","C:\","Ausführbares (*.exe)",1)
    GUICtrlSetData($pfadin[2],$var1)
    Case $pfadsearch[3]
    $var1=FileOpenDialog("Bitte den Pfad des Programms auswählen","C:\","Ausführbares (*.exe)",1)
    GUICtrlSetData($pfadin[3],$var1)
    Case $pfadsearch[4]
    $var1=FileOpenDialog("Bitte den Pfad des Programms auswählen","C:\","Ausführbares (*.exe)",1)
    GUICtrlSetData($pfadin[4],$var1)
    Case $pfadsearch[5]
    $var1=FileOpenDialog("Bitte den Pfad des Programms auswählen","C:\","Ausführbares (*.exe)",1)
    GUICtrlSetData($pfadin[5],$var1)
    Case $pfadsearch[6]
    $var1=FileOpenDialog("Bitte den Pfad des Programms auswählen","C:\","Ausführbares (*.exe)",1)
    GUICtrlSetData($pfadin[6],$var1)
    Case $pfadsearch[7]
    $var1=FileOpenDialog("Bitte den Pfad des Programms auswählen","C:\","Ausführbares (*.exe)",1)
    GUICtrlSetData($pfadin[7],$var1)
    Case $pfadsearch[8]
    $var1=FileOpenDialog("Bitte den Pfad des Programms auswählen","C:\","Ausführbares (*.exe)",1)
    GUICtrlSetData($pfadin[8],$var1)
    Case $pfadsearch[9]
    $var1=FileOpenDialog("Bitte den Pfad des Programms auswählen","C:\","Ausführbares (*.exe)",1)
    GUICtrlSetData($pfadin[9],$var1)
    Case $picsearch[0]
    $var2=FileOpenDialog("Bitte den Pfad des Bildes auswählen","C:\","Bilder (*.jpg;*.bmp)",1)
    GUICtrlSetData($picin[0],$var2)
    Case $picsearch[1]
    $var2=FileOpenDialog("Bitte den Pfad des Bildes auswählen","C:\","Bilder (*.jpg;*.bmp)",1)
    GUICtrlSetData($picin[1],$var2)
    Case $picsearch[2]
    $var2=FileOpenDialog("Bitte den Pfad des Bildes auswählen","C:\","Bilder (*.jpg;*.bmp)",1)
    GUICtrlSetData($picin[2],$var2)
    Case $picsearch[3]
    $var2=FileOpenDialog("Bitte den Pfad des Bildes auswählen","C:\","Bilder (*.jpg;*.bmp)",1)
    GUICtrlSetData($picin[3],$var2)
    Case $picsearch[4]
    $var2=FileOpenDialog("Bitte den Pfad des Bildes auswählen","C:\","Bilder (*.jpg;*.bmp)",1)
    GUICtrlSetData($picin[4],$var2)
    Case $picsearch[5]
    $var2=FileOpenDialog("Bitte den Pfad des Bildes auswählen","C:\","Bilder (*.jpg;*.bmp)",1)
    GUICtrlSetData($picin[5],$var2)
    Case $picsearch[6]
    $var2=FileOpenDialog("Bitte den Pfad des Bildes auswählen","C:\","Bilder (*.jpg;*.bmp)",1)
    GUICtrlSetData($picin[6],$var2)
    Case $picsearch[7]
    $var2=FileOpenDialog("Bitte den Pfad des Bildes auswählen","C:\","Bilder (*.jpg;*.bmp)",1)
    GUICtrlSetData($picin[7],$var2)
    Case $picsearch[8]
    $var2=FileOpenDialog("Bitte den Pfad des Bildes auswählen","C:\","Bilder (*.jpg;*.bmp)",1)
    GUICtrlSetData($picin[8],$var2)
    Case $picsearch[9]
    $var2=FileOpenDialog("Bitte den Pfad des Bildes auswählen","C:\","Bilder (*.jpg;*.bmp)",1)
    GUICtrlSetData($picin[9],$var2)
    Case $bearbeiten
    MsgBox(0,"Comming Soon", "Diese Funktion ist noch nicht vorhanden")
    Case $save
    For $a=0 to $i
    IniWrite(@ScriptDir&"\"&$ininame,GUICtrlRead($namein[$a]),GUICtrlRead($pfadin[$a]),GUICtrlRead($picin[$a]))
    Next
    GUIDelete()
    EndSwitch
    WEnd
    EndFunc

    [/autoit]

    Habs jetzt mal so gemacht das ihr es auch testen könnt... also einfach kopieren speichern und ausführen...
    Ich verstehts nicht wirklich was ich machen soll...

    Kann mir wer helfen?

    PS: Verbesserungsvorschläge werden auch gerne angenommen...

    MFG: Blacky911

    Kleiner AutoIt Lehrling :)

    • Offizieller Beitrag
    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>
    #include <array.au3>
    #include <EditConstants.au3>
    #include <GuiButton.au3>
    #include <ListboxConstants.au3>
    Opt("GUIResizeMode", 802);$GUI_DOCKALL
    #include <WinAPI.au3>
    ;globals
    Global $label1
    Global $gui
    Global $startbutton
    Global $aSize
    Global $hovered
    Global $ininame = "data.ini"
    Global $ininame2 = "settings.ini"
    Global $buttonhigh = 90
    Global $button1widht = 10 ;startbutton
    Global $breite = 300 ;guibreite
    Global $hoehe = 120 ;guihoehe
    Global $mainguititle, $maininitext, $mainlabeltext, $mainsettingstext, $mainstarttext, $savebutton

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

    ;settings
    Global $guititle
    Global $labeltext
    Global $starttext
    Global $settingtext

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

    _addprogramm()

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

    Func _addprogramm()
    Local $ahigh = 10
    Local $awidh = 10
    Local $count = 0
    Local $ghigh = 80 ;80
    Local $gwidh = 700
    Local $var1, $var2
    Local $i = 0
    Local $a = 0
    Dim $namein[10]
    Dim $pfadin[10]
    Dim $pfadsearch[10]
    Dim $picin[10]
    Dim $picsearch[10]

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

    $gui1 = GUICreate("Einträge Hinzufügen", $gwidh, $ghigh, -1, -1)
    GUICtrlCreateLabel("Name:", $awidh, $ahigh)
    $namein[$i] = GUICtrlCreateInput("", $awidh + 40, $ahigh - 2, 120)
    GUICtrlCreateLabel("Pfad:", $awidh + 170, $ahigh)
    $pfadin[$i] = GUICtrlCreateInput("", $awidh + 200, $ahigh - 2, 120)
    $pfadsearch[$i] = GUICtrlCreateButton("Durchsuchen", $awidh + 325, $ahigh - 4)
    GUICtrlCreateLabel("Bild:", $awidh + 410, $ahigh)
    $picin[$i] = GUICtrlCreateInput("", $awidh + 435, $ahigh - 2, 120)
    $picsearch[$i] = GUICtrlCreateButton("Durchsuchen", $awidh + 560, $ahigh - 4)
    $addbuttons = GUICtrlCreateLabel("[+]", $awidh + 650, $ahigh + 1)
    GUICtrlSetFont(-1, 8, 460, Default, "tahoma")

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

    $copyright = GUICtrlCreateLabel("Coded by Blackdeath911 and Vampyr1091", $awidh - 6, $ahigh + 55)
    $save = GUICtrlCreateButton("Speichern und Übernehmen", $awidh + 360, $ahigh + 40)
    $bearbeiten = GUICtrlCreateButton("Einträge Bearbeiten", $awidh + 510, $ahigh + 40)
    $abort = GUICtrlCreateButton("Abbrechen", $awidh + 620, $ahigh + 40)

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

    $grafik7 = GUICtrlCreateGraphic(0, 45, 700, 1)
    GUICtrlSetBkColor(-1, 0x000000)
    Local $Hight = _WinAPI_GetWindowHeight($gui1);Speichern der Fensterhöhe incl. Titelbar + Rahmen
    GUISetState()
    ;Schleife
    While 1
    $msg = GUIGetMsg()
    ;Switch $msg
    Switch $msg
    Case -3
    GUIDelete()
    Case $addbuttons
    $i = $i + 1
    If $i <= 9 Then
    $count = $count + 25
    WinMove("Einträge Hinzufügen", "", Default, Default, $gwidh, $Hight + $count)
    GUICtrlCreateLabel("Name:", $awidh, $ahigh + $count)
    $namein[$i] = GUICtrlCreateInput("", $awidh + 40, $ahigh - 2 + $count, 120)
    GUICtrlCreateLabel("Pfad:", $awidh + 170, $ahigh + $count)
    $pfadin[$i] = GUICtrlCreateInput("", $awidh + 200, $ahigh - 2 + $count, 120)
    $pfadsearch[$i] = GUICtrlCreateButton("Durchsuchen", $awidh + 325, $ahigh - 4 + $count)
    GUICtrlCreateLabel("Bild:", $awidh + 410, $ahigh + $count)
    $picin[$i] = GUICtrlCreateInput("", $awidh + 435, $ahigh - 2 + $count, 120)
    $picsearch[$i] = GUICtrlCreateButton("Durchsuchen", $awidh + 560, $ahigh - 4 + $count)

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

    GUICtrlDelete($copyright)
    GUICtrlDelete($save)
    GUICtrlDelete($bearbeiten)
    GUICtrlDelete($abort)
    GUICtrlDelete($grafik7)
    $grafik7 = GUICtrlCreateGraphic(0, 45 + $count, 700, 1)
    GUICtrlSetBkColor(-1, 0x000000)
    $copyright = GUICtrlCreateLabel("Coded by Blackdeath911 and Vampyr1091", $awidh - 6, $ahigh + 55 + $count)
    $save = GUICtrlCreateButton("Speichern und Übernehmen", $awidh + 360, $ahigh + 40 + $count)
    $bearbeiten = GUICtrlCreateButton("Einträge Bearbeiten", $awidh + 510, $ahigh + 40 + $count)
    $abort = GUICtrlCreateButton("Abbrechen", $awidh + 620, $ahigh + 40 + $count)
    Else
    MsgBox(0, "Maximum für eine Eintragung erreicht", "Mehr als 10 Einträge auf einmal sind leider nicht möglich, bitte erst speichern und dann nochmal.")
    EndIf
    Case 0
    $cursor1 = GUIGetCursorInfo($gui1)
    If Not IsArray($cursor1) Then ContinueLoop
    If $cursor1[4] = $addbuttons Then ; Maus über Label
    If Not $hovered Then
    GUICtrlSetColor($addbuttons, 0x0000FF)
    GUICtrlSetFont($addbuttons, 9, 460, Default, "tahoma")
    $hovered = True
    EndIf
    Else ; Maus nicht über Label
    If $hovered Then
    GUICtrlSetColor($addbuttons, 0x000000)
    GUICtrlSetFont($addbuttons, 8, 460, Default, "tahoma")
    $hovered = False
    EndIf
    EndIf
    Case $abort
    GUIDelete()
    Case $pfadsearch[0]
    $var1 = FileOpenDialog("Bitte den Pfad des Programms auswählen", "C:\", "Ausführbares (*.exe)", 1)
    GUICtrlSetData($pfadin[0], $var1)
    Case $pfadsearch[1]
    $var1 = FileOpenDialog("Bitte den Pfad des Programms auswählen", "C:\", "Ausführbares (*.exe)", 1)
    GUICtrlSetData($pfadin[1], $var1)
    Case $pfadsearch[2]
    $var1 = FileOpenDialog("Bitte den Pfad des Programms auswählen", "C:\", "Ausführbares (*.exe)", 1)
    GUICtrlSetData($pfadin[2], $var1)
    Case $pfadsearch[3]
    $var1 = FileOpenDialog("Bitte den Pfad des Programms auswählen", "C:\", "Ausführbares (*.exe)", 1)
    GUICtrlSetData($pfadin[3], $var1)
    Case $pfadsearch[4]
    $var1 = FileOpenDialog("Bitte den Pfad des Programms auswählen", "C:\", "Ausführbares (*.exe)", 1)
    GUICtrlSetData($pfadin[4], $var1)
    Case $pfadsearch[5]
    $var1 = FileOpenDialog("Bitte den Pfad des Programms auswählen", "C:\", "Ausführbares (*.exe)", 1)
    GUICtrlSetData($pfadin[5], $var1)
    Case $pfadsearch[6]
    $var1 = FileOpenDialog("Bitte den Pfad des Programms auswählen", "C:\", "Ausführbares (*.exe)", 1)
    GUICtrlSetData($pfadin[6], $var1)
    Case $pfadsearch[7]
    $var1 = FileOpenDialog("Bitte den Pfad des Programms auswählen", "C:\", "Ausführbares (*.exe)", 1)
    GUICtrlSetData($pfadin[7], $var1)
    Case $pfadsearch[8]
    $var1 = FileOpenDialog("Bitte den Pfad des Programms auswählen", "C:\", "Ausführbares (*.exe)", 1)
    GUICtrlSetData($pfadin[8], $var1)
    Case $pfadsearch[9]
    $var1 = FileOpenDialog("Bitte den Pfad des Programms auswählen", "C:\", "Ausführbares (*.exe)", 1)
    GUICtrlSetData($pfadin[9], $var1)
    Case $picsearch[0]
    $var2 = FileOpenDialog("Bitte den Pfad des Bildes auswählen", "C:\", "Bilder (*.jpg;*.bmp)", 1)
    GUICtrlSetData($picin[0], $var2)
    Case $picsearch[1]
    $var2 = FileOpenDialog("Bitte den Pfad des Bildes auswählen", "C:\", "Bilder (*.jpg;*.bmp)", 1)
    GUICtrlSetData($picin[1], $var2)
    Case $picsearch[2]
    $var2 = FileOpenDialog("Bitte den Pfad des Bildes auswählen", "C:\", "Bilder (*.jpg;*.bmp)", 1)
    GUICtrlSetData($picin[2], $var2)
    Case $picsearch[3]
    $var2 = FileOpenDialog("Bitte den Pfad des Bildes auswählen", "C:\", "Bilder (*.jpg;*.bmp)", 1)
    GUICtrlSetData($picin[3], $var2)
    Case $picsearch[4]
    $var2 = FileOpenDialog("Bitte den Pfad des Bildes auswählen", "C:\", "Bilder (*.jpg;*.bmp)", 1)
    GUICtrlSetData($picin[4], $var2)
    Case $picsearch[5]
    $var2 = FileOpenDialog("Bitte den Pfad des Bildes auswählen", "C:\", "Bilder (*.jpg;*.bmp)", 1)
    GUICtrlSetData($picin[5], $var2)
    Case $picsearch[6]
    $var2 = FileOpenDialog("Bitte den Pfad des Bildes auswählen", "C:\", "Bilder (*.jpg;*.bmp)", 1)
    GUICtrlSetData($picin[6], $var2)
    Case $picsearch[7]
    $var2 = FileOpenDialog("Bitte den Pfad des Bildes auswählen", "C:\", "Bilder (*.jpg;*.bmp)", 1)
    GUICtrlSetData($picin[7], $var2)
    Case $picsearch[8]
    $var2 = FileOpenDialog("Bitte den Pfad des Bildes auswählen", "C:\", "Bilder (*.jpg;*.bmp)", 1)
    GUICtrlSetData($picin[8], $var2)
    Case $picsearch[9]
    $var2 = FileOpenDialog("Bitte den Pfad des Bildes auswählen", "C:\", "Bilder (*.jpg;*.bmp)", 1)
    GUICtrlSetData($picin[9], $var2)
    Case $bearbeiten
    MsgBox(0, "Comming Soon", "Diese Funktion ist noch nicht vorhanden")
    Case $save
    For $a = 0 To $i
    IniWrite(@ScriptDir & "\" & $ininame, GUICtrlRead($namein[$a]), GUICtrlRead($pfadin[$a]), GUICtrlRead($picin[$a]))
    Next
    GUIDelete()
    EndSwitch
    WEnd
    EndFunc ;==>_addprogramm

    [/autoit]

    Edit: Könntest du mal aufhören deinen Thread in der SB zu pushen? Irgendwie nervt das.

    Ja ich höre damit auf... Nur ich kam einfach nicht wieter sry...

    Aber dank dir ist mein Problem jetzt komplett gelöst :)
    Ich mach jetzt auch erstmal ne pause und dann weiter...

    Danke dir

    MFG: Blacky911

    Kleiner AutoIt Lehrling :)