;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;scripted by xp_fan;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <Process.au3>

Opt("TrayMenuMode", 1)
HotKeySet("{ESC}", "_Ende")


If $CmdLine[0] = 2 Then
	_SelectColors($CmdLine[1], $CmdLine[2])
Else
	_SelectColors(0xFFFF0000, 0xFF440000)
EndIf

_Start()

Func _Start()

	Global $aPoints1[7][2], $aPoints4[7][2]
	Global $hGUI = GUICreate("GDI+ Digitaluhr V. 1.1", 620, 175, "", "", $WS_POPUP) ;$WS_EX_LAYERED
	Global $hWnd = WinGetHandle("GDI+ Digitaluhr V. 1.1")
	GUISetBkColor(0x000000)
	Global $Label1 = GUICtrlCreateLabel("", 0, 0, 620, 175, Default, $GUI_WS_EX_PARENTDRAG)
	GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
	GUISetState(@SW_SHOW)
	WinSetOnTop("GDI+ Digitaluhr V. 1.1", "", 1)


	Global $counter = 0
	Global $counter2 = 0
	Global $counter3 = 0

	_GDIPlus_Startup()

	Global $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
	$hPen1 = _GDIPlus_PenCreate($colornotactive)
	$hPen2 = _GDIPlus_BrushCreateSolid($coloractive)
	$hPen3 = _GDIPlus_BrushCreateSolid($colornotactive)

	$context = GUICtrlCreateContextMenu($Label1)
	$farben = GUICtrlCreateMenu("Farben", $context)
	$rot = GUICtrlCreateMenuItem("Rot", $farben)
	$gruen = GUICtrlCreateMenuItem("Grün", $farben)
	$blau = GUICtrlCreateMenuItem("Blau", $farben)
	$lila = GUICtrlCreateMenuItem("Lila", $farben)
	$orange = GUICtrlCreateMenuItem("Orange", $farben)
	$gelb = GUICtrlCreateMenuItem("Gelb", $farben)
	$wei = GUICtrlCreateMenuItem("Weiß", $farben)
	GUICtrlCreateMenuItem("", $context)
	$www = GUICtrlCreateMenuItem("Autoit.de aufrufen", $context)
	GUICtrlCreateMenuItem("", $context)
	$aktualisieren = GUICtrlCreateMenuItem("Uhr aktualisieren", $context)
	GUICtrlCreateMenuItem("", $context)
	$about = GUICtrlCreateMenuItem("Über diese Programm", $context)
	GUICtrlCreateMenuItem("", $context)
	$exit = GUICtrlCreateMenuItem("Beenden", $context)

	_GDIPlus_GraphicsDrawEllipse($hGraphic, 196, 50, 15, 15, $hPen1)
	_GDIPlus_GraphicsDrawEllipse($hGraphic, 196, 100, 15, 15, $hPen1)
	_GDIPlus_GraphicsDrawEllipse($hGraphic, 405, 50, 15, 15, $hPen1)
	_GDIPlus_GraphicsDrawEllipse($hGraphic, 405, 100, 15, 15, $hPen1)

	_GDIPlus_GraphicsFillEllipse($hGraphic, 196, 50, 15, 15, $hPen3)
	_GDIPlus_GraphicsFillEllipse($hGraphic, 196, 100, 15, 15, $hPen3)
	_GDIPlus_GraphicsFillEllipse($hGraphic, 405, 50, 15, 15, $hPen3)
	_GDIPlus_GraphicsFillEllipse($hGraphic, 405, 100, 15, 15, $hPen3)

	U1()
	U2()
	U3()
	U4()
	U5()
	U6()
	_Dot()

	Global $Hour = @HOUR
	Global $Minutes = @MIN
	Global $Seconds1 = StringLeft(@SEC, 1)
	Global $Seconds2 = StringRight(@SEC, 1)

	Global $sleep = 100
	GUIRegisterMsg($WM_TIMER, "_Update") ;$WM_TIMER = 0x0113
	DllCall("User32.dll", "int", "SetTimer", "hwnd", $hwnd, "int", 0, "int", $sleep, "int", 0)

	While 1
		$msg = GUIGetMsg()
		Switch $msg
			Case $rot
				_Farbe(0xFFFF0000, 0xFF440000)
			Case $gruen
				_Farbe(0xFF00FF00, 0xFF004400)
			Case $blau
				_Farbe(0xFF0000FF, 0xFF000044)
			Case $lila
				_Farbe(0xFF8B00FF, 0xFF000044)
			Case $orange
				_Farbe(0xFFFFA100, 0xFF441A00)
			Case $gelb
				_Farbe(0xFFFFFF00, 0xFF444400)
			Case $wei
				_Farbe(0xFFFFFFFF, 0xFF444444)
			Case $www
				ShellExecute("www.autoit.de")
			Case $aktualisieren
				U1()
				U2()
				U3()
				U4()
				U5()
				U6()
				_Dot()
			Case $about
				MsgBox(262208, "Über dieses Programm", "Dieses Programm wurde von xp_fan aus der deutschen AutoIt-Community www.autoit.de geschrieben!" & Chr(10) & "Besonderen Dank an tobi_girst, Oscar und Andy von Autoit.de für ihre Hilfe!")
				U1()
				U2()
				U3()
				U4()
				U5()
				U6()
				_Dot()
			Case $exit
				_Ende()
		EndSwitch
	WEnd

