var bmp,titre,s,BmpPos,texte,puce,Macro,css:string;
i:integer;
begin

puce := GetParam('puce','');
if puce<>'' then puce := puce+' ';

bmp := GetParam('bmp','');
BmpPos := GetParam('BmpPos','Left');

if (bmp<>'') and (pos('.',bmp)=0) then bmp:=bmp+'.bmp';
if bmp<>'' then bmp := '<<BMP(C,')>>+bmp+<<FNT(STRING.-,-,-,-:',,,,1,1)>>';

titre := GetParam('titre','');
css := GetParam('css','');
if css<>'' then texte:='<<FNT(')>>+css+<<FNT(STRING.-,-,-,-:'.-,-,-,-:')>>+titre+<<FNT(STRING.-,-,-,-:')>>' else texte := '<<FNT(-,-,-,G:')>>+titre+<<FNT(STRING.-,-,-,-:')>>';


Macro := GetParam('Macro','');

i := 2;
s := GetParam('bmp'+inttostr(i),'');
while s<>'' do
begin
if pos('.',s)=0 then s:=s+'.bmp';
bmp := bmp+' '+format('<<BMP(C,%s,,,,1,1)>>',[s]);
i := i + 1;
s := GetParam('bmp'+inttostr(i),'');
end;

write(puce);
if GetParam('link','')='true' then
begin
if Macro='' then // pas de macro alors lien direct vers rubrique de meme titre
Texte := '<<JMP(')>>+texte+<<FNT(STRING.-,-,-,-:',')>>+GetNomOf(GetNumOf(titre))+<<FNT(STRING.-,-,-,-:')>>' else
Texte := '<<MCR(')>>+Macro+<<FNT(STRING.-,-,-,-:':')>>+Texte+<<FNT(STRING.-,-,-,-:')>>';
end;// else Texte := Titre;

// positionner l'éventuel bitmap à droite ou à gauche
if BmpPos='Left' then Texte := Bmp+' '+Texte else Texte:=Texte+' '+Bmp;

if GetParam('Signet','true')='true' then write('<<ICB(')>>+Titre+<<FNT(STRING.-,-,-,-:')>>');
write(Texte);

end;
end.

Sommaire