[UDF] Calendar + Date

[TommyDDR]

Bonjour à tous, après avoir codé toute la journée d'hier ainsi que ce matin (Oui, oui je suis sencé avoir un travail ^^') et pour faire honneur à ce nouveau grade, je vous propose aujourd'hui un (deux) UDF(s) qui en ravira plus d'un (si vous trouvez que GuiCtrlCreateDate() n'est pas convenable graphiquement)

Utilisation :
- Clic sur un jour pour changer celui-ci
- Clic sur une flèche pour changer de mois
- Clic sur le nom du mois (rester cliqué) puis bouger la souris jusqu'au mois voulu et relacher la souris pour selectionner celui-ci

Une petite impression écran :


Puis, un simple code pour tester le calendar :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include "UDF_Calendar.au3"

HotKeySet("é", "changecolor")
Opt("MustDeclareVars", 1)
Opt("GUIOnEventMode", 1)

Dim $Gui
Dim $Calendar
Dim $Date = $UDF_Today
$Date[0] = 27

Dim $Col[9]

$Gui = GUICreate("test", 170, 150, -1, -1, $WS_POPUPWINDOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
$Calendar = _GUICtrlCalendar_Create($Gui, 10, 10, "")
_GUICtrlCalendar_SetOnEvent($Calendar, "DateChange")
_GUICtrlCalendar_SetDate($Calendar, AddJour($Date, -5))
WinSetTrans($Calendar, "", 100)
GUISetState(@SW_SHOW, $Gui)

While(True)
    Sleep(10)
WEnd

Func changecolor()
    For $i = 0 To 8
        $Col[$i] = Random(0x000000, 0xFFFFFF, 1)
    Next
    _GUICtrlCalendar_SetColor($Calendar, $Col[0], $Col[1], $Col[2], $Col[3], $Col[4], $Col[5], $Col[6], $Col[7], $Col[8])
EndFunc

Func DateChange($IdCalendar, $Date)
    _GUICtrlCalendar_AddMark($IdCalendar, $Date)
    If(@error) Then
        _GUICtrlCalendar_DelMark($IdCalendar, $Date)
    EndIf
EndFunc

Func quit()
    Exit
EndFunc

Et les fameux UDF :

[scorp84]

Wahouuuuuuuu ! Magnifique.

Merci pour ce partage.

Amicalement.

BM

[TommyDDR]

De rien !!

C'est ce genre de réponse qui font tout le plaisir du partage

[zeshrek]

heuuuuu.... c'est quoi la différence profonde avec GUICtrlCreateDate() ?

(désolé, de casser l'ambiance, mais....)

[TommyDDR]

L'apparence

Voici le GUICtrlCreateDate() de Windows XP (ne me dites pas que vous ne voyez pas de différences...) :

DateXP.PNG (4.36 Kio) Vu 14007 fois

[zeshrek]

Non mais il est bien ton udf, je voulais pas dénigrer.
Juste que même si l'apparence c'est important (sinon on se ferait pas suer sur les GUI), je me demandais si sur un plan purement fonctionnel il apportait quelquechose.
Tiens bin justement a ce sujet, est ce que tu crois que ca serait possible de lui faire renvoyer aussi l'écart entre le jour sélectionné et la date du jour ? Ou de lui faire afficher non pas par mois mais par N° de semaine (pratique au boulot ou on dit plus facilement "le lundi de la semaine 12" plutot que le 28 mars) ?

[TommyDDR]

Petite mise à jour

_GetEcartJoursFromToday($NumeroCalendar)
nous donne le nombre de jours entre la date actuelle et la date sélectionnée

@zeshrek : Je me penche sur l'affichage par semaines

Vous remarquerez mon amour envers la fusion des deux langues que sont l'anglais et le français ^^

[zeshrek]

_GetEcartJoursFromToday($NumeroCalendar)
(...)
Vous remarquerez mon amour envers la fusion des deux langues que sont l'anglais et le français ^^

Tu aurais pu faire mieux et inclure du grec en plus en l'appelant
_GetDeltaJoursFromToday($NumeroCalendar)
Là, c'était carrément la classe internationale !

[TommyDDR]

Et voila, nouvelle mise à jour spéciale zeshrek

- Possibilité de changer le mode d'affichage :
à l'ilitialisation _GUICtrlCalendar_Create($Gui, 10, 10, "", 1)
après l'initialisation _GuiCtrlCalendar_SetAffichage($Calendar, 1)

Edit : au passage, j'ai renomé mes fonction comme pour un vrai UDF
_GUICtrlCalendar_xxxxx()

[TommyDDR]

Vous l'attendiez, une nouvelle mise à jour est disponible !

- Possibilité d'ajouter / supprimer des marques sur le calendrier

Code : Tout sélectionner

_GUICtrlCalendar_AddMark($NumeroCalendar, $Date)
_GUICtrlCalendar_DelMark($NumeroCalendar, $Date)
 

- Possibilité de bouger le calendrier

Code : Tout sélectionner

_GUICtrlCalendar_SetPos($NumeroCalendar, $x, $y)

- Possibilité d'associer une fonction à chaque changement de date

Code : Tout sélectionner

_GUICtrlCalendar_SetOnEvent($NumeroCalendar, $Fonction)

[zeshrek]

Bravo, ca commence a avoir de la gueule ! Et du coup je me pose plus trop la question de savoir ce qu'il fait de mieux que le calendrier intégré

Hmmm et si tu faisait une petite fonction toute bête... ou pas :
_GUICtrlCalendar_SetColor($NumeroCalendar, $CouleurFond, $CouleurBordure, $CouleurJoursDuMoisEnCours, $CouleurJoursGrisés, $CouleurDateDuJour...etc)

Avec bien sur la possibilité de mettre la couleur de chaque élément.
ca peremttrait a ceux qui vont l'utiliser de pouvoir le parametrer a leur propre palette.


(oui je sais, je suis chi*nt )

[TommyDDR]

Et voila, sur la demande spéciale de Mr zeshrek, les couleurs sont personnalisables grâce à la fonction :

Code : Tout sélectionner

_GUICtrlCalendar_SetColor($NumeroCalendar, $CouleurFond = "", $CouleurBordure = "", $CouleurFleches = "", $CouleurJoursDuMoisEnCours = "", $CouleurJours = "", $CouleurJoursGrises = "", $CouleurJoursMarques = "", $CouleurOjdui = "", $CouleurDateChoisie = "")

(Ouch, ca fait mal ^^')

UP du 1er post.

[zeshrek]

Alors là je ne vois pas grand chose a demander de plus, et il ne me reste plus qu'a te féliciter pour ton UDF.
Il ne te reste plus qu'a faire un peu de lobying aupres de Tlem pour qu'il soit mis par défaut dans les incudes qu'il fournit en standard avec la distrib francaise

[TommyDDR]

un UDF à moi, dans le pack Fr ?
Cela serait un honneur

[zeshrek]

Pour augmenter tes chances fais une doc sur le modèle de ce qui s'affiche quand tu appuie sur F1 (syntaxe, explications, exemple) et apres, a la grace de dieu...

[Jerome]

Coucou,


Trés sympa cet UDF, j'adore.


Je verrai bien encore une petite amélioration.
Style un double clique sur un date ouvre une page de saisit de texte pour des événements que l'on peut enregistrer et qui sera garder en mémoire (gestion de fichier ini ...)



Je ne sait pas si sa rentre bien en compte dans un UDF comme celui-ci, mais c'est ma petite idée.


J'aime beaucoup en tout cas, très bon boulot




Jérôme

[zeshrek]

Hmmmm.... là je dirai plutot que ca rendre dans le cadre d'une appli faite en utilisant l'UDF.
Tiens je te propose un nom pour ca : Agenda

[TommyDDR]

Bah... "lol quoi" comme diraient les jeunes.

Je suis en train de coder une application nomé "Agenda.exe" xD

Je posterai en exemple de script une fois fini

En faite, je voulais des le début coder cette application (d'où la possibilité de marquer des dates ), mais au lieu de me lancer tête-bêche dans le code, je me suis posé et ai réfléchi à comment le faire proprement et en pouvant réutiliser des éléments et UDF_Calendar (+ UDF_Date) est (sont) né(s).

[zeshrek]

Bah... "lol quoi" comme diraient les jeunes.

Et c'est un mec de 21 balais qui dit ca !
Mouahhhhhhhhhh !!!

[TommyDDR]

c'est que je ne me fais plus tout jeune !