func ScreenSaver_Proc()
Global $FontSize = RegRead("HKEY_CURRENT_USER\Software\ShaDo's SCR", "Font Size")
If $FontSize = "" Or $FontSize <= 0 Then $FontSize = 40
Global $FontColor = RegRead("HKEY_CURRENT_USER\Software\ShaDo's SCR", "Font Color")
If $FontColor = "" Or $FontColor <= 0 Then $FontColor = '0xffffff'
Opt("GuiOnEventMode", 1)
HotKeySet("{ESC}", "CloseScreenSaver")
$test=GUICreate('',1280,1024,0,0,$WS_POPUP)
$bg=GUICtrlCreatePic('C:\Program Files\ShaDo\bg.gif',0,0,1280,1024,-1)
$time=GUICtrlCreateLabel(@hour & ':' & @min & ':' & @sec,235,130,1000,300)
GUICtrlSetColor($time,0xdadada)
GUICtrlSetFont(-1, '155', -1,-1 ,'20th Century Font')
GUICtrlSetBkColor($time,$GUI_BKCOLOR_TRANSPARENT)
GUISetState()
$Main_Timer = TimerInit()
GUISetOnEvent($GUI_EVENT_MOUSEMOVE, "CloseScreenSaver")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "CloseScreenSaver")
GUISetBkColor(0)
GUISetCursor(16, 1)
while 1
GUICtrlSetData($time,@hour & ':' & @min & ':' & @sec)
Sleep(1000)
WEnd
EndFunc