pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* fpspreadsheet: cosmetic

Browse Source 
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
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpspreadsheet/fpsexport.pas
View File

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