paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Improved display of row heights in TsSpreadsheetInspector

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5248 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2016-10-07 09:21:09 +00:00
parent 3a7f7b1f0f
commit baaf12ebfa
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpspreadsheet/fpspreadsheetctrls.pas
View File

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