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

fpspreadsheet: Fix "FitToCell" method of TsWorksheetGrid to be active only with nfGeneral-formatted numbers.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3930 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-02-05 18:06:52 +00:00
parent e90222405a
commit c896fa3733
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/fpspreadsheetgrid.pas
View File

@ -3487,13 +3487,15 @@ var
isRotated: Boolean;
isStacked: Boolean;
tr: TsTextRotation;
fmt: PsCellFormat;
begin
Result := Worksheet.ReadAsUTF8Text(ACell);
if (Result = '') or ((ACell <> nil) and (ACell^.ContentType = cctUTF8String))
then
exit;
tr := Worksheet.ReadTextRotation(ACell);
fmt := Workbook.GetPointerToCellFormat(ACell^.FormatIndex);
tr := fmt^.TextRotation;
isRotated := (tr <> trHorizontal);
isStacked := (tr = rtStacked);
// isRotated := (uffTextRotation in ACell^.UsedFormattingFields) and (ACell^.TextRotation <> trHorizontal);
@ -3515,7 +3517,7 @@ begin
if txtSize <= cellSize then
exit;
if (ACell^.ContentType = cctNumber) then
if (ACell^.ContentType = cctNumber) and (fmt^.NumberFormat = nfGeneral) then
begin
// Determine number of decimal places
p := pos(Workbook.FormatSettings.DecimalSeparator, Result);