paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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
FindNearestPaletteIndex.
- Arial bold is not shown as such if loaded from ods
- 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? }
- Background color of first cell is ignored. }
interface
@ -5408,7 +5404,7 @@ begin
while decs > 0 do
begin
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 := Format('%.*e', [decs, ACell^.NumberValue], Workbook.FormatSettings);
if isStacked then