diff --git a/components/fpspreadsheet/docs/fpspreadsheet-api.chm b/components/fpspreadsheet/docs/fpspreadsheet-api.chm index db9940550..0608eff7d 100644 Binary files a/components/fpspreadsheet/docs/fpspreadsheet-api.chm and b/components/fpspreadsheet/docs/fpspreadsheet-api.chm differ diff --git a/components/fpspreadsheet/docs/fpspreadsheet-wiki.chm b/components/fpspreadsheet/docs/fpspreadsheet-wiki.chm index 85cd6361b..92f86bb16 100644 Binary files a/components/fpspreadsheet/docs/fpspreadsheet-wiki.chm and b/components/fpspreadsheet/docs/fpspreadsheet-wiki.chm differ diff --git a/components/fpspreadsheet/examples/fpsspeedtest/mainform.lfm b/components/fpspreadsheet/examples/fpsspeedtest/mainform.lfm index 5e5d215ac..be45270cd 100644 --- a/components/fpspreadsheet/examples/fpsspeedtest/mainform.lfm +++ b/components/fpspreadsheet/examples/fpsspeedtest/mainform.lfm @@ -11,7 +11,7 @@ object Form1: TForm1 OnCreate = FormCreate OnDestroy = FormDestroy OnKeyPress = FormKeyPress - LCLVersion = '1.5' + LCLVersion = '1.8.4.0' object StatusBar: TStatusBar Left = 0 Height = 23 diff --git a/components/fpspreadsheet/examples/fpsspeedtest/mainform.pas b/components/fpspreadsheet/examples/fpsspeedtest/mainform.pas index b8453a9e7..8e12768c4 100644 --- a/components/fpspreadsheet/examples/fpsspeedtest/mainform.pas +++ b/components/fpspreadsheet/examples/fpsspeedtest/mainform.pas @@ -279,7 +279,7 @@ begin case RgContent.ItemIndex of 0: for ACol := 0 to numCols-1 do begin S := 'Xy' + IntToStr(ARow) + 'x' + IntToStr(ACol); - MyWorksheet.WriteUTF8Text(ARow, ACol, S); + MyWorksheet.WriteText(ARow, ACol, S); end; 1: for ACol := 0 to numCols-1 do MyWorksheet.WriteNumber(ARow, ACol, 1E5*ARow + ACol); @@ -287,7 +287,7 @@ begin if (odd(ARow) and odd(ACol)) or odd(ARow+ACol) then begin S := 'Xy' + IntToStr(ARow) + 'x' + IntToStr(ACol); - MyWorksheet.WriteUTF8Text(ARow, ACol, S); + MyWorksheet.WriteText(ARow, ACol, S); end else MyWorksheet.WriteNumber(ARow, ACol, 1E5*ARow + ACol); end; diff --git a/components/fpspreadsheet/examples/visual/fpsgrid_no_install/fpsgrid.lpi b/components/fpspreadsheet/examples/visual/fpsgrid_no_install/fpsgrid.lpi index 683adf22c..9517abeea 100644 --- a/components/fpspreadsheet/examples/visual/fpsgrid_no_install/fpsgrid.lpi +++ b/components/fpspreadsheet/examples/visual/fpsgrid_no_install/fpsgrid.lpi @@ -74,7 +74,7 @@ - + diff --git a/components/fpspreadsheet/laz_fpspreadsheet.lpk b/components/fpspreadsheet/laz_fpspreadsheet.lpk index 7f48308c4..c16c8f85c 100644 --- a/components/fpspreadsheet/laz_fpspreadsheet.lpk +++ b/components/fpspreadsheet/laz_fpspreadsheet.lpk @@ -8,7 +8,7 @@ - + @@ -33,7 +33,7 @@ This package is all you need if you don't want graphical components (like grids and charts)."/> - + diff --git a/components/fpspreadsheet/laz_fpspreadsheet_crypto.lpk b/components/fpspreadsheet/laz_fpspreadsheet_crypto.lpk index 0c1c722db..6f84b32fa 100644 --- a/components/fpspreadsheet/laz_fpspreadsheet_crypto.lpk +++ b/components/fpspreadsheet/laz_fpspreadsheet_crypto.lpk @@ -9,11 +9,11 @@ - + - + @@ -30,6 +30,7 @@ + diff --git a/components/fpspreadsheet/laz_fpspreadsheet_visual.lpk b/components/fpspreadsheet/laz_fpspreadsheet_visual.lpk index cc92eede9..0d155a12d 100644 --- a/components/fpspreadsheet/laz_fpspreadsheet_visual.lpk +++ b/components/fpspreadsheet/laz_fpspreadsheet_visual.lpk @@ -20,7 +20,7 @@ It provides graphical components like a grid and chart."/> - + @@ -46,8 +46,8 @@ It provides graphical components like a grid and chart."/> - - + + diff --git a/components/fpspreadsheet/laz_fpspreadsheet_visual_dsgn.lpk b/components/fpspreadsheet/laz_fpspreadsheet_visual_dsgn.lpk index aafd875eb..8e5d5937f 100644 --- a/components/fpspreadsheet/laz_fpspreadsheet_visual_dsgn.lpk +++ b/components/fpspreadsheet/laz_fpspreadsheet_visual_dsgn.lpk @@ -16,7 +16,7 @@ - + @@ -24,16 +24,14 @@ - + + - - - - + diff --git a/components/fpspreadsheet/laz_fpspreadsheetexport_visual.lpk b/components/fpspreadsheet/laz_fpspreadsheetexport_visual.lpk index 813ea010f..4fca472a5 100644 --- a/components/fpspreadsheet/laz_fpspreadsheetexport_visual.lpk +++ b/components/fpspreadsheet/laz_fpspreadsheetexport_visual.lpk @@ -9,7 +9,7 @@ - + @@ -25,14 +25,14 @@ It provides a graphical export component on the Data Export tab."/> - + - + @@ -43,8 +43,8 @@ It provides a graphical export component on the Data Export tab."/> - - + + diff --git a/components/fpspreadsheet/source/common/fpsfunc.pas b/components/fpspreadsheet/source/common/fpsfunc.pas index 48580cda6..6b9ae567e 100644 --- a/components/fpspreadsheet/source/common/fpsfunc.pas +++ b/components/fpspreadsheet/source/common/fpsfunc.pas @@ -1083,7 +1083,6 @@ var r, c: LongInt; dr, dc: LongInt; cell, addcell: PCell; - sh: Integer; s: String; f: Double; dt: TDateTime; diff --git a/components/fpspreadsheet/source/common/xlsbiff8.pas b/components/fpspreadsheet/source/common/xlsbiff8.pas index cd1fb1d32..a4579ff68 100644 --- a/components/fpspreadsheet/source/common/xlsbiff8.pas +++ b/components/fpspreadsheet/source/common/xlsbiff8.pas @@ -3066,6 +3066,8 @@ var sheet: TsWorksheet absolute AWorksheet; begin + Unused(ASheetIndex, AKind); + // Since this is a variable length record we begin by writing the formula // to a memory stream memstream := TMemoryStream.Create; diff --git a/components/fpspreadsheet/source/common/xlsxooxml.pas b/components/fpspreadsheet/source/common/xlsxooxml.pas index ff8e2ffe8..2b677728e 100644 --- a/components/fpspreadsheet/source/common/xlsxooxml.pas +++ b/components/fpspreadsheet/source/common/xlsxooxml.pas @@ -640,7 +640,6 @@ var dataStr: String; formulaStr: String; formula: PsFormula; - isSharedFormula: Boolean; nodeName: String; sstIndex: Integer; number: Double; diff --git a/components/fpspreadsheet/source/design/fpsvisualreg.pas b/components/fpspreadsheet/source/design/fpsvisualreg.pas index e7af09da3..315d9c7bf 100644 --- a/components/fpspreadsheet/source/design/fpsvisualreg.pas +++ b/components/fpspreadsheet/source/design/fpsvisualreg.pas @@ -2,12 +2,12 @@ unit fpsvisualreg; {$mode objfpc}{$H+} -{$R ../../resource\fpsvisualreg.res} +{$R ../../resource/fpsvisualreg.res} interface uses - Classes, SysUtils, fpsallformats; + Classes, SysUtils, {%H-}fpsallformats; procedure Register; diff --git a/components/fpspreadsheet/source/export/fpsexportreg.pas b/components/fpspreadsheet/source/export/fpsexportreg.pas new file mode 100644 index 000000000..8830a13b8 --- /dev/null +++ b/components/fpspreadsheet/source/export/fpsexportreg.pas @@ -0,0 +1,32 @@ +{ + Registration for fpsexport into the Lazarus component palette + This requires package lazdbexport for property editors etc +} +unit fpsexportreg; + +{$mode objfpc}{$H+} +{$R ../../resource/fpsvisualexportreg.res} + +interface + +uses + Classes, SysUtils, LazarusPackageIntf, lresources; + +procedure Register; + +implementation + +uses + fpsexport; + +{@@ ---------------------------------------------------------------------------- + Registers the export component in the Lazarus component palette, + page "Data Export". +-------------------------------------------------------------------------------} +procedure Register; +begin + RegisterComponents('Data Export', [TFPSExport]); +end; + +end. + diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas index 91e597276..1c4b2262c 100644 --- a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas +++ b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas @@ -2235,6 +2235,7 @@ end; procedure TsCellEdit.WMKillFocus(var AMessage: TLMKillFocus); begin + Unused(AMessage); // Override inherited behavior because we don't want to call EditingDone // here. end; diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas index 6cbbc6362..c60de0429 100644 --- a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas +++ b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas @@ -1185,7 +1185,6 @@ procedure TsMultilineStringCellEditor.KeyDown(var AKey: Word; AShift: TShiftStat var IntSel: boolean; - msg: String; begin inherited KeyDown(AKey, AShift); case AKey of