#include <Date.au3>
#include <TrayConstants.au3>
;#include <MsgBoxConstants.au3>

#NoTrayIcon

Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 11) ; Standard Traymenüeinträge (Skript pausieren/beenden) werden nicht angezeigt.

;TraySetClick(16) ; Nur wenn die zweite Maustaste gedrückt wird, wird das Traymenü anzeigt.

TrayCreateItem("Info1")
TrayItemSetOnEvent(-1, "ShowInfo1")


TrayCreateItem("Info2")
TrayItemSetOnEvent(-1, "ShowInfo2")

TrayCreateItem("ASCII")
TrayItemSetOnEvent(-1, "_AsciiCode")

TrayCreateItem("")

TrayCreateItem("Beenden")
TrayItemSetOnEvent(-1, "ExitScript")

TraySetState()

While 1
    Sleep(10) ; CPU-Last verhindern
WEnd

Exit


; Funktionen
Func ShowInfo1()
	TrayTip("ShowInfo1", "Dies ist ShowInfo1",66,1)
    ;MsgBox(0, "Info1", "Tray OnEvent Demo")
EndFunc   ;==>ShowInfo

Func ShowInfo2()
		TrayTip("ShowInfo2", "Dies ist ShowInfo2",66,1)
    ;MsgBox(2, "Info2", "Tray OnEvent Demo")
EndFunc   ;==>ShowInfo

Func _AsciiCode()
	For $I = 32 To 35
		;For $I = 32 To 127
		$iOct = StringFormat("%o", $I); <== Conversion

		TrayTip("Kodierungen", _
				"Dez(imal): " & $I & @CRLF & _
				"Hex(adezimal): " & Hex($I) & @CRLF & _
				"Oktal: " & $iOct & @CRLF & _
				"HTML: " & "&#" & $I & ";" & @CRLF & _
				"Chr (ASCII): " & Chr($I) & @CRLF, 1)

		Sleep(5000)
	Next
	ConsoleWrite(_NowTime() & " OK_03: ASCII-Codes wurden erzeugt." & @CRLF)
EndFunc   ;==>_AsciiCode


Func ExitScript()
    Exit
EndFunc   ;==>ExitScript