var HistoryLine,Parent,Link,Item,Separation:string;
Window,TopImage,BottomImage,TopTitle,BottomTitle,Css,Position: string;
ParentNum:integer;
begin
Window := GetParam('Window','');
if (Window='')or(Window=GetWinOf(GetNum)) then
begin
if GetParam('ThisTopic','False') then
historyline:=GetTitre else
HistoryLine := '';
Separation := GetParam('Separation','>');
Parent := GetTitre;
// préparation des images vers le haut et vers le bas
TopImage := GetParam('TopImage','');
TopTitle := GetParam('TopTitle','Haut de page');
BottomImage := GetParam('BottomImage','');
BottomTitle := GetParam('BottomTitle','Bas de page');
// masque pour poser un lien
Link := '<<MCR(JI(qchPath,`%s')>>+<<FNT(NUMBER.-,-,-,-:#39)>>+<<FNT(STRING.-,-,-,-:'):%s)>>';
Parent := GetParentOf(GetNumOf(Parent));
// remonter depuis la rubrique actuelle jusqu'a la racine de l'arborescence
while GetNumOf(Parent)>-1 do
begin
ParentNum := GetNumOf(Parent);
Item := Format(Link,[GetNomOf(ParentNum),GetTitreOf(ParentNum)]);
if HistoryLine<>'' then HistoryLine := Item +' '+Separation+' '+HistoryLine else HistoryLine :=Item;
Parent := GetParentOf(ParentNum);
end;

Css := GetParam('css','');
if css<>'' then write('<<BKG(')>>+css+<<FNT(STRING.-,-,-,-:'|500,100,255,,0,255,0)>>');
Position := GetParam('Position','Top');
// si l'historique est en bas de page alors placer l'ancre basse
if Position='Bottom' then write('<<ICB(')>>+GetTitre+<<FNT(STRING.-,-,-,-:'_bas)>>');
if TopImage <>'' then write(Format(Link,[GetNom,'<<BMP(C,')>>+TopImage+<<FNT(STRING.-,-,-,-:',,')>>+TopTitle+<<FNT(STRING.-,-,-,-:',,1,1)>>']));
if BottomImage<>'' then write('<<JMP(<<BMP(C,')>>+BottomImage+<<FNT(STRING.-,-,-,-:',,')>>+BottomTitle+<<FNT(STRING.-,-,-,-:',,1,1)>>,:')>>+GetNom+<<FNT(STRING.-,-,-,-:'_bas)>>');
write(HistoryLine+' ');
if css<>'' then write('<<BKG(END)>> ');
end else write(' ');
end;
end.

Sommaire