From 72d1f2798ed9f08e53571f046f0cd6cbd57d639e Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 8 Apr 2016 19:27:59 +0000
Subject: [PATCH] fpspreadsheet: Fix TsWorksheetGrid hanging in case of
 zero-width or zero-height cells

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

diff --git a/components/fpspreadsheet/fpsvisualutils.pas b/components/fpspreadsheet/fpsvisualutils.pas
index ac3093be5..7c8b87f93 100644
--- a/components/fpspreadsheet/fpsvisualutils.pas
+++ b/components/fpspreadsheet/fpsvisualutils.pas
@@ -248,6 +248,9 @@ procedure DrawRichText(ACanvas: TCanvas; AWorkbook: TsWorkbook; const ARect: TRe
 var
   painter: TsTextPainter;
 begin
+  if (ARect.Left = ARect.Right) or (ARect.Top = ARect.Bottom) then
+    exit;
+
   painter := TsTextPainter.Create(ACanvas, AWorkbook, ARect, AText, ARichTextParams,
     AFontIndex, ARotation, AHorAlignment, AVertAlignment, AWordWrap, ARightToLeft);
   try