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