From 10c6042b7a76e79c3fc53136eea08e37817ab359 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 16 Mar 2016 17:27:51 +0000
Subject: [PATCH] fpspreadsheet: Fix automatic column width in grid.

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

diff --git a/components/fpspreadsheet/fpsvisualutils.pas b/components/fpspreadsheet/fpsvisualutils.pas
index ac26d74e1..e105f6ce4 100644
--- a/components/fpspreadsheet/fpsvisualutils.pas
+++ b/components/fpspreadsheet/fpsvisualutils.pas
@@ -266,7 +266,7 @@ begin
   painter := TsTextPainter.Create(ACanvas, AWorkbook, ARect, AText, ARichTextParams,
     AFontIndex, ATextRotation, haLeft, vaTop, AWordWrap, ARightToLeft);
   try
-    Result := painter.Height;
+    Result := painter.Width;
   finally
     painter.Free;
   end;