var BodyColor,NonScrollColor:string;
begin
//script ici
if Condition('_HTML_') then
begin
Bodycolor := GetParam('BackgroundColor','');
NonScrollColor := GetParam('NonScrollColor','');
if (BodyColor<>'')or(NonScrollColor<>'') then
begin



writeln('<<WEB(head:<style type="text/css">)>>');
if NonScrollColor<>'' then
begin
writeln('<<WEB(head:#nsr {background-color: ')>>+ColorToHtml(NonScrollColor)+<<FNT(STRING.-,-,-,-:';})>>');
writeln('<<WEB(head:#nsr2 {background-color: ')>>+ColorToHtml(NonScrollColor)+<<FNT(STRING.-,-,-,-:';})>>');
end;

if BodyColor <>'' then writeln('<<WEB(head:body {background-Color: ')>>+ColorToHtml(BodyColor)+<<FNT(STRING.-,-,-,-:';})>>');

writeln('<<WEB(head:</style>)>>');

end;
end;// else write(' ');

end;
end.

Sommaire