paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Camelcase some unit names.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7525 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2020-07-04 10:32:38 +00:00
parent ddf10abf86
commit 3189f58ee5
6 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/source/common/fpsclasses.pas
View File

@ -1,4 +1,4 @@
unit fpsclasses;
unit fpsClasses;
{$mode objfpc}{$H+}

2
components/fpspreadsheet/source/common/fpsopendocument.pas
View File

@ -23,7 +23,7 @@ NOTICE: Active define FPSpreadDebug in the project options to get a log during
}
unit fpsopendocument;
unit fpsOpenDocument;
{$ifdef fpc}
{$mode objfpc}{$H+}

2
components/fpspreadsheet/source/common/fpspreadsheet.pas
View File

@ -7,7 +7,7 @@
LICENSE: See the file COPYING.modifiedLGPL.txt, included in the Lazarus
distribution, for details about the license.
-------------------------------------------------------------------------------}
unit fpspreadsheet;
unit fpSpreadsheet;
{$ifdef fpc}
{$mode delphi}{$H+}

2
components/fpspreadsheet/source/common/fpsutils.pas
View File

@ -5,7 +5,7 @@
LICENSE: See the file COPYING.modifiedLGPL.txt, included in the Lazarus
distribution, for details about the license.
-------------------------------------------------------------------------------}
unit fpsutils;
unit fpsUtils;
// to do: Remove the patched FormatDateTime when the feature of square brackets
// in time format codes is in the rtl

2
components/fpspreadsheet/source/common/fpsxmlcommon.pas
View File

@ -1,7 +1,7 @@
{ fpsxmlcommon.pas
Unit shared by all xml-type reader/writer classes }
unit fpsxmlcommon;
unit fpsXMLCommon;
{$mode objfpc}{$H+}

11
components/fpspreadsheet/source/common/xlsbiff8.pas
View File

@ -217,6 +217,7 @@ type
AWorksheet: TsBasicWorksheet): Int64;
procedure WriteComment(AStream: TStream; ACell: PCell); override;
procedure WriteComments(AStream: TStream; AWorksheet: TsBasicWorksheet);
procedure WriteConditionalFormatting(AStream: TStream; AWorksheet: TsBasicWorksheet);
procedure WriteDefinedName(AStream: TStream; AWorksheet: TsBasicWorksheet;
const AName: String; AIndexToREF, ASheetIndex: Word;
AKind: TsBIFFExternKind); reintroduce;
@ -2863,6 +2864,7 @@ begin
WriteHyperlinks(AStream, FWorksheet);
WriteMergedCells(AStream, FWorksheet);
WriteConditionalFormatting(AStream, FWorksheet);
WriteEOF(AStream);
end;
@ -3119,6 +3121,15 @@ begin
end;
end;
{@@ ----------------------------------------------------------------------------
Writes the records needed by Conditional Formatting
-------------------------------------------------------------------------------}
procedure TsSpreadBIFF8Writer.WriteConditionalFormatting(AStream: TStream;
AWorksheet: TsBasicWorksheet);
begin
// to do: implementation: write CFHEADER and CFRULE records.
end;
{@@ ----------------------------------------------------------------------------
Writes a DEFINEDNAME record.
Implements only the builtin defined names for print ranges and titles!