Re: Afficher la date sur ttes les fiches
Posté par R&B le 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 :
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
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=2441&post_id=10280