* fpspreadsheet: cosmetic

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3625 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
bigchimp
2014-10-03 09:00:35 +00:00
parent b4b0d78d52
commit 5935c3c63e

View File

@ -80,11 +80,11 @@ Type
procedure RegisterFPSExportFormat;
procedure UnRegisterFPSExportFormat;
Const
const
SFPSExport = 'xls';
SPFSFilter = '*.xls'; //todo: add others?
SPFSExtension = '.xls'; //todo: add others?
ResourceString
resourcestring
SFPSDescription = 'Spreadsheet files';
implementation
@ -199,12 +199,12 @@ end;
procedure RegisterFPSExportFormat;
begin
RegisterExportFormat(SFPSExport,SFPSDescription,SPFSFilter,TFPSExport);
ExportFormats.RegisterExportFormat(SFPSExport,SFPSDescription,SPFSExtension,TFPSExport);
end;
procedure UnRegisterFPSExportFormat;
begin
UnregisterExportFormat(SFPSExport);
ExportFormats.UnregisterExportFormat(SFPSExport);
end;
{ TFPSExportFormatSettings }