[Lazarus] Fpsreadsheet bug?

[Malcolm Buckingham]

Thanks for the very quick response. I've patched my copy of the file and
everything now works. I think I'll stick with this patched version until the
next release.

Malcolm 

> -----Original Message-----
> From: Lazarus [mailto:lazarus-bounces at lists.lazarus-ide.org] 
> On Behalf Of Werner Pamler via Lazarus
> Sent: 30 October 2017 13:18
> To: lazarus at lists.lazarus-ide.org
> Cc: Werner Pamler
> Subject: Re: [Lazarus] Fpsreadsheet bug?
> 
> Thanks for sharing the file and for your pre-analysis which 
> helped me to find the bug quickly. It is fixed in 
> fpspreadsheet r6047. If you want to stick to your currently 
> installed version 1.8.4 you must patch the function 
> TsSpreadBiffReader.Fixfont in unit xlscommon by adding these 
> lines immediately after the "begin":
> 
> function TsSpreadBIFFReader.FixFontIndex(AFontIndex: 
> Integer): Integer; var
>    fnt: TsFont;
> begin
>    // --- begin insert ---
>    if FFontList.Count = 0 then
>    begin
>      Result := 0;
>      exit;
>    end;
>    // --- end insert ---
> 
>    fnt := TsFont(FFontList[AFontIndex]);
>    [...]
> 
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus-ide.org
> https://lists.lazarus-ide.org/listinfo/lazarus
>