L'adaptation de la mécanique de gestion des alarmes de XT3 comprend les chantiers suivants :
- Passage en objet.
- Gestion de plusieurs alarmes en attente.
- Compte à rebours pour les alarmes sans message.
La gestion des multiples alarmes en attente sera assurée par l'utilisation d'une liste de ces alarmes et d'une liste de leurs libellés (c'est cette dernière qui sera affichée dans le menu de l'icône clignotante).
Il a été envisagé de transformer ce Record en objet, mais comme il est unique, cela rajouterait juste du code pour rien. Et puis il ne sert en fait qu'a regrouper plusieurs variables :
Code : Tout sélectionner
// XR_Alarm
XR_Alarm = Record
Ready: Boolean; // Flag "Prochaine alarme prête"
Next: TData; // Pointeur vers la prochaine alarme
DateTime: TDateTime; // Date et heure de la prochaine alarme
WaitCaptions: TStringList; // Libellés des alarmes en attente
WaitAlarms: TList; // Liste des alarmes en attentes
Active: TData; // Pointeur vers l'alarme déclenchée
Exit: String; // Résultats de la fenêtre d'alarme
end;
Ensuite il sera temps de s'attaquer à la fenêtre de message :
- Modifications mineures sur les messages : récupération des données via le pointeur XR_Alarm.Active.
- Ajout d'un compte à rebours pour les alarmes sans message.