// Table_fig.sp - v1.1 © 2002 Escot-Sep Christophe

// Affiche la liste des légendes définies à l'aide du script fig
// Chaque légende est un lien vers l'image associée

// pour afficher dans une fenetre secondaire, utiliser le paramètre win *

// déclaration variables
var i,max_fig:integer;
debut,fig,win:string;
begin

// les données ne sont disponiblent que lors de la compilation
// c'est le script fig qui les crées

if isCompilation then
begin
// traiter l'éventuel paramètre win qui contient le nom d'un fenêtre secondaire
win := GetParam('win','');
if win='' then // affichage dans la fenêtre par défaut si pas de win

debut := '<' + '<MCR(JI(qchPath,"'
else debut := '<' + '<MCR(JI(`'+GetProjet+'.hlp>' + win + #39 + ',"';


// obtenir le nombre total d'images légendées
max_fig := getVarInt('idxFig',0);

// pour chaque image
for i:=1 to max_fig do
begin
// afficher la légende en forme de lien vers l'image associée

fig := 'FIG_'+intTostr(i);
writeln(debut+GetVarString(fig+'_Link','')+'>'+fig+#39+'):Fig. '+inttostr(i)+' '+getVarString(fig+'_Texte','')+''))>>;
end;
end else writeln('La table des illustrations n'+#39+'est disponible que dans un format compilé hlp, html, htmlhelp, pdf ou rtf');

end;
end.

Sommaire