#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <ButtonConstants.au3>
#include <Constants.au3>
#include <WinAPI.au3>
#include <FontConstants.au3>
#include <GDIPlus.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>
#include <GUIListBox.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
#Include <GuiMonthCal.au3>
#include <Date.au3>
#include <GuiEdit.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#Include <File.au3>
Opt("WinTitleMatchMode", 2) 
Opt("MustDeclareVars", 1)
Opt("TrayMenuMode", 1)
Opt("GUICoordMode", 1)	
Global Const $MIM_APPLYTOSUBMENUS = 0x80000000
Global Const $MIM_BACKGROUND = 0x00000002

Global Const $AC_SRC_ALPHA      = 1
$Debug_Ed = False 
Global $trnasag = 200
Global $bmpgliss = 0
Global $GT = 0
_check()

Func _check()

Global $hWnd0, $hWnd1
Global $rgn0, $rgn1
Global $date, $RDATE
Global $exit, $reduire, $GLISS
Global $hWnd2, $rgn2
Global $hEdit
;;;;;;;;;;;;;;;;;;;;
Global $TPHS, $TPHH, $TPHM, $logo = 1, $H, $H1, $tFile, $aFile, $0, $1, $2, $3, $4, $5
Global $HX, $HXX, $MX, $MXX, $SX, $SXX

Global $Restaurer

Global $I2
 $I2 = 1
;;;;;;;;;;;;;;;;;;;


Create0()
AdlibEnable("Timer", 255)


While 1
Switch TrayGetMsg()


Case $Restaurer
Select
	
