// AutoTitre.spr - v 1.0 © 1999 Escot-Sep christophe

// Fixer le titre et la fonte par défaut de la rubrique

// On utilise les éléments indiqués dans le dialogue "Options|projet"
// Toute modification dans le dialogue est répercutée par le script


var Fonte,FonteDef,masque:string;
begin
// récupérer les fontes du titre et par défaut
// réagir différement si la rubrique est un chapitre ou non
if Condition('_ISRUB_CHAPITRE_') then

begin
Fonte := GetElement(eFntChapter);
FonteDef := GetElement(eFntDefaultChapter);
end else begin
Fonte := GetElement(eFntTopic);
FonteDef := GetElement(eFntDefaultTopic);
end;
// création du masque, [ #12] est un champ calculé qui fournit le titre
Masque := '<<FNT(%s:[ #12])>><<FNT(%s:)>>';
// écrire le code
Write(Format(Masque,[Fonte,FonteDef]));

end;
end.

Sommaire