EndFunc   ;==>_Start

Func U1()
	$h1 = StringLeft(@HOUR, 1)
	Switch $h1
		Case 0
			_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(20, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
		Case 1
			_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
		Case 2
			_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
		Case 3
			_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
		Case 4
			_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(20, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
		Case 5
			_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
		Case 6
			_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
		Case 7
			_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(20, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
		Case 8
			_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
		Case 9
			_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
	EndSwitch
EndFunc   ;==>U1

Func U2()
	$h2 = StringRight(@HOUR, 1)
	Switch $h2
		Case 0
			_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(115, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
		Case 1
			_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
		Case 2
			_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
		Case 3
			_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
		Case 4
			_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(115, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
		Case 5
			_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
		Case 6
			_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
		Case 7
			_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(115, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
		Case 8
			_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
		Case 9
			_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
	EndSwitch
EndFunc   ;==>U2

Func U3()
	$h3 = StringLeft(@MIN, 1)
	Switch $h3
		Case 0
			_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(230, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
		Case 1
			_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
		Case 2
			_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
		Case 3
			_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
		Case 4
			_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(230, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
		Case 5
			_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
		Case 6
			_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
		Case 7
			_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(230, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
		Case 8
			_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
		Case 9
			_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
	EndSwitch
EndFunc   ;==>U3

Func U4()
	$h4 = StringRight(@MIN, 1)
	Switch $h4
		Case 0
			_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(325, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
		Case 1
			_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
		Case 2
			_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
		Case 3
			_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
		Case 4
			_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(325, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
		Case 5
			_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
		Case 6
			_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
		Case 7
			_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(325, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
		Case 8
			_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
		Case 9
			_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
	EndSwitch
EndFunc   ;==>U4

Func U5()
	$h5 = StringLeft(@SEC, 1)
	Switch $h5
		Case 0
			_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(440, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
		Case 1
			_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
		Case 2
			_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
		Case 3
			_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
		Case 4
			_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(440, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
		Case 5
			_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
		Case 6
			_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
		Case 7
			_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(440, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
		Case 8
			_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
		Case 9
			_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
	EndSwitch
EndFunc   ;==>U5

Func U6()
	$h6 = StringRight(@SEC, 1)
	Switch $h6
		Case 0
			_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(535, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
		Case 1
			_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
		Case 2
			_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
		Case 3
			_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
		Case 4
			_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(535, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
		Case 5
			_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
		Case 6
			_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
		Case 7
			_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(535, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
		Case 8
			_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
		Case 9
			_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
			_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
	EndSwitch
EndFunc   ;==>U6

Func _Dot()
	$hPen1 = _GDIPlus_PenCreate($colornotactive)
	$hPen2 = _GDIPlus_BrushCreateSolid($coloractive)
	$hPen3 = _GDIPlus_BrushCreateSolid($colornotactive)
	If $counter = 1 Then
		_GDIPlus_GraphicsFillEllipse($hGraphic, 196, 50, 15, 15, $hPen3)
		_GDIPlus_GraphicsFillEllipse($hGraphic, 196, 100, 15, 15, $hPen3)
		_GDIPlus_GraphicsFillEllipse($hGraphic, 405, 50, 15, 15, $hPen3)
		_GDIPlus_GraphicsFillEllipse($hGraphic, 405, 100, 15, 15, $hPen3)
		$counter = 0
	Else
		_GDIPlus_GraphicsFillEllipse($hGraphic, 196, 50, 15, 15, $hPen2)
		_GDIPlus_GraphicsFillEllipse($hGraphic, 196, 100, 15, 15, $hPen2)
		_GDIPlus_GraphicsFillEllipse($hGraphic, 405, 50, 15, 15, $hPen2)
		_GDIPlus_GraphicsFillEllipse($hGraphic, 405, 100, 15, 15, $hPen2)
		$counter = 1
	EndIf
EndFunc   ;==>_Dot


Func _Update()
	$mp = WinGetPos("GDI+ Digitaluhr V. 1.1")
	While $mp[0] And $mp[1] < -10
		$mp = WinGetPos("GDI+ Digitaluhr V. 1.1")
		U1()
		U2()
		U3()
		U4()
		U5()
		U6()
		$counter2 = 1
		Sleep(900)
	WEnd
	Select
		Case $counter2 = 1 And $mp[0] And $mp[1] < -10
			U1()
			U2()
			U3()
			U4()
			U5()
			U6()
			$counter2 = 0
		Case @HOUR <> $Hour
			U1()
			U2()
		Case @MIN <> $Minutes
			U1()
			U2()
			U3()
			U4()
			U5()
			U6()
		Case $Seconds1 <> StringLeft(@SEC, 1)
			U1()
			U2()
			U3()
			U4()
			U5()
			U6()
		Case $Seconds2 <> StringRight(@SEC, 1)
			U6()
			_Dot()
	EndSelect
	$Seconds1 = StringLeft(@SEC, 1)
	$Seconds2 = StringRight(@SEC, 1)
	$Minutes = @MIN
	$Hour = @HOUR
EndFunc   ;==>_Update



Func _7s($x, $y, $delete = 0, $c1 = $colornotactive, $c2 = $colornotactive, $c3 = $colornotactive, $c4 = $colornotactive, $c5 = $colornotactive, $c6 = $colornotactive, $c7 = $colornotactive)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	Local $aPoints1[7][2], $aPoints2[7][2], $aPoints3[7][2], $aPoints4[7][2], $aPoints5[7][2], $aPoints6[7][2], $aPoints7[7][2], $hPen[14], $Graphic[14]
	If $delete = 0 Then

		$Posx1 = $x
		$Posy1 = $y + 1
		$aPoints1[0][0] = 6

		$aPoints1[1][0] = $Posx1
		$aPoints1[1][1] = $Posy1 - 5

		$aPoints1[2][0] = $Posx1 + 10
		$aPoints1[2][1] = $Posy1 - 5

		$aPoints1[6][0] = $Posx1 + 10
		$aPoints1[6][1] = $Posy1 + 5

		$aPoints1[3][0] = $Posx1 + 50
		$aPoints1[3][1] = $Posy1 - 5

		$aPoints1[5][0] = $Posx1 + 50
		$aPoints1[5][1] = $Posy1 + 5

		$aPoints1[4][0] = $Posx1 + 60
		$aPoints1[4][1] = $Posy1 - 5

		_GDIPlus_Startup()

		$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
		$hPen[0] = _GDIPlus_PenCreate($c1)
		$hPen[1] = _GDIPlus_BrushCreateSolid($c1)
		$Graphic[0] = _GDIPlus_GraphicsDrawPolygon($hGraphic, $aPoints1, $hPen[0])
		$Graphic[1] = _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints1, $hPen[1])

		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;2;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		$Posx2 = $x
		$Posy2 = $y + 63
		$aPoints2[0][0] = 6

		$aPoints2[1][0] = $Posx2
		$aPoints2[1][1] = $Posy2

		$aPoints2[2][0] = $Posx2 + 10
		$aPoints2[2][1] = $Posy2 - 7

		$aPoints2[6][0] = $Posx2 + 10
		$aPoints2[6][1] = $Posy2 + 7

		$aPoints2[3][0] = $Posx2 + 50
		$aPoints2[3][1] = $Posy2 - 7

		$aPoints2[5][0] = $Posx2 + 50
		$aPoints2[5][1] = $Posy2 + 7

		$aPoints2[4][0] = $Posx2 + 60
		$aPoints2[4][1] = $Posy2
		$hPen[2] = _GDIPlus_PenCreate($c2)
		$hPen[3] = _GDIPlus_BrushCreateSolid($c2)
		$Graphic[2] = _GDIPlus_GraphicsDrawPolygon($hGraphic, $aPoints2, $hPen[2])
		$Graphic[3] = _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints2, $hPen[3])

		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;3;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		$Posx3 = $x - 1
		$Posy3 = $y + 125
		$aPoints3[0][0] = 6

		$aPoints3[1][0] = $Posx3
		$aPoints3[1][1] = $Posy3 + 5

		$aPoints3[2][0] = $Posx3 + 10
		$aPoints3[2][1] = $Posy3 - 5

		$aPoints3[6][0] = $Posx3 + 10
		$aPoints3[6][1] = $Posy3 + 5

		$aPoints3[3][0] = $Posx3 + 50
		$aPoints3[3][1] = $Posy3 - 5

		$aPoints3[5][0] = $Posx3 + 50
		$aPoints3[5][1] = $Posy3 + 5

		$aPoints3[4][0] = $Posx3 + 60
		$aPoints3[4][1] = $Posy3 + 5

		$hPen[4] = _GDIPlus_PenCreate($c3)
		$hPen[5] = _GDIPlus_BrushCreateSolid($c3)
		$Graphic[4] = _GDIPlus_GraphicsDrawPolygon($hGraphic, $aPoints3, $hPen[4])
		$Graphic[5] = _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints3, $hPen[5])


		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;;;;;;;;;;;;;;;;;;;;;;;;;vertikal;;;;;;;;;;;;;;;;;;;;;;;;;
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;4;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		$Posx4 = $x + 3
		$Posy4 = $y
		$aPoints4[0][0] = 6

		$aPoints4[1][0] = $Posx4 - 5
		$aPoints4[1][1] = $Posy4

		$aPoints4[2][0] = $Posx4 + 5
		$aPoints4[2][1] = $Posy4 + 10

		$aPoints4[3][0] = $Posx4 + 5
		$aPoints4[3][1] = $Posy4 + 50

		$aPoints4[4][0] = $Posx4 - 5
		$aPoints4[4][1] = $Posy4 + 60

		$aPoints4[5][0] = $Posx4 - 5
		$aPoints4[5][1] = $Posy4 + 50

		$aPoints4[6][0] = $Posx4 - 5
		$aPoints4[6][1] = $Posy4 + 10
		$hPen[6] = _GDIPlus_PenCreate($c4)
		$hPen[7] = _GDIPlus_BrushCreateSolid($c4)
		$Graphic[6] = _GDIPlus_GraphicsDrawPolygon($hGraphic, $aPoints4, $hPen[6])
		$Graphic[7] = _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints4, $hPen[7])

		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;5;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		$Posx5 = $x + 3
		$Posy5 = $y + 66
		$aPoints5[0][0] = 6

		$aPoints5[1][0] = $Posx5 - 5
		$aPoints5[1][1] = $Posy5

		$aPoints5[2][0] = $Posx5 + 5
		$aPoints5[2][1] = $Posy5 + 10

		$aPoints5[3][0] = $Posx5 + 5
		$aPoints5[3][1] = $Posy5 + 50

		$aPoints5[4][0] = $Posx5 - 5
		$aPoints5[4][1] = $Posy5 + 60

		$aPoints5[5][0] = $Posx5 - 5
		$aPoints5[5][1] = $Posy5 + 50

		$aPoints5[6][0] = $Posx5 - 5
		$aPoints5[6][1] = $Posy5 + 10
		$hPen[8] = _GDIPlus_PenCreate($c5)
		$hPen[9] = _GDIPlus_BrushCreateSolid($c5)
		$Graphic[8] = _GDIPlus_GraphicsDrawPolygon($hGraphic, $aPoints5, $hPen[8])
		$Graphic[9] = _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints5, $hPen[9])

		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;6;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		$Posx6 = $x + 56
		$Posy6 = $y
		$aPoints6[0][0] = 6

		$aPoints6[1][0] = $Posx6 + 5
		$aPoints6[1][1] = $Posy6

		$aPoints6[2][0] = $Posx6 + 5
		$aPoints6[2][1] = $Posy6 + 10

		$aPoints6[3][0] = $Posx6 + 5
		$aPoints6[3][1] = $Posy6 + 50

		$aPoints6[4][0] = $Posx6 + 5
		$aPoints6[4][1] = $Posy6 + 60

		$aPoints6[5][0] = $Posx6 - 5
		$aPoints6[5][1] = $Posy6 + 50

		$aPoints6[6][0] = $Posx6 - 5
		$aPoints6[6][1] = $Posy6 + 10
		$hPen[10] = _GDIPlus_PenCreate($c6)
		$hPen[11] = _GDIPlus_BrushCreateSolid($c6)
		$Graphic[10] = _GDIPlus_GraphicsDrawPolygon($hGraphic, $aPoints6, $hPen[10])
		$Graphic[11] = _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints6, $hPen[11])

		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;7;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		$Posx7 = $x + 56
		$Posy7 = $y + 66
		$aPoints7[0][0] = 6

		$aPoints7[1][0] = $Posx7 + 5
		$aPoints7[1][1] = $Posy7

		$aPoints7[2][0] = $Posx7 + 5
		$aPoints7[2][1] = $Posy7 + 10

		$aPoints7[3][0] = $Posx7 + 5
		$aPoints7[3][1] = $Posy7 + 50

		$aPoints7[4][0] = $Posx7 + 5
		$aPoints7[4][1] = $Posy7 + 60

		$aPoints7[5][0] = $Posx7 - 5
		$aPoints7[5][1] = $Posy7 + 50

		$aPoints7[6][0] = $Posx7 - 5
		$aPoints7[6][1] = $Posy7 + 10
		$hPen[12] = _GDIPlus_PenCreate($c7)
		$hPen[13] = _GDIPlus_BrushCreateSolid($c7)
		$Graphic[12] = _GDIPlus_GraphicsDrawPolygon($hGraphic, $aPoints7, $hPen[12])
		$Graphic[13] = _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints7, $hPen[13])
	Else
		For $i = 0 To 12 Step 2
			_GDIPlus_PenDispose($hPen[$i])
		Next
		For $ii = 1 To 13 Step 2
			_GDIPlus_BrushDispose($hPen[$i])
		Next
		For $iii = 0 To 13
			_GDIPlus_GraphicsDispose($hGraphic)
		Next
		_GDIPlus_Shutdown()
	EndIf
EndFunc   ;==>_7s

Func _SelectColors($choosecoloractive = 0xFF00FF00, $choosecolornotactive = 0xFF004400)
	Global $coloractive = $choosecoloractive
	Global $colornotactive = $choosecolornotactive
EndFunc   ;==>_SelectColors

Func _Ende()
	GUIRegisterMsg($WM_TIMER, "")
	_GDIPlus_GraphicsDispose($hGraphic)
	_GDIPlus_Shutdown()
	Exit
EndFunc   ;==>_Ende

Func _Farbe($active, $notactive)
	GUIRegisterMsg($WM_TIMER, "")
	_GDIPlus_GraphicsDispose($hGraphic)
	_GDIPlus_Shutdown()
	GUIDelete()
	$param1 = String($active)
	$param2 = String($notactive)
	$s2 = String(@ScriptName)
	If @OSArch = 'X86' Then
		$autoit = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir') & '\AutoIt3.exe' ; für 32 Bit
	Else
		$autoit = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\AutoIt v3\AutoIt', 'InstallDir') & '\AutoIt3_x64.exe' ; für 64 Bit
	EndIf
	Run(Chr(34) & $autoit & Chr(34) & " " & $s2 & " " & $param1 & " " & $param2)
	Exit
EndFunc   ;==>_Farbe