// déclaration variables
var css_filename:string;
title,img_filename,idname,LevelTitle,Balise:string;
Bitmap:TBitmap;
i:integer;
begin
// toutes nos images remplaçants du texte seront placées dans la même feuille css
css_filename := 'img-title.css';
img_filename := GetParam('img','');
if img_filename<>'' then
begin
// on utilise la technique LIR qu'en HTML (HTMLHELP) autrement on utilise une image classique
if Condition('_HTML_') then
begin
// vous devez utiliser des identifiants unique pour chacun de vos titres
idname := GetParam('idname','');
// si pas d'idname alors
// on va calculer un identifiant unique basé sur le nom de l'image
if idname='' then
begin
i := pos('.',img_filename);
if i>0 then idname := copy(img_filename,1,i-1) else idname := img_filename;
idname := 'lir-'+idname;
end;

// maintenant écrire le code help&web
Title := GetParam('Title','');
LevelTitle := GetParam('LevelTitle','4');
if LevelTitle='none' then Balise := 'span' else Balise := 'h'+LevelTitle;
write('<<WEB(<')>>+Balise+<<FNT(STRING.-,-,-,-:' id="')>>+idname+<<FNT(STRING.-,-,-,-:'" title="')>>+Title+<<FNT(STRING.-,-,-,-:'">)>>'+title+ '<<WEB(</')>>+Balise+<<FNT(STRING.-,-,-,-:'>)>>');

// on va maintenant créer notre feuille de style
if pos('#',idname)<>1 then idname := '#'+idname;
// il nous faut obtenir la taille de notre image
Bitmap := TBitmap.create;
Bitmap.LoadFromFile(img_filename);
// ne pas oublier de déclarer l'image à help&web
// en effet elle ne va pas apparaitre dans le code mais juste dans la css
AddBitmapFile(img_filename);

SetCSS(css_filename,idname,'padding',intToStr(bitmap.height)+ 'px 0 0 0');
SetCSS(css_filename,idname,'width',intToStr(bitmap.width)+'px');
SetCSS(css_filename,idname,'background-image','url('+img_filename+')');
SetCSS(css_filename,idname,'background-repeat','no-repeat');
SetCSS(css_filename,idname,'overflow','hidden');

SetCSS(css_filename,idname,'height','0px;height /**/:'+intToStr(bitmap.height)+'px');
Bitmap.free;// on libère l'image

// insérer lien vers css externe qu'une fois par page
if GetVarInt(css_filename+GetTitre,0)=0 then
begin
SetVarInt(css_filename+GetTitre,1);
writeln('<<WEB(head:<link media="screen" rel="stylesheet" type="text/css" href="')>>+css_filename+<<FNT(STRING.-,-,-,-:'" />)>>');
end;

end else write('<<BMP(C,')>>+img_filename+<<FNT(STRING.-,-,-,-:',,,,1,1)>>');
end;
end;
end.

Sommaire