Texte positionieren

Global $Array[1] ; Am Anfang des Scripts
; ...
_ArrayAdd($Array, GUICtrlCreateLabel("Text", 0, 0)) ; Erstelllen
; ...
GUICtrlSetData($Array[1], "Hallo") ; Erstes Label verändern

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <gdiplus.au3>
#include <misc.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>

$x = 140
$y = 110
Global $afont, $mnText, $Label, $mnFarbe, $mnpFarbe, $aLabel[1]
$Form1 = GUICreate("Form1", 800, 600)

_Menue()

$Form2 = GUICreate("Texte", 625, 443, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 32, 40, 545, 321, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$btnMnText = GUICtrlCreateButton("Text auf Form", 400, 376, 179, 41, $WS_GROUP)
GUISetState(@SW_SHOW, $Form1)

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

Case $mnFarbe
$afont = _ChooseFont()

Case $mnText
GUISetState(@SW_SHOW, $Form2)

Case $btnMnText
GUISetState(@SW_SHOW, $Form2)
$mnEintrag = GUICtrlRead($Edit1)
GUISetState(@SW_SHOW, $Form1)

ReDim $aLabel[UBound ($aLabel) + 1] ; Entspricht _ArrayAdd
$aLabel[UBound($aLabel) - 1] = GUICtrlCreateLabel($mnEintrag, $x, $y, 146, 89) ; Fügst das neue Label dem Array hinzu
$Label = $aLabel[UBound($aLabel) - 1] ; ... und setzt $Label (die Variable, die beim Update übergeben wird) auf das neueste Label
EndSwitch

#Region Positionieren Text
If _IsPressed("25") Then
$x -= 1
Update()
ElseIf _IsPressed("27") Then
$x += 1
Update()
ElseIf _IsPressed("26") Then
$y -= 1
Update()
ElseIf _IsPressed("28") Then
$y += 1
Update()
EndIf

#EndRegion Positionieren Text

For $i = 1 To UBound($aLabel) - 1 ; Fängst bei [1] an, weil [0] leer ist
If $nMsg = $aLabel[$i] Then ; Wenn eines der Labels angeklickt wurde
$Label = $aLabel[$i] ; wird es zum aktiven Label (damit es verschoben werden kann usw)
$aPos = ControlGetPos($Form1, '', $Label) ; Nimmst noch die aktuelle Position des Labels
$x = $aPos[0] ; Und speicherst es in die Positionsvariablen
$y = $aPos[1] ;
EndIf
Next
WEnd

Func Update()

GUICtrlSetPos($Label, $x, $y) ; Das aktive Label wird mit seinen eigenen Koordinaten verschoben
EndFunc ;==>Update

Func _Menue()

$mnpText = GUICtrlCreateMenu("Text")
$mnText = GUICtrlCreateMenuItem("öffnen", $mnpText)

$mnpFarbe = GUICtrlCreateMenu("Farbe")
$mnFarbe = GUICtrlCreateMenuItem("öffnen", $mnpFarbe)

EndFunc ;==>_Menue