// AutoJump.spr - v 1.1 © 1999 Escot-Sep christophe

// Pour chacune des sous-rubriques de la rubrique
// affiche un bouton relié à la sous-rubrique + le lien en clair

// n' affiche que les liens vers les sous-rubriques, pas vers les sous-sous...

// Si paramètre POPUP=FALSE on ignore les liens vers des popups
// Utilise le fichier suivant3.bmp pour le bouton animé

var i,nl,ici,SousLevel:integer;

fdbt,fjmp:string;
dbt,jmp:string;
GarderLesPopups,OkLien:boolean;
begin
// nouveauté version 1.1
GarderLesPopups := GetParam('POPUP','TRUE')='TRUE';
// récupérer le nombre de sous-rubriques
nl := GetChildCount;
// ne créer des liens que s'il y en a !
if nl>0 then
begin
// obtenir le numéro de la rubrique où est joué le script
ici:= GetNum;
// obtenir le niveau des sous-rubriques à afficher

// c-a-d le niveau de la rubrique actuelle + 1
SousLevel := GetLevelOf(ici)+1;
// masque pour le bouton
fdbt :='<<DBT(suivant3.bmp^Chapitre suivant,JI(qchPath,`%s')>>+<<FNT(NUMBER.-,-,-,-:#39)>>+ <<FNT(STRING.-,-,-,-:')|4,1,0)>>';
// masque pour le code
fjmp :='<<JMP(%s,%s)>>';
// pour chaque lien à effectue
for i:=1 to nl do
begin
// en supprimant la ligne suivante vous pouvez afficher toutes les sous-sous rubriques
if GetLevelOf(ici+i)=SousLevel then
begin

if IsPopup(ici+i) then OkLien:=GarderLesPopups else OkLien:=true;
if OkLien then
begin
// on rempli les masque avec le Titre et le Nom des rubriques cibles
dbt := format(fdbt,[GetTitreOf(ici+i)]);
jmp := format(fjmp,[GetTitreOf(ici+i),GetNomOf(ici+i)]);
// On écrit le lien et on passe à la ligne
Writeln(dbt+' '+jmp);

end;
end;
end;
end;
end;
end.

Sommaire