pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

soready: Support Biff3 reader

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8775 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-03-26 11:37:40 +00:00
parent 7b29fa40dc
commit ebfa3083bc
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
applications/spready/smain.pas
View File

@ -8,7 +8,7 @@ uses
Classes, SysUtils, FileUtil, mrumanager, Forms, Controls, Graphics, Dialogs,
ExtCtrls, ComCtrls, ActnList, Menus, StdActns, Buttons, Grids, StdCtrls,
types, fpstypes, fpspreadsheet, fpspreadsheetctrls, fpspreadsheetgrid,
fpsActions, fpsAllFormats, fpsSYLK, xlsBIFF4, xlsxml, xlsxooxml_crypto;
fpsActions, fpsAllFormats, fpsSYLK, xlsBIFF34, xlsxml, xlsxooxml_crypto;
// NOTE:
// In order to use the decrypting xlsx reader put xlsxooxlm_cryto after
// xlsxooxml or fpsAllforamts.
@ -1295,7 +1295,7 @@ end;
procedure TMainForm.FormCreate(Sender: TObject);
var
priorityFormatsR: Array[0..9] of TsSpreadFormatID;
priorityFormatsR: Array[0..10] of TsSpreadFormatID;
priorityFormatsW: Array[0..8] of TsSpreadFormatID;
i: Integer;
begin
@ -1315,12 +1315,13 @@ begin
priorityFormatsR[1] := ord(sfExcel8);
priorityFormatsR[2] := ord(sfExcel5);
priorityFormatsR[3] := sfidExcel4;
priorityFormatsR[4] := ord(sfExcel2);
priorityFormatsR[5] := ord(sfExcelXML);
priorityFormatsR[6] := ord(sfOpenDocument);
priorityFormatsR[7] := ord(sfCSV);
priorityFormatsR[8] := sfidSYLK;
priorityFormatsR[9] := ord(sfHTML);
priorityFormatsR[4] := sfidExcel3;
priorityFormatsR[5] := ord(sfExcel2);
priorityFormatsR[6] := ord(sfExcelXML);
priorityFormatsR[7] := ord(sfOpenDocument);
priorityFormatsR[8] := ord(sfCSV);
priorityFormatsR[9] := sfidSYLK;
priorityFormatsR[10] := ord(sfHTML);
priorityFormatsW[0] := ord(sfOOXML);
priorityFormatsW[1] := ord(sfExcel8);