UpsSys.IFluxFormate.ContenuEnteteDeCorps

Rappel ContenuEnteteDeCorps(F : IFluxFormate);

Description

La méthode de rappel ContenuEnteteDeCorps permet de désigner une ou plusieurs procédures qui vont écrire le contenu de l'en-tête du corps de la page.

Si hauteur de l'en-tête de page vaut zéro, alors il n'y a pas d'en-tête de page. De plus, les lignes excédant cette hauteur sont ignorées.

Exemple

/****************************************************************/
Rappel FluxFormateSysteme.ContenuEnteteDePage(F : IFluxFormate)
/* Objet : Ecrit le contenu de l'en-tete de page. */
/****************************************************************/
Debut
F.Ecrire("Mon en-tête de page - "+Caractere(DateSysteme()));
F.Ecrire(".AjouterDroite(F.LargeurCorps, "-");
Retourner RappelSucces;
Fin Rappel

/****************************************************************/
Rappel FluxFormateSysteme.ContenuPiedDePage(F : IFluxFormate)
/* Objet : Ecrit le contenu du pied de page. */
/****************************************************************/
Debut
F.Ecrire(".AjouterDroite(F.LargeurCorps, "-");
F.Ecrire("Mon pied de page - "+Caractere(F.NumeroPage));
Retourner RappelSucces;
Fin Rappel

/****************************************************************/
Rappel FluxFormateSysteme.ContenuEnteteDeCorps(F : IFluxFormate)
/* Objet : Ecrit le contenu de l'en-tete de corps. */
/****************************************************************/
Debut
F.Ecrire("+---------------------+-----------------------+");
F.Ecrire("+ Nom employé. + Salaire. +");
F.Ecrire("+---------------------+-----------------------+");
Retourner RappelSucces;
Fin Rappel

/****************************************************************/
Rappel FluxFormateSysteme.ContenuPiedDePage(F : IFluxFormate)
/* Objet : Ecrit le contenu du pied de corps. */
/****************************************************************/
Debut
F.Ecrire("+---------------------+-----------------------+");
Retourner RappelSucces;
Fin Rappel

Principal
/*******/
Debut
...
/* Fixe les metriques de la pagination. */
Imprimante.HauteurEnteteDePage=2;
Imprimante.HauteurEspaceEntete=1;
Imprimante.HauteurEnteteDeCorps=3;
Imprimante.HauteurPiedDeCorps=1;
Imprimante.HauteurEspaceEntete=1;
Imprimante.HauteurPiedDePage=2;
/* Generation du tableau. */
F.Ecrire("+---------------------+-----------------------+");
F.Ecrire("+ Nom employé. + Salaire. +");
F.Ecrire("+---------------------+-----------------------+");
...
F.Ecrire("+---------------------+-----------------------+");
F.Ecrire("+ Nombre d'employés : "+Caractere(NbEmployés, "&&&&#"")+" +");
F.Ecrire("+---------------------+-----------------------+");
...
Fin Principal

Voir aussi

ContenuEnteteDePage pour écrire le contenu de l'en-tête de la page. ContenuPiedDePage pour écrire le contenu du pied de la page. ContenuPiedDeCorps pour écrire le contenu du pied du corps de la page.

Traduction

---------