minor fix: HTML output, font size

Leander Nov 2007

Hi Julian,

discoverd the following problem with code in WPIOHTML.pas:

TWP_HTML_FONTSIZE =
    ((smin: 0; smax: 8; snumber: 1; ssize: 8),
    (smin: 9; smax: 10; snumber: 2; ssize: 10),

if (FontSize <= WPHTFONTSIZES[i].smax) and
    (FontSize > WPHTFONTSIZES[i].smin) then
begin
  fontparam := fontparam + ' size=' + IntToStr(i);
  break;
end;

Notice how a font with size 9 will never have its size stored inside the html.
Only change i needed to make here was:

if (FontSize <= WPHTFONTSIZES[i].smax) and
(FontSize >= WPHTFONTSIZES[i].smin) then

#1 ♥ 0