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

@@ -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;