From baaf12ebfa4503ef23e1a2d0059f289ba6d68636 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 7 Oct 2016 09:21:09 +0000
Subject: [PATCH] fpspreadsheet: Improved display of row heights in
 TsSpreadsheetInspector

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5248 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/fpspreadsheetctrls.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/components/fpspreadsheet/fpspreadsheetctrls.pas b/components/fpspreadsheet/fpspreadsheetctrls.pas
index 3bb399769..2e4cd5ef4 100644
--- a/components/fpspreadsheet/fpspreadsheetctrls.pas
+++ b/components/fpspreadsheet/fpspreadsheetctrls.pas
@@ -3236,8 +3236,8 @@ begin
   AStrings.Add(Format('Row=%d', [ARow]));
   if lRow <> nil then
   begin
-    AStrings.Add(Format('Height=%.1f %s', [
-      lRow^.Height, unitStr
+    AStrings.Add(Format('Height=%.1f %s (%.1f pt)', [
+      lRow^.Height, unitStr, Workbook.ConvertUnits(lRow^.Height, Workbook.Units, suPoints)
     ]));
     AStrings.Add(Format('RowHeightType=%s', [
       RowHeightTypeNames[lRow^.RowHeightType]
@@ -3245,8 +3245,9 @@ begin
   end else
   begin
     AStrings.Add('No row record=');
-    AStrings.Add(Format('DefaultRowHeight=%.1f %s', [
-      Worksheet.ReadDefaultRowHeight(Workbook.Units), unitStr
+    AStrings.Add(Format('DefaultRowHeight=%.1f %s (%.1f pt)', [
+      Worksheet.ReadDefaultRowHeight(Workbook.Units), unitStr,
+      Worksheet.ReadDefaultRowHeight(suPoints)
     ]));
   end;
 end;