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