Case $I2 = 0
TrayItemDelete($Restaurer)
Create0()
AdlibEnable("Timer", 255)
$I2 = 1
EndSelect
EndSwitch
Switch GUIGetMsg() 
Case $exit
Local $SRSTI = StringReplace(GUICtrlRead($Date), "/", " ", 2)
FileOpen("agenda\" & $SRSTI & ".txt", 2)
FileClose(-1)
FileWrite("agenda\" & $SRSTI & ".txt", GUICtrlRead($hEdit))
Local $wwwx = WinGetPos("CalAgenda")
If $bmpgliss = 1 Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\CalAgenda", "PL", "REG_SZ", $wwwx[0]+325)
Else
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\CalAgenda", "PL", "REG_SZ", $wwwx[0])
EndIf
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\CalAgenda", "PT", "REG_SZ", $wwwx[1])
Exit	
Case $date

Local $SRSTI = StringReplace($RDATE, "/", " ", 2)
FileOpen("agenda\" & $SRSTI & ".txt", 2)
FileClose(-1)
FileWrite("agenda\" & $SRSTI & ".txt", GUICtrlRead($hEdit))
$RDATE = GUICtrlRead($Date)
GUICtrlSetData($hEdit, FileRead("agenda\" & StringReplace($RDATE, "/", " ", 2) & ".txt"))
Case $GLISS
;_gliss($hWnd2, $rgn2)
If $bmpgliss = 1 Then
Local $SRSTI = StringReplace(GUICtrlRead($Date), "/", " ", 2)
FileOpen("agenda\" & $SRSTI & ".txt", 2)
FileClose(-1)
FileWrite("agenda\" & $SRSTI & ".txt", GUICtrlRead($hEdit))
Local $wwwx = WinGetPos("CalAgenda")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\CalAgenda", "PL", "REG_SZ", $wwwx[0]+325)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\CalAgenda", "PT", "REG_SZ", $wwwx[1])	
AdlibDisable()
GUIDelete($hWnd0)
Create0()
AdlibEnable("Timer", 255)
$bmpgliss = 0
Else
Local $SRSTI = StringReplace(GUICtrlRead($Date), "/", " ", 2)
FileOpen("agenda\" & $SRSTI & ".txt", 2)
FileClose(-1)
FileWrite("agenda\" & $SRSTI & ".txt", GUICtrlRead($hEdit))
Local $wwwx = WinGetPos("CalAgenda")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\CalAgenda", "PL", "REG_SZ", $wwwx[0])
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\CalAgenda", "PT", "REG_SZ", $wwwx[1])	
AdlibDisable()
GUIDelete($hWnd0)
Create1()
AdlibEnable("Timer", 255)
$bmpgliss = 1
EndIf
case $reduire
TrayItemDelete($Restaurer)
$Restaurer = TrayCreateItem("Restaurer")
GUISetState()
AdlibDisable()
GUIDelete($hWnd0)
$I2 = 0	
EndSwitch
WEnd
EndFunc   
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func Create0()
Local $Mleft = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\CalAgenda", "PL")
If @error Then $Mleft = 12
Local $Mtop = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\CalAgenda", "PT")
If @error Then $Mtop = 12
$tFile = _Date_Time_EncodeFileTime(@MON, @MDAY, @YEAR, @HOUR, @MIN, @SEC)
$aFile = _Date_Time_FileTimeToArray($tFile)
$TPHH = $aFile[3]
$TPHM = $aFile[4]
$TPHS = $aFile[5]	


$hWnd0 = GUICreate("CalAgenda", 260, 245, $Mleft, $Mtop, $WS_POPUP)
GUISetBkColor(0x000000)
$rgn0 = _WinAPI_CreateRoundRectRgn(30, 30, 255, 240, 15,15)							
_WinAPI_SetWindowRgn($hWnd0, $rgn0)	
 $Date = GUICtrlCreateMonthCal("", 66, 68, 180, 160)
$exit = GUICtrlCreatePic("GRAPHIC\exit.bmp", 225, 36, 21, 21)
$reduire = GUICtrlCreatePic("GRAPHIC\reduire.bmp", 195, 36, 21, 21)
$GLISS =  GUICtrlCreatePic("GRAPHIC\" & $bmpgliss & "gliss.bmp", 42, 36, 11, 193)
Local $winpos = WinGetPos("CalAgenda")
GUISetState()
$hWnd1 = GUICreate("Horloge", 125, 26, 62, 32, $WS_CHILD, $WS_EX_CLIENTEDGE, $hWnd0)
GUISetBkColor(0xFFFFFF)
$rgn1 = _WinAPI_CreateRoundRectRgn(5, 5, 125, 26, 5, 5)							
_WinAPI_SetWindowRgn($hWnd1, $rgn1)	

If $aFile[3] < 10 Then
$HX = 0
$HXX = $aFile[3]
Else
$HX = StringRight(StringLeft($aFile[3], 1), 1)
$HXX = StringRight(StringLeft($aFile[3], 2), 1)
EndIf
If $aFile[4] < 10 Then
$MX = 0
$MXX = $aFile[4]
Else
$MX = StringRight(StringLeft($aFile[4], 1), 1)
$MXX = StringRight(StringLeft($aFile[4], 2), 1)
EndIf
If $aFile[5] < 10 Then
$SX = 0
$SXX = $aFile[5]
Else
$SX = StringRight(StringLeft($aFile[5], 1), 1)
$SXX = StringRight(StringLeft($aFile[5], 2), 1)
EndIf
$0 = GUICtrlCreatePic("GRAPHIC\chifre\" & $HX & ".bmp", 7, 5, 11, 16)
$1 = GUICtrlCreatePic("GRAPHIC\chifre\" & $HXX & ".bmp", 21, 5, 11, 16)
$H = GUICtrlCreatePic("GRAPHIC\chifre\H.bmp", 36, 5, 11, 16)
$2 = GUICtrlCreatePic("GRAPHIC\chifre\" & $MX & ".bmp", 50, 5, 11, 16)
$3 = GUICtrlCreatePic("GRAPHIC\chifre\" & $MXX & ".bmp", 64, 5, 11, 16)
$H1 = GUICtrlCreatePic("GRAPHIC\chifre\H.bmp", 79, 5, 11, 16)
$4 = GUICtrlCreatePic("GRAPHIC\chifre\" & $SX & ".bmp",  93, 5, 11, 16)
$5 = GUICtrlCreatePic("GRAPHIC\chifre\" & $SXX & ".bmp", 107, 5, 11, 16)
GUISetState()
GUISetState(@SW_SHOW ,$hWnd0)
WinSetTrans("CalAgenda", "", 200)
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
GUISetState()
$RDATE = GUICtrlRead($Date)
GUICtrlSetData($hEdit, FileRead("agenda\" & StringReplace($RDATE, "/", " ", 2) & ".txt"))
EndFunc


Func Create1()
Local $Mleft = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\CalAgenda", "PL")
If @error Then $Mleft = 12
Local $Mtop = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\CalAgenda", "PT")
If @error Then $Mtop = 12
$tFile = _Date_Time_EncodeFileTime(@MON, @MDAY, @YEAR, @HOUR, @MIN, @SEC)
$aFile = _Date_Time_FileTimeToArray($tFile)
$TPHH = $aFile[3]
$TPHM = $aFile[4]
$TPHS = $aFile[5]
$hWnd0 = GUICreate("CalAgenda", 585, 245, $Mleft-325, $Mtop, $WS_POPUP)
GUISetBkColor(0x000000)
$rgn0 = _WinAPI_CreateRoundRectRgn(30, 30, 580, 240, 15,15)							
_WinAPI_SetWindowRgn($hWnd0, $rgn0)	
 $Date = GUICtrlCreateMonthCal("", 391, 68, 180, 160)
$exit = GUICtrlCreatePic("GRAPHIC\exit.bmp", 550, 36, 21, 21)
$reduire = GUICtrlCreatePic("GRAPHIC\reduire.bmp", 520, 36, 21, 21)
$GLISS =  GUICtrlCreatePic("GRAPHIC\" & $bmpgliss & "gliss.bmp", 366, 36, 11, 193)
Local $winpos = WinGetPos("CalAgenda")
$hWnd1 = GUICreate("Horloge", 125, 26, 387, 32, $WS_CHILD, $WS_EX_CLIENTEDGE, $hWnd0)
GUISetBkColor(0xFFFFFF)
$rgn1 = _WinAPI_CreateRoundRectRgn(5, 5, 125, 26, 5, 5)							
_WinAPI_SetWindowRgn($hWnd1, $rgn1)	
If $aFile[3] < 10 Then
$HX = 0
$HXX = $aFile[3]
Else
$HX = StringRight(StringLeft($aFile[3], 1), 1)
$HXX = StringRight(StringLeft($aFile[3], 2), 1)
EndIf
If $aFile[4] < 10 Then
$MX = 0
$MXX = $aFile[4]
Else
$MX = StringRight(StringLeft($aFile[4], 1), 1)
$MXX = StringRight(StringLeft($aFile[4], 2), 1)
EndIf
If $aFile[5] < 10 Then
$SX = 0
$SXX = $aFile[5]
Else
$SX = StringRight(StringLeft($aFile[5], 1), 1)
$SXX = StringRight(StringLeft($aFile[5], 2), 1)
EndIf
$0 = GUICtrlCreatePic("GRAPHIC\chifre\" & $HX & ".bmp", 7, 5, 11, 16)
$1 = GUICtrlCreatePic("GRAPHIC\chifre\" & $HXX & ".bmp", 21, 5, 11, 16)
$H = GUICtrlCreatePic("GRAPHIC\chifre\H.bmp", 36, 5, 11, 16)
$2 = GUICtrlCreatePic("GRAPHIC\chifre\" & $MX & ".bmp", 50, 5, 11, 16)
$3 = GUICtrlCreatePic("GRAPHIC\chifre\" & $MXX & ".bmp", 64, 5, 11, 16)
$H1 = GUICtrlCreatePic("GRAPHIC\chifre\H.bmp", 79, 5, 11, 16)
$4 = GUICtrlCreatePic("GRAPHIC\chifre\" & $SX & ".bmp",  93, 5, 11, 16)
$5 = GUICtrlCreatePic("GRAPHIC\chifre\" & $SXX & ".bmp", 107, 5, 11, 16)
GUISetState()
GUISetState(@SW_SHOW ,$hWnd0)
WinSetTrans("CalAgenda", "", 200)
GUISetState()
$hEdit = GUICtrlCreateEdit("", 40, 36, 310, 192)
GUISetState()
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
GUISetState()
$RDATE = GUICtrlRead($Date)
GUICtrlSetData($hEdit, FileRead("agenda\" & StringReplace($RDATE, "/", " ", 2) & ".txt"))
EndFunc



Func Timer($bmpgliss );;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$tFile = _Date_Time_EncodeFileTime(@MON, @MDAY, @YEAR, @HOUR, @MIN, @SEC)
$aFile = _Date_Time_FileTimeToArray($tFile)
if $TPHS <> $aFile[5]	then
$TPHS = $aFile[5]
If $aFile[5] < 10 Then
GUICtrlSetImage($4, "GRAPHIC\chifre\0.bmp")
GUICtrlSetImage($5, "GRAPHIC\chifre\" & StringRight(StringLeft($aFile[5], 2), 1) & ".bmp")
Else
GUICtrlSetImage($4, "GRAPHIC\chifre\" & StringRight(StringLeft($aFile[5], 1), 1) & ".bmp")
GUICtrlSetImage($5, "GRAPHIC\chifre\" & StringRight(StringLeft($aFile[5], 2), 1) & ".bmp")
EndIf
EndIf
if $TPHM <>	$aFile[4]	then
$TPHM = $aFile[4]
If $aFile[4] < 10 then
GUICtrlSetImage($2, "GRAPHIC\chifre\0.bmp")
GUICtrlSetImage($3, "GRAPHIC\chifre\" & StringRight(StringLeft($aFile[4], 2), 1) & ".bmp")
Else
GUICtrlSetImage($2, "GRAPHIC\chifre\" & StringRight(StringLeft($aFile[4], 1), 1) & ".bmp")
GUICtrlSetImage($3, "GRAPHIC\chifre\" & StringRight(StringLeft($aFile[4], 2), 1) & ".bmp")
EndIf
EndIf
if $TPHH <> $aFile[3]	then
$TPHH = $aFile[3]
If $aFile[3] < 10 then
GUICtrlSetImage($0, "GRAPHIC\chifre\0.bmp")
GUICtrlSetImage($1, "GRAPHIC\chifre\" & StringRight(StringLeft($aFile[3], 2), 1) & ".bmp")
Else
GUICtrlSetImage($0, "GRAPHIC\chifre\" & StringRight(StringLeft($aFile[3], 1), 1) & ".bmp")
GUICtrlSetImage($1, "GRAPHIC\chifre\" & StringRight(StringLeft($aFile[3], 2), 1) & ".bmp")
EndIf
EndIf
Local $mousepos = GUIGetCursorInfo()
if $mousepos[4] = $exit Then
GUICtrlSetImage($exit, "GRAPHIC\exitover.bmp")
Else
GUICtrlSetImage($exit, "GRAPHIC\exit.bmp")
EndIf	
if $mousepos[4] = $reduire Then
GUICtrlSetImage($reduire, "GRAPHIC\reduireover.bmp")
Else
GUICtrlSetImage($reduire, "GRAPHIC\reduire.bmp")
EndIf	
if $mousepos[4] = $GLISS Then
GUICtrlSetImage($GLISS, "GRAPHIC\" & $bmpgliss & "glissover.bmp")
Else
GUICtrlSetImage($GLISS, "GRAPHIC\" & $bmpgliss & "gliss.bmp")
EndIf	
Local $pos = MouseGetPos()	
Local $winpos = WinGetPos("CalAgenda")
Local $winpos1 = WinGetPos("agenda")
if $pos[0] > $winpos[0] + 30 And $pos[0] < $winpos[0] + $winpos[2] + 0 And $pos[1] > $winpos[1] + 30 And $pos[1] < $winpos[1] + $winpos[3] + 0 Then
WinSetTrans("CalAgenda", "", 200)
Else
WinSetTrans("CalAgenda", "", 50)
EndIf	
GUISetState()
EndFunc;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
Local $winpos = WinGetPos("CalAgenda")
If $bmpgliss = 1 Then
WinMove("agenda", "", $winpos[0] - 368, $winpos[1])
Else
WinMove("agenda", "", $winpos[0] - 29, $winpos[1])
EndIf
  if ($hWnd = $hWnd0) And ($iMsg = $WM_NCHITTEST) then Return $HTCAPTION
EndFunc