#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include "_inputmask.au3"

#region _inputmask.au3
; Diese Werte müssen für die _inputmask.au3 - UDF gesetzt werden :
Global $iInputs = 2  ; Anzahl der zu prüfenden Inputfelder
_Inputmask_init($iInputs) ; Initialisiert die 'InputMasks' für die Inputcontrols
_Inputmask_MsgRegister()  ; Registrierung für _InputMask
#endregion _inputmask.au3


GUICreate("Inputs auf Länge und Zahlen prüfen", 400, 100, -1, -1)
GUISetFont(10, 600, "Arial")  ; Standardfont GUI-weit setzen

; Inputfeld 1 :
Global $Zykluszeit = GUICtrlCreateInput("", 10, 10, 280, 25, -1, $WS_EX_CLIENTEDGE)
_Inputmask_add($Zykluszeit, $iIM_POSITIVE_REAL, 0, "", 10, 3)
; Erklärung _Inputmask_add :
;   -> $iIM_POSITIVE_REAL : Nur positive Zahlen (mit Nachkommstellen) zugelassen und . (Punkt)
;      --> möchte man auch negative Zahlen eingeben, dann : $iIM_REAL
;   -> 10 = Gesamtlänge der Eingabe inkl. Punkt (kann geändert werden)
;   ->  3 = Anzahl der Stellen NACH dem Punkt (kann geändert werden)

; Inputfeld 2 :
Global $Wirkungsgrad = GUICtrlCreateInput("0,8", 10, 40, 280, 25, -1, $WS_EX_CLIENTEDGE)
_Inputmask_add($Wirkungsgrad, $iIM_POSITIVE_REAL, 0, "", 8, 2)

GUISetState(@SW_SHOW)
While GUIGetMsg() <> $GUI_EVENT_CLOSE
WEnd