Spielfeld, 2D-Array

1. offizieller Beitrag
    Spoiler anzeigen
    [autoit]

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

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

    Global $Feld[20][20], $Progress1

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

    Opt("GUIOnEventMode", 1)
    $Form1 = GUICreate("Form3", 242, 19, 217, 131)
    $Progress1 = GUICtrlCreateProgress(0, 0, 241, 17)
    GUISetState(@SW_SHOW)

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

    $Form2 = GUICreate("Form3", 100, 100, 1000, 1000)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
    For $x = 0 To 19 Step 1
    For $y = 0 To 19 Step 1
    $Feld[$x][$y] = GUICtrlCreateGraphic(0 + 20 * $x, 0 + 20 * $y, 20, 20)
    GUICtrlSetData($Progress1, $Progress1 + 0,25)
    Next
    Next
    GUISetState(@SW_SHOW)

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

    While 1
    Sleep(100)
    WEnd

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

    [/autoit]

    Wieso wird das Spielfeld nicht angezeigt und der Ladebalken bleibt auf 0??

    • Offizieller Beitrag

    Ich habe mal Dein Script etwas angepasst:

    Spoiler anzeigen
    [autoit]


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

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

    Global $Feld[20][20], $Progress1

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

    Opt("GUIOnEventMode", 1)
    $Form1 = GUICreate("Form3", 242, 19, 217, 131)
    $Progress1 = GUICtrlCreateProgress(0, 0, 241, 17)
    GUISetState(@SW_SHOW)

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

    $Form2 = GUICreate("Form3", 420, 420, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
    Global $count = 0
    Global $hGraphic = GUICtrlCreateGraphic(10, 10, 400, 400)

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

    For $x = 0 To 19 Step 1
    For $y = 0 To 19 Step 1
    $count += 0.25
    GUICtrlSetData($Progress1, $count)
    $Feld[$x][$y] = GUICtrlSetGraphic($hGraphic, $GUI_GR_RECT, 20 * $x, 20 * $y, 20, 20)
    Next
    Next
    GUISetState(@SW_SHOW)

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

    While 1
    Sleep(100)
    WEnd

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

    [/autoit]

    Hallo nochmal :D

    Warum öffnet sich hierbei den immer erst eine MsgBox, Koordinaten 0|0, und macht nichts weiter?

    Spoiler anzeigen
    [autoit]

    #Region Header
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    Global $Laenge = 120, $Breite = 50, $Kastengroesse = 10
    Global $Feld[$Laenge][$Breite]

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

    Opt("GUIOnEventMode", 1)
    #EndRegion Header

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

    #Region GUI
    $Form2 = GUICreate("Form3", $Laenge * $Kastengroesse + 20, $Breite * $Kastengroesse + 20, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
    Global $hGraphic = GUICtrlCreateGraphic(10, 10, $Laenge * $Kastengroesse, $Breite * $Kastengroesse)

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

    For $x = 0 To $Laenge - 1 Step 1
    For $y = 0 To $Breite - 1 Step 1
    $Feld[$x][$y] = GUICtrlSetGraphic($hGraphic, $GUI_GR_RECT, $Kastengroesse * $x, $Kastengroesse * $y, $Kastengroesse, $Kastengroesse)
    GUICtrlSetOnEvent(-1, _feld($x, $y))
    Next
    Next
    GUISetState(@SW_SHOW)
    #EndRegion GUI

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

    While 1
    Sleep(100)
    WEnd

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

    Func _feld($x, $y)
    MsgBox(0, "", "Feld-Koordinate: "&$x&"|"&$y)
    EndFunc ;==>_feld

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

    [/autoit]
    • Offizieller Beitrag

    Du hast nur eine Ctrl-ID für die gesamte Grafik. Du kannst also keine Ereignisse je Quadrat definieren. Wenn du das möchtest, mußt du jedes Quadrat mit GUICtrlCreateGraphic() erstellen.
    GUICtrlSetGraphic() gibt KEINE ID zurück - somit kannst auch kein Event zuweisen.

    Herzlichen Dank! Ich probier es!

    edit:

    Spoiler anzeigen
    [autoit]

    #Region Header
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    Global $Laenge = 120, $Breite = 50, $Kastengroesse = 10
    Global $Feld[$Laenge][$Breite]

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

    Opt("GUIOnEventMode", 1)
    #EndRegion Header

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

    #Region GUI
    $Form2 = GUICreate("Form3", $Laenge * $Kastengroesse + 20, $Breite * $Kastengroesse + 20, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")

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

    For $x = 0 To $Laenge - 1 Step 1
    For $y = 0 To $Breite - 1 Step 1
    $Feld[$x][$y] = GUICtrlCreateGraphic($Kastengroesse * $x, $Kastengroesse * $y, $Kastengroesse, $Kastengroesse)
    GUICtrlSetOnEvent(-1, "_feld")
    Next
    Next
    GUISetState(@SW_SHOW)
    #EndRegion GUI

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

    While 1
    Sleep(100)
    WEnd

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

    Func _feld()

    EndFunc ;==>_feld

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

    [/autoit]

    Dazu hab ich gleich 2 Fragen:

    1. Wie übergeb ich der Funktion denn hier die Koordinaten ?(
    2. Wieso werden die Graphics nicht angezeigt ?(

    Was hab ich falsch gemacht?

    • Offizieller Beitrag

    Du mußt die Grafik mit Create erstellen und mit Set initialisieren.
    ID für jedes erstellte Grafikelement in Array speichern, Funktion dem Event zuweisen.
    In der zugewiesenen Funktion fragst du in der Schleife ab, welches das zuletzt betätigte Element war. Etwa so:

    Spoiler anzeigen
    [autoit]

    Func _feld()
    For $x = 0 To $Laenge - 1 Step 1
    For $y = 0 To $Breite - 1 Step 1
    If @GUI_CtrlId = $aFeld[$x][$y] Then ExitLoop
    Next
    Next
    MsgBox(0, "", "Feld-Koordinate: " & $x & "|" & $y)
    EndFunc ;==>_feld

    [/autoit]

    Allerdings ist bei der gr0ßen Anzahl von Elementen diese Lösung nicht optimal, dauert alles zu lange.

    • Offizieller Beitrag

    Man kann die Koordinaten auch einfach berechnen:

    Spoiler anzeigen
    [autoit]


    #Region Header
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    Global $Laenge = 120, $Breite = 50, $Kastengroesse = 10
    Global $Feld[$Laenge][$Breite]

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

    Opt('MouseCoordMode', 0)
    Opt("GUIOnEventMode", 1)
    #EndRegion Header

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

    #Region GUI
    $Form2 = GUICreate("Form3", $Laenge * $Kastengroesse + 20, $Breite * $Kastengroesse + 20, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
    Global $hGraphic = GUICtrlCreateGraphic(10, 10, $Laenge * $Kastengroesse, $Breite * $Kastengroesse)
    GUICtrlSetOnEvent(-1, '_feld')

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

    For $x = 0 To $Laenge - 1 Step 1
    For $y = 0 To $Breite - 1 Step 1
    GUICtrlSetGraphic($hGraphic, $GUI_GR_RECT, $Kastengroesse * $x, $Kastengroesse * $y, $Kastengroesse, $Kastengroesse)
    Next
    Next
    GUISetState(@SW_SHOW)
    #EndRegion GUI

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

    While 1
    Sleep(100)
    WEnd

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

    Func _feld()
    Local $aInfo = GUIGetCursorInfo($Form2)
    $x = Int(($aInfo[0]-10)/10)
    $Y = Int(($aInfo[1]-10)/10)
    ToolTip($x&@CRLF&$y)
    EndFunc ;==>_feld

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

    [/autoit]

    Hallo nochmal!

    Was hab ich den hier falsch gemacht? ;)

    Spoiler anzeigen
    [autoit]

    #Region Head
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <ButtonConstants.au3>

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

    Global $Kaestchengroesse = 35, $Laenge = 1500, $Breite = 500, $Bildschirml = 1200, $Bildschirmb = 600 ; Variabel, Anpassungsfähig
    Global $Anzeige ; Für das Programm
    Global $Zoomm, $Zoomp ; Gui-Elemente

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

    Opt('MouseCoordMode', 0)
    Opt("GUIOnEventMode", 1)
    #EndRegion Head

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

    #Region GUI
    $Form2 = GUICreate("Form3", $Bildschirml + 70, $Bildschirmb + 20, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
    Global $hGraphic = GUICtrlCreateGraphic(10, 10, $Bildschirml, $Bildschirmb)
    GUICtrlSetOnEvent(-1, '_Feld')

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

    $Button1 = GUICtrlCreateButton("", $Bildschirml + 20, 24, 43, 44, $BS_ICON)
    GUICtrlSetImage(-1, "lupe.ico", 0)
    GUICtrlSetOnEvent(-1, "_ZoomIn")
    $Button2 = GUICtrlCreateButton("", $Bildschirml + 20, 74, 43, 44, $BS_ICON)
    GUICtrlSetImage(-1, "lupe2.ico", 0)
    GUICtrlSetOnEvent(-1, "_ZoomOut")

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

    GUISetState(@SW_SHOW)
    #EndRegion GUI

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

    _aenderung()
    ;_Verbindung()
    ; ---> Folgt noch!!!
    _Truppen()

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

    While 1 ; Leerlauf
    Sleep(100)
    WEnd

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

    Func _ZoomIn()
    GUICtrlSetState($Zoomm, $GUI_ENABLE)
    If $Kaestchengroesse = 30 Then GUICtrlSetState($Zoomp, $GUI_DISABLE)
    $Kaestchengroesse += 5
    _aenderung()
    EndFunc ;==>_ZoomIn

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

    Func _ZoomOut()
    GUICtrlSetState($Zoomp, $GUI_ENABLE)
    If $Kaestchengroesse = 10 Then GUICtrlSetState($Zoomm, $GUI_DISABLE)
    $Kaestchengroesse -= 5
    _aenderung()
    EndFunc ;==>_ZoomOut

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

    Func _aenderung()
    Switch $Kaestchengroesse
    Case 5
    $Anzeige = 0 ; Nur Farben (rot: Feind, blau:man selbst, Grün: verbündeter...)
    Case 10
    $Anzeige = 1 ; Farben der Truppen...
    Case 15
    $Anzeige = 2 ; Farben + Buchstaben
    Case 20
    $Anzeige = 3 ; Grobe 2D - Zeichnungen (Bogenschütze: Bogen, Speerträger: Speer...)
    Case 25
    $Anzeige = 4 ; Grobe 2D - Zeichnungen + Buchstabe
    Case 30
    $Anzeige = 5 ; 2D - Zeichnungen
    Case 35
    $Anzeige = 6 ; 3D - Anzeige
    EndSwitch
    _GUI()
    EndFunc ;==>_aenderung

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

    Func _GUI()
    If $Laenge * $Kaestchengroesse > $Bildschirml Then
    $GUIL = Round($Bildschirml / $Kaestchengroesse)
    If $GUIL > $Bildschirml / $Kaestchengroesse Then $GUIL -= 1
    Else
    $GUIL = $Laenge * $Kaestchengroesse
    EndIf

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

    If $Breite * $Kaestchengroesse > $Bildschirmb Then
    $GUIB = Round($Bildschirmb / $Kaestchengroesse)
    If $GUIB > $Bildschirmb / $Kaestchengroesse Then $GUIB -= 1
    Else
    $GUIB = $Breite * $Kaestchengroesse
    EndIf

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

    Global $GUI[$GUIL][$GUIB], $Truppen[$Laenge][$Breite], $aktuell[$GUIL][$GUIB], $Gaelende[$Laenge][$Breite]

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

    For $x = 0 To $GUIL - 1
    For $y = 0 To $GUIB - 1
    $aktuell[$x][$y] = $x & "|" & $y
    Next
    Next

    For $x = 0 To $Laenge - 1 Step 1
    For $y = 0 To $Breite - 1 Step 1
    GUICtrlSetGraphic($hGraphic, $GUI_GR_RECT, $Kaestchengroesse * $x, $Kaestchengroesse * $y, $Kaestchengroesse, $Kaestchengroesse)
    GUICtrlSetImage(-1, "feld.gif")
    Next
    Next
    EndFunc ;==>_GUI

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

    Func _Truppen()
    ; Hier die ganzen Truppen definieren
    EndFunc ;==>_Truppen

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

    Func _Austausch()
    #cs
    ---------------------------------------
    | Diese Funktion beibt ersteinmal aus |
    | |
    | Hier würde die Verbindung mit einem |
    | Server reinkommen, bzw. der Aus- |
    | tausch der Daten um dann zu |
    | aktualisieren (AdlibEnable ?) |
    ---------------------------------------
    #ce
    ; Weiteres folgt
    EndFunc ;==>_Austausch

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

    Func _Verbindung()
    ; Hier soll später die Verbindung mit einem Server hergestellt werden

    ; Folgt noch!!
    EndFunc ;==>_Verbindung

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

    Func _Exit()
    $Ende = MsgBox(292, "Herr der Ringe Tabletop", "Wirklich beenden ohne zu speichern?")
    If $Ende = 6 Then Exit
    EndFunc ;==>_Exit

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

    Func _Feld()
    Local $aInfo = GUIGetCursorInfo($Form2)
    $x = Int(($aInfo[0] - 10) / 10)
    $y = Int(($aInfo[1] - 10) / 10)
    ToolTip($x & @CRLF & $y)
    EndFunc ;==>_Feld

    [/autoit]

    Und wie kann ich einen Austausch für Chat und Truppen über einen Server laufen lassen?
    Und ist die Zoomfunktion so am besten?

    Danke für Antworten :D !

    • Offizieller Beitrag

    Zum einen in Zeile 100:

    [autoit]

    GUICtrlSetImage(-1, "feld.gif")

    [/autoit]


    Das funktioniert nicht bei GUICtrlSetGraphic.

    Zum anderen: $Laenge = 1500, $Breite = 500
    1500x500 = 750.000 Graphic-Elemente!
    Ich fürchte, dafür ist AutoIt nicht gemacht. Vor allem, weil die GUICtrl[...]Graphic-Funktionen auch noch fehlerhaft sind.

    Vielleicht kennt ja noch jemand eine Möglichkeit ein solch großes Spielfeld zu erstellen, aber ich denke, die Aussichten sind schlecht. :huh:

    Hallo nochmal! Entschuldigung, das war mein Fehler. Die beiden Variabelen werden gar nicht mehr genutzt. Es wird $Bildschirmb (oder $Bildschirml) durch $Kaestchengröße gerechnet. Da kommt dann maximal raus ($Bildschirml = 1200, $Bildschirmb = 600, $Kaestchengröße = 5, wenn es am kleinsten ist):
    120 * 240 = 28800.

    Geht das als Maximalwert?

    Und wie krieg ich den einen Grafik dann da rein? Das muss doch irgendwie gehen? Vielleicht mit:

    [autoit]

    GUICtrlSetGraphic($hGraphic, $GUI_GR_RECT, $Kaestchengroesse * $x, $Kaestchengroesse * $y, $Kaestchengroesse, $Kaestchengroesse)

    [/autoit]

    und dann den Pfad noch irgendwie angeben?? Wie kann ich das machen? Oder muss ich 28800 einzelgrafiken erstellen??

    • Offizieller Beitrag

    Sag nochmal genau, wie dein Feld sein soll.
    - fixe Anzahl von quadratischen Flächen ?
    - dadrauf ein Bild legen ?

    Etwas OT:
    Beim Spielen mit der Grafik ist mir aufgefallen, dass es tatsächlich kein Random gibt :D
    Schau dir mal dieses Ergebnis an - trotz zufälliger Farbwahl entsteht ein regelmäßiges Muster. ;)

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    Global $aCol[5] = [0, 0x0000FF, 0xFFD700, 0x00FF00, 0xFF0000]

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

    $Form = GUICreate("Form", 800, 600)
    $grafik = GUICtrlCreateGraphic(10, 10, 780, 580)
    For $x = 0 To 780 Step 5
    For $y = 0 To 580 Step 5
    GUICtrlSetGraphic($grafik, $GUI_GR_COLOR, 0xFFFFFF, $aCol[Random(1,4,1)])
    GUICtrlSetGraphic($grafik, $GUI_GR_RECT, $x, $y, 5, 5)
    Next
    Next

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

    GUISetState()

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

    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

    [/autoit]

    Also, ich dachte mir das so: Es gibt versch. Zoom-Stufen, die in $Anzeige festgelegt sind.

    S. Kommentare daneben...

    Die Anzahl der Kästchen ändert sich dann nur von Zoomstufe zu Zoomstufe!

    Und auf die einzelnen Flächen soll eine Grafik (oder halt nur eine Farbe...)

    BugFix :
    Wie funktioniert Random eigentlich? Der Computer kann sich doch keine Zahl aus 1 und 0 "aussuchen", oder etwa doch :huh: ?(

    • Offizieller Beitrag
    Zitat von MatthiasG.

    Wie funktioniert Random eigentlich? Der Computer kann sich doch keine Zahl aus 1 und 0 "aussuchen", oder etwa doch :huh: ?(

    Du gibst den Bereich an, aus dem die 'Zufallszahl' ausgesucht wird. Hier in dem Bsp.

    [autoit]

    Random(1,4,1)

    [/autoit]

    Eine Integerzahl zwischen 1 und 4 wird ermittelt.

    Ja, das ist klar. Das weiß ich ja... ;) Ich meine, wie kommt der Computer darauf, sich für eine Zahl zu "entscheiden"?

    • Offizieller Beitrag

    Ich habe mal ein Spielfeld mit 120x240 Feldern erstellt und ein Bild druntergepackt. Naja, eigentlich sind es zwei Fenster (das zweite teiltransparent):

    Spoiler anzeigen
    [autoit]


    #Region Header
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Global $Laenge = 120, $Breite = 240, $Kastengroesse = 5
    Global $Feld[$Laenge][$Breite]

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

    Opt('MouseCoordMode', 0)
    Opt("GUIOnEventMode", 1)
    #EndRegion Header

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

    #Region GUI
    $Form1 = GUICreate("Form1", $Breite * $Kastengroesse + 20, $Laenge * $Kastengroesse + 20, -1, -1, BitOr($GUI_SS_DEFAULT_GUI, $WS_CLIPCHILDREN))
    GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
    GUICtrlCreatePic(@WindowsDir & "\web\wallpaper\Mondkrater.jpg", 10, 10, $Breite * $Kastengroesse, $Laenge * $Kastengroesse)

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

    $aWPos = WinGetPos($Form1)
    $Form2 = GUICreate("Form2", $Breite * $Kastengroesse + 20, $Laenge * $Kastengroesse + 20, $aWPos[0]+3, $aWPos[1]+29, $WS_POPUP, Default, $Form1)
    Global $hGraphic = GUICtrlCreateGraphic(10, 10, $Breite * $Kastengroesse, $Laenge * $Kastengroesse)
    GUICtrlSetOnEvent(-1, '_feld')
    For $x = 0 To $Breite - 1 Step 1
    For $y = 0 To $Laenge - 1 Step 1
    GUICtrlSetGraphic($hGraphic, $GUI_GR_RECT, $Kastengroesse * $x, $Kastengroesse * $y, $Kastengroesse, $Kastengroesse)
    Next
    Next
    WinSetTrans($Form2, '', 80)

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

    GUISetState(@SW_SHOW, $Form1)
    GUISetState(@SW_SHOW, $Form2)
    GUIRegisterMsg($WM_MOVE, '_WM_MOVE')

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

    #EndRegion GUI

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

    While 1
    Sleep(100)
    WEnd

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

    Func _feld()
    Local $aInfo = GUIGetCursorInfo($Form2)
    $x = Int(($aInfo[0]-10)/5)
    $Y = Int(($aInfo[1]-10)/5)
    ToolTip($x&@CRLF&$y)
    EndFunc ;==>_feld

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

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

    Func _WM_MOVE()
    Local $pos = WinGetPos($Form1)
    WinMove($Form2, '', $pos[0]+3, $pos[1]+29)
    EndFunc

    [/autoit]

    Hallo!
    Oscar : Danke! Aber leider ist da nur eine Grafik drunter, ich bracuh für jedes Feld eine unterschiedliche... Wie krieg ich sowas hin? muss ich also doch einzelne Grafiken erstellen :?: