Code : Tout sélectionner
;===Includes===
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;===Déclaration des Variables===
Global $IntituleMemo = "Mémo Actif"
Dim $IniFile = @scriptDir & "\Memo\Memo.ini"
_VerifFileExist($IniFile)
;===GUI===
#Region ### START Koda GUI section ### Form=C:\Users\Kagami\Desktop\Olympe Mémo.kxf
;=GUI=
$GUI = GUICreate("Olympe Mémo", 362, 288, 483, 246)
;==Groupe Liste==
$GroupListMemo = GUICtrlCreateGroup("Olympe Mémo", 8, 0, 170, 281)
;=Liste=
$ListM = GUICtrlCreateList("", 16, 16, 154, 254)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;==Groupe Info Mémo actif==
$GroupMemoActif = GUICtrlCreateGroup($IntituleMemo, 184, 0, 170, 281)
;=Titre=
$LabelTitre = GUICtrlCreateLabel("Titre", 192, 16, 25, 17)
$InputTitre = GUICtrlCreateInput("", 192, 32, 153, 21)
;=Detail=
$LabelDetail = GUICtrlCreateLabel("Détail Mémo", 192, 56, 63, 17)
$EditMemo = GUICtrlCreateEdit("", 192, 72, 153, 105, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN))
;=Heures=
$LabelHeure = GUICtrlCreateLabel("Heure", 192, 184, 33, 17)
$InputHeure = GUICtrlCreateInput("", 192, 200, 41, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER,$SS_CENTER))
GUICtrlSetLimit(-1, 2)
$LabelH = GUICtrlCreateLabel("H", 240, 200, 18, 21, BitOR($SS_CENTER,$SS_NOPREFIX,$SS_CENTERIMAGE,$SS_SUNKEN))
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
;=Minutes=
$InputMin = GUICtrlCreateInput("", 264, 200, 41, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER,$SS_CENTER))
GUICtrlSetLimit(-1, 2)
$LabelMin = GUICtrlCreateLabel("Min", 312, 200, 34, 21, BitOR($SS_CENTER,$SS_NOPREFIX,$SS_CENTERIMAGE,$SS_SUNKEN))
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
;=Boutons=
$ButtonNouveau = GUICtrlCreateButton("Nouveau", 200, 232, 67, 38, $WS_GROUP)
$ButtonSupprimer = GUICtrlCreateButton("Supprimer", 272, 232, 67, 38, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;=Affichage=
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;===2nd Déclaration des Variables===
Global $ReadTitre = GUICtrlRead($InputTitre)
Global $ReadDetail = GUICtrlRead($EditMemo)
;===Création du ini & Recherche des contacts===
;_VerifFileExist($IniFile)
;=Remplissage de la liste=
$ReadIniTitre = IniReadSectionNames($IniFile)
For $i = 1 To $ReadIniTitre[0]
GuiCtrlSetData($ListM, $ReadIniTitre[$i] & "|")
;_GuiCtrlListBox_AddString($ListM, $ReadIniTitre[$i])
Next
;===Boucle Principale===
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
;_VerifFileExist($IniFile)
Exit
Case $ListM
$txt = ControlCommand ($GUI, "", $ListM, "GetCurrentSelection", "")
If $txt<>"" Then
MsgBox(0, "", $txt)
GUICTrlSetData($GroupMemoActif, $IntituleMemo & ">" & $txt)
If $txt = "Credits" Then
GUICtrlSetData($InputTitre, "Crédits")
GUICtrlSetData($EditMemo, IniRead($IniFile, $txt, "Auteur", ""))
EndIf
EndIf
#cs
$SelItems = _GUICtrlListBox_GetSelItemsText(GuiCtrlGetHandle($ListM))
MsgBox(0, "", "Vous avez selectionné" & $SelItems[1])
If $SelItems[0] <> 0 Then
GUICTrlSetData($GroupMemoActif, $IntituleMemo & ">" & $SelItems[1])
If $SelItems[1] = "Credits" Then
GUICtrlSetData($InputTitre, "Crédits")
GUICtrlSetData($EditMemo, IniRead($IniFile, $SelItems[1], "Auteur", ""))
EndIf
EndIf
#ce
Case $InputHeure
$ReadHeure = GUICtrlRead($InputHeure)
If $ReadHeure > 23 Then
MsgBox(0, "Erreur", $ReadHeure & " n'est pas une heure de la journée!" & @LF & "Les heures vont de 0 à 23!")
GUICtrlSetData($InputHeure, 0 & 0)
EndIf
_CorrectionHeures($InputHeure, $ReadHeure)
Case $InputMin
$ReadMin = GUICtrlRead($InputMin)
If $ReadMin > 59 Then
MsgBox(0, "Erreur", $ReadMin & " n'est pas une minute de la journée!" & @LF & "Les minutes vont de 0 à 59!")
GUICtrlSetData($InputMin, 0 & 0)
EndIf
_CorrectionMinutes($InputMin, $ReadMin)
EndSwitch
WEnd
;===Fonctions===
;===Func _CorrectionMinutes & _CorrectionHeures===
Func _CorrectionMinutes($InputMin, $ReadMin)
$StrgSizeMin = StringLen($ReadMin)
If $StrgSizeMin = 1 Then
GUICtrlSetData($InputMin, 0 & $ReadMin)
EndIf
EndFunc
Func _CorrectionHeures($InputHeure, $ReadHeure)
$StrgSizeHeure = StringLen($ReadHeure)
If $StrgSizeHeure = 1 Then
GUICtrlSetData($InputHeure, 0 & $ReadHeure)
EndIf
EndFunc
;===Func _VerifFileExist===
Func _VerifFileExist($IniFile)
;=Création du dossier du .ini=
If Not FileExists(@scriptDir & "\Memo") Then
DirCreate(@scriptDir & "\Memo")
EndIf
;=Création du .ini=
If Not FileExists($IniFile) Then
; _FileCreate($IniFile) ; pas besoin : If file does not exist, it is created (l'aide ! )
IniWriteSection($IniFile, "Credits", "Auteur=Kagami Tsuki" & @LF & "Version=011.12" & @LF & "Update=21 Décembre 2011" & @LF & @LF)
MsgBox(4096, "", "Création du fichier paramètre effectuée avec succès")
EndIf
EndFunc
