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

fpspreadsheet: Cosmetic changes.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5545 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-19 22:20:55 +00:00
parent c8e0dfe161
commit 2cf4c24eb5
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -328,7 +328,7 @@ const
ROWHEIGHT_EPS = 1E-2; ROWHEIGHT_EPS = 1E-2;
type type
TDateMode=(dm1900,dm1904); //DATEMODE values, 5.28 TDateMode=(dm1900, dm1904); //DATEMODE values, 5.28
// Adjusts Excel float (date, date/time, time) with the file's base date to get a TDateTime // Adjusts Excel float (date, date/time, time) with the file's base date to get a TDateTime
function ConvertExcelDateTimeToDateTime function ConvertExcelDateTimeToDateTime

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

@ -460,7 +460,7 @@ begin
Exit; Exit;
S := GetAttrValue(ANode.FindNode('workbookView'), 'activeTab'); S := GetAttrValue(ANode.FindNode('workbookView'), 'activeTab');
if TryStrToInt(S, i) then if TryStrToInt(S, i) then
ActiveSheetIndex := i; ActiveSheetIndex := i;
end; end;
procedure TsSpreadOOXMLReader.ReadBorders(ANode: TDOMNode); procedure TsSpreadOOXMLReader.ReadBorders(ANode: TDOMNode);