[Lazarus] Fpsreadsheet bug?

Werner Pamler werner.pamler at freenet.de
Mon Oct 30 14:18:18 CET 2017


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]);
   [...]



More information about the Lazarus mailing list