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

fpspreadsheet: Fix zooming of rich-text cells

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5224 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-09-27 18:07:51 +00:00
parent 048f8dd7de
commit aa04c61ba3
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpspreadsheet/fpsvisualutils.pas
View File

@ -993,6 +993,7 @@ begin
ACharIndexOfNextFont := MaxInt; ACharIndexOfNextFont := MaxInt;
fnt := FWorkbook.GetFont(FRtParams[ACurrRtpIndex].FontIndex); fnt := FWorkbook.GetFont(FRtParams[ACurrRtpIndex].FontIndex);
Convert_sFont_to_Font(fnt, FCanvas.Font); Convert_sFont_to_Font(fnt, FCanvas.Font);
FCanvas.Font.Height := round(FZoomFactor * FCanvas.Font.Height);
ACurrFontHeight := FCanvas.TextHeight('Tg'); ACurrFontHeight := FCanvas.TextHeight('Tg');
if fnt.Position <> fpNormal then if fnt.Position <> fpNormal then
FCanvas.Font.Size := round(fnt.Size * SUBSCRIPT_SUPERSCRIPT_FACTOR); FCanvas.Font.Size := round(fnt.Size * SUBSCRIPT_SUPERSCRIPT_FACTOR);