Rappel ContenuEnteteDePage(F : IFluxFormate);
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.
/****************************************************************/
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
| - | - | - | - | - | - | - | - | - |