WDForge.org - Forums

Re: Afficher la date sur ttes les fiches

Sujet: Re: Afficher la date sur ttes les fiches
par R&B sur 27/6/2005 12:57:57

Bonjour,
En complément il y a aussi la propriété ..Titre qu'il est mossible de manipuler par programmation selon un un évènement d'ouverture de fenêtre :

//Déclaration de l'évenement
EXTERN "WINCONST.WL"
//Evenement(<Procédure>,<Fenêtre>,<Numero de message>)
Evénement("Ouverture", "*.*", WM_OPEN)

PROCEDURE Ouverture()
stitre est une chaîne
// version 'light' : complète juste le titre avec la date
{FenEnExécution(),IndFenêtre}..Titre+=" - "+DateVersChaîne(DateSys())

// version détaillée : nom exe + version + mise à droite
stitre=gCadrage("D",fExtraitChemin(ExeInfo(exeNom),fFichier)+" "+" ("+ExeInfo(exeVersion)+") "+DateVersChaine(DateDuJour())+TAB)
// Astuce pour éviter la sur-écriture des titres des fenêtres.
SI FenIntLarg(FenEnExécution()) > 600 ALORS {FenEnExécution(),indFenetre}..Titre=stitre
FIN