var liste:TStringList;
pathProj,Pathsystem,signature,cssFilename:string;
begin
if Condition('_HTML_') then
begin
// une seule fois par compilation
signature := 'pngbehavior.htc';
if GetVarInt(signature,0)=0 then
begin
SetVarInt(SIGNATURE,1); // pour ne pas les regénèrer
liste := TStringList.create;
// on détermine les répertoires source et cible
pathSystem := Path+'system.hew\pngbehavior\';
if Condition('_HTMLHELP_') then
pathProj := PathProjet+'htmlhelp\html\' else pathProj := PathProjet+'html\';
// on copie le htc
liste.LoadFromFile(pathsystem+signature);
liste.SaveToFile(pathProj+signature);
// on déclare blank.gif à help&web car cette image est utilisée par le htc
AddBitmapFile(pathsystem+'blank.gif');
// maintenant on va modifier le fichier css pour que les images soient filtrée
liste.clear;
// récupérer la liste des fichiers css pour l'écran
GetListCssFilename(Liste,'screen');
// s'il y a des fichiers css externes utiliser le premier, sinon en déclarer un
if Liste.count>0 then cssFilename := Liste.strings[0] else cssFilename := GetProjet+'_hw.css';
// on insére la règle sur les images dans le css
SetCss(cssFilename,'img','behavior','url("pngbehavior.htc")');
// on conserve le nom du fichier css pour pouvoir le lier aux autres pages
SetVarString('PNGBEHAVIOR_CSS',cssFilename);
// on n'oublie pas de détruire notre liste
Liste.free;
end;
end;

// on récupère le fichier css pour le lier à la rubrique au cas où ce ne serait pas déjà le cas
cssFilename := GetVarString('PNGBEHAVIOR_CSS',cssFilename);
// on fait en sorte que notre css se charge
// pour cela on l'importe dans le head
// il existe 2 façons de lier une feuille de style mais en htmlhelp seule la première semble fonctionner...
if Condition('_HTMLHELP_') then
write('<<WEB(head:<link rel="stylesheet" type="text/css" href="')>>+cssFilename+<<FNT(STRING.-,-,-,-:'" />)>>')
else
write('<<WEB(head:<style type="text/css" media="screen">@import url(')>>+cssFilename+<<FNT(STRING.-,-,-,-:');</style>)>>');



end;
end.

Sommaire