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

fpspreadsheet: Fix formatting error of large numbers if grid column width is very narrow (TrimToCell).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5906 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-05-27 17:44:51 +00:00
parent 685581a8da
commit 505b833416
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
View File

@ -21,11 +21,7 @@ unit fpspreadsheetgrid;
- When Lazarus 1.4 comes out remove the workaround for the RGB2HLS bug in - When Lazarus 1.4 comes out remove the workaround for the RGB2HLS bug in
FindNearestPaletteIndex. FindNearestPaletteIndex.
- Arial bold is not shown as such if loaded from ods - Arial bold is not shown as such if loaded from ods
- Background color of first cell is ignored. - Background color of first cell is ignored. }
- Enter 1234567890 into a cell. reduce col width with mouse. Immediately
before display becomes #### there is 11E09 in the cell - it should be 1E09.
Cell not correctly erased? }
interface interface
@ -5408,7 +5404,7 @@ begin
while decs > 0 do while decs > 0 do
begin begin
dec(decs); dec(decs);
nfs := '0.' + DupeString('0', decs) + 'E-00'; nfs := IfThen(decs = 0, '0E-00', '0.' + DupeString('0', decs) + 'E-00');
Result := FormatFloat(nfs, ACell^.NumberValue, Workbook.FormatSettings); Result := FormatFloat(nfs, ACell^.NumberValue, Workbook.FormatSettings);
// Result := Format('%.*e', [decs, ACell^.NumberValue], Workbook.FormatSettings); // Result := Format('%.*e', [decs, ACell^.NumberValue], Workbook.FormatSettings);
if isStacked then if isStacked then