paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Fix minor bug in WorksheetGrid's row height calculation.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6592 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2018-08-11 10:38:31 +00:00
parent cdd13309aa
commit 5d1ba18b74
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5766,7 +5766,10 @@ begin
lRow^.Height := CalcRowHeightToSheet(round(h / ZoomFactor)); lRow^.Height := CalcRowHeightToSheet(round(h / ZoomFactor));
end else end else
// If autocalc mode is off we just take the row height from the row record // If autocalc mode is off we just take the row height from the row record
h := round(CalcRowHeightFromSheet(lRow^.Height) * ZoomFactor); case lRow^.RowHeightType of
rhtDefault : h := DefaultRowHeight;
rhtAuto : h := round(CalcRowHeightFromSheet(lRow^.Height) * ZoomFactor);
end;
end; end;
end; // case end; // case
end else end else