From aa04c61ba364055d567a2fd0a5d2218418f2d3ff Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 27 Sep 2016 18:07:51 +0000
Subject: [PATCH] fpspreadsheet: Fix zooming of rich-text cells

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5224 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/fpsvisualutils.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/fpspreadsheet/fpsvisualutils.pas b/components/fpspreadsheet/fpsvisualutils.pas
index 1579c0994..76b91dc81 100644
--- a/components/fpspreadsheet/fpsvisualutils.pas
+++ b/components/fpspreadsheet/fpsvisualutils.pas
@@ -993,6 +993,7 @@ begin
       ACharIndexOfNextFont := MaxInt;
     fnt := FWorkbook.GetFont(FRtParams[ACurrRtpIndex].FontIndex);
     Convert_sFont_to_Font(fnt, FCanvas.Font);
+    FCanvas.Font.Height := round(FZoomFactor * FCanvas.Font.Height);
     ACurrFontHeight := FCanvas.TextHeight('Tg');
     if fnt.Position <> fpNormal then
       FCanvas.Font.Size := round(fnt.Size * SUBSCRIPT_SUPERSCRIPT_FACTOR);