#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <TrayConstants.au3>

Opt("TrayMenuMode", 3) ;Pour ne pas avoir les menus affichés par défaut

;Variables
$edition1 = "Texte"
$edition2 = "Texte"
$edition3 = "Texte"
$edition4 = "Texte"
$edition5 = "Texte"
$edition6 = "Texte"
Local $hDLL = DllOpen("user32.dll")

; Declaration des GUI

; Menu minimisé
Local $iSettings = TrayCreateMenu("Options")
Local $iDisplay = TrayCreateItem("Ouvrir le logiciel", $iSettings)
Local $idExit = TrayCreateItem("Quitter", $iSettings)
TrayCreateItem("")

TraySetState($TRAY_ICONSTATE_SHOW)


;GUI principale
#Region ### START Koda GUI section ### Form=D:\Remi\Desktop\Form1.kxf
Global $G_principale = GUICreate("Quickdrafter", 353, 638, 192, 124)
GUISetBkColor(0xD7E4F2)
Global $StatusBar1 = _GUICtrlStatusBar_Create($G_principale)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 41)
Global $Group1 = GUICtrlCreateGroup("Memo 1", 16, 64, 321, 73)
GUICtrlSetFont(-1, 10, 400, 4, "Calibri")
Global $Button1 = GUICtrlCreateButton("Editer", 32, 88, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, 0xB9D1EA)
GUICtrlSetCursor (-1, 0)
Global $Label1 = GUICtrlCreateLabel("Texte, lien commande...", 128, 96, 159, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("Memo 2", 16, 152, 321, 73)
GUICtrlSetFont(-1, 10, 400, 4, "Calibri")
Global $Button2 = GUICtrlCreateButton("Editer", 32, 176, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, 0xB9D1EA)
GUICtrlSetCursor (-1, 0)
Global $Label2 = GUICtrlCreateLabel("Texte, lien commande...", 128, 184, 159, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group3 = GUICtrlCreateGroup("Memo 3", 16, 240, 321, 73)
GUICtrlSetFont(-1, 10, 400, 4, "Calibri")
Global $Button3 = GUICtrlCreateButton("Editer", 32, 264, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, 0xB9D1EA)
GUICtrlSetCursor (-1, 0)
Global $Label3 = GUICtrlCreateLabel("Texte, lien commande...", 128, 272, 159, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group4 = GUICtrlCreateGroup("Memo 4", 16, 328, 321, 73)
GUICtrlSetFont(-1, 10, 400, 4, "Calibri")
Global $Button4 = GUICtrlCreateButton("Editer", 32, 352, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, 0xB9D1EA)
GUICtrlSetCursor (-1, 0)
Global $Label4 = GUICtrlCreateLabel("Texte, lien commande...", 128, 360, 159, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group5 = GUICtrlCreateGroup("Memo 5", 16, 416, 321, 73)
GUICtrlSetFont(-1, 10, 400, 4, "Calibri")
Global $Button5 = GUICtrlCreateButton("Editer", 32, 440, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, 0xB9D1EA)
GUICtrlSetCursor (-1, 0)
Global $Label5 = GUICtrlCreateLabel("Texte, lien commande...", 128, 448, 159, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group6 = GUICtrlCreateGroup("Memo 6", 16, 504, 321, 73)
GUICtrlSetFont(-1, 10, 400, 4, "Calibri")
Global $Button6 = GUICtrlCreateButton("Editer", 32, 528, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, 0xB9D1EA)
GUICtrlSetCursor (-1, 0)
Global $Label6 = GUICtrlCreateLabel("Texte, lien commande...", 128, 536, 159, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Label7 = GUICtrlCreateLabel("QuickDrafter", 16, 16, 144, 37)
GUICtrlSetFont(-1, 20, 400, 2, "Calibri")
Global $Icon1 = GUICtrlCreateIcon("D:\Remi\Desktop\1485224364_icons_settings.ico", -1, 184, 16, 41, 41)
GUICtrlSetCursor (-1, 0)
Global $Icon2 = GUICtrlCreateIcon("D:\Remi\Desktop\1485224470_BT_save.ico", -1, 240, 16, 41, 41)
GUICtrlSetCursor (-1, 0)
Global $Icon3 = GUICtrlCreateIcon("D:\Remi\Desktop\1485224524_icon-folder.ico", -1, 296, 16, 41, 41)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;Gui des paramètres

#Region ### START Koda GUI section ### Form=D:\Remi\Desktop\Form2.kxf
Global $GUI_param = GUICreate("Paramètres", 300, 587, 195, 124)
GUISetBkColor(0xD7E4F2)
Global $B_param1 = GUICtrlCreateButton("Mémo 1", 16, 56, 81, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, 0x99B4D1)
GUICtrlSetCursor (-1, 0)
Global $B_param2 = GUICtrlCreateButton("Mémo 2", 16, 96, 81, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, 0x99B4D1)
GUICtrlSetCursor (-1, 0)
Global $B_param3 = GUICtrlCreateButton("Mémo 3", 16, 136, 81, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, 0x99B4D1)
GUICtrlSetCursor (-1, 0)
Global $B_param4 = GUICtrlCreateButton("Mémo 4", 16, 176, 81, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, 0x99B4D1)
GUICtrlSetCursor (-1, 0)
Global $B_param5 = GUICtrlCreateButton("Mémo 5", 16, 216, 81, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, 0x99B4D1)
GUICtrlSetCursor (-1, 0)
Global $B_param6 = GUICtrlCreateButton("Mémo 6", 16, 256, 81, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, 0x99B4D1)
GUICtrlSetCursor (-1, 0)
Global $Txt_param1 = GUICtrlCreateLabel("NumPad1", 112, 64, 66, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
Global $Txt_param2 = GUICtrlCreateLabel("NumPad2", 112, 104, 66, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
Global $Txt_param3 = GUICtrlCreateLabel("NumPad3", 112, 144, 66, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
Global $Txt_param4 = GUICtrlCreateLabel("NumPad4", 112, 184, 66, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
Global $Txt_param5 = GUICtrlCreateLabel("NumPad5", 112, 224, 66, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
Global $Txt_param6 = GUICtrlCreateLabel("NumPad6", 112, 264, 66, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
Global $B_param_bck = GUICtrlCreateButton("Retour", 8, 536, 97, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, 0x3399FF)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg

Case $GUI_EVENT_CLOSE
	Exit

Case $Button1
	$edition1 = InputBox("Memo", "Quelle information ?")
	GUICtrlSetData($Label1, $edition1)

Case $Button2
	$edition2 = InputBox("Memo", "Quelle information ?")
	GUICtrlSetData($Label2, $edition2)

Case $Button3
	$edition3 = InputBox("Memo", "Quelle information ?")
	GUICtrlSetData($Label3, $edition3)

Case $Button4
	$edition4 = InputBox("Memo", "Quelle information ?")
	GUICtrlSetData($Label4, $edition4)

Case $Button5
	$edition5 = InputBox("Memo", "Quelle information ?")
	GUICtrlSetData($Label5, $edition5)

Case $Button6
	$edition6 = InputBox("Memo", "Quelle information ?")
	GUICtrlSetData($Label6, $edition6)

Case $Icon1
	MsgBox(64,"En cours","Les paramètres sont encore en travaux (pour pouvoir personnaliser les raccourcis)" & @CRLF & "En attendant, voila la liste :" & @CRLF & "[Numpad de 1 à 6]  Copie dans le presse-papiers le mémo correspondant." & @CRLF & "[Numpad 7]  Réduit le logiciel en icone caché" & @CRLF & "[Numpad 8]  Ouvre le logiciel s'il est caché")
	;GUISetState(@SW_HIDE, $G_principale)
	;GUISetState(@SW_SHOW, $GUI_param)

Case $B_param_bck
	GUISetState(@SW_HIDE, $GUI_param)
	GUISetState(@SW_SHOW, $G_principale)

Case $Icon2
	 $sFileSelectFolder =  FileSaveDialog("Sauver cette configuration", @TempDir, "Ini files (*.ini)", $FD_PATHMUSTEXIST, "config")
	 $sFileSelectFolder &= ".ini"
	 IniWrite($sFileSelectFolder, "General", "Memo1", $edition1)
	 IniWrite($sFileSelectFolder, "General", "Memo2", $edition2)
	 IniWrite($sFileSelectFolder, "General", "Memo3", $edition3)
	 IniWrite($sFileSelectFolder, "General", "Memo4", $edition4)
	 IniWrite($sFileSelectFolder, "General", "Memo5", $edition5)
	 IniWrite($sFileSelectFolder, "General", "Memo6", $edition6)

Case $Icon3
	 $sOpenFolder = FileOpenDialog("Ouvrir une configuration", @TempDir & "\", "Ini file (*.ini)", $FD_FILEMUSTEXIST + $FD_MULTISELECT)
	 $edition1 = IniRead($sOpenFolder, "General", "Memo1", "Default Value")
	 GUICtrlSetData($Label1, $edition1)
	 $edition2 = IniRead($sOpenFolder, "General", "Memo2", "Default Value")
	 GUICtrlSetData($Label2, $edition2)
	 $edition3 = IniRead($sOpenFolder, "General", "Memo3", "Default Value")
	 GUICtrlSetData($Label3, $edition3)
	 $edition4 = IniRead($sOpenFolder, "General", "Memo4", "Default Value")
	 GUICtrlSetData($Label4, $edition4)
	 $edition5 = IniRead($sOpenFolder, "General", "Memo5", "Default Value")
	 GUICtrlSetData($Label5, $edition5)
	 $edition6 = IniRead($sOpenFolder, "General", "Memo6", "Default Value")
	 GUICtrlSetData($Label6, $edition6)


 EndSwitch

  If _IsPressed("61", $hDLL) Then
	 ClipPut($edition1)
	 _GUICtrlStatusBar_SetText ($StatusBar1, $edition1, 0)
	EndIf

If _IsPressed("62", $hDLL) Then
	 ClipPut($edition2)
	 _GUICtrlStatusBar_SetText ($StatusBar1, $edition2, 0)
 EndIf

If _IsPressed("63", $hDLL) Then
	 ClipPut($edition3)
	 _GUICtrlStatusBar_SetText ($StatusBar1, $edition3, 0)
 EndIf

 If _IsPressed("64", $hDLL) Then
	 ClipPut($edition4)
	 _GUICtrlStatusBar_SetText ($StatusBar1, $edition4, 0)
 EndIf

 If _IsPressed("65", $hDLL) Then
	 ClipPut($edition5)
	 _GUICtrlStatusBar_SetText ($StatusBar1, $edition5, 0)
 EndIf

 If _IsPressed("66", $hDLL) Then
	 ClipPut($edition6)
	 _GUICtrlStatusBar_SetText ($StatusBar1, $edition6, 0)
 EndIf

 If _IsPressed("67", $hDLL) Then
	 GUISetState(@SW_HIDE, $GUI_param)
	 GUISetState(@SW_HIDE, $G_principale)
	 Minimise()
 EndIf

 If _IsPressed("68", $hDLL) Then
	 GUISetState(@SW_SHOW, $G_principale)
	 GUISetState(@SW_HIDE, $GUI_param)
 EndIf

WEnd

; Fonction minimisée

Func Minimise()
    While 1
        Switch TrayGetMsg()

            Case $iDisplay
                 GUISetState(@SW_SHOW, $G_principale)
				 GUISetState(@SW_HIDE, $GUI_param)
				 ExitLoop

            Case $idExit ; Ferme
		EndSwitch

    WEnd
EndFunc