var Fonte,FonteDef,Bmp,Titre:string;
Bitmap:boolean;
begin
Titre := GetTitre;
Bitmap:= GetParam('Bitmap','true')='true';
if Condition('_ISRUB_CHAPITRE_') then
begin
Fonte := GetElement(eFntChapter);
FonteDef := GetElement(eFntDefaultChapter);
end else begin
Fonte := GetElement(eFntTopic);
FonteDef := GetElement(eFntDefaultTopic);
end;
// si on autorise une image
if Bitmap then
begin
Bmp := GetParam('Glyph','');
if bmp='' then // regardeer si un bmp existe au nom de la rubrique
if fileexists(PathImages+Titre+'.bmp') then bmp := Titre+'.bmp';
if bmp<>'' then bmp := '<<BMP(C,')>>+bmp+<<FNT(STRING.-,-,-,-:',,,,1,1)>> ';
end else bmp := '';
// écrire le Titre
Write(bmp+Format('<<FNT(%s:Titre)>>',[Fonte]));
// fixer la fonte par défaut si nécessaire
if GetParam('FontDef','false')='true' then write('<<FNT(')>>+FonteDef+<<FNT(STRING.-,-,-,-:':)>>');
end;
end.

Sommaire