pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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])); AStrings.Add(Format('Row=%d', [ARow]));
if lRow <> nil then if lRow <> nil then
begin begin
AStrings.Add(Format('Height=%.1f %s', [ AStrings.Add(Format('Height=%.1f %s (%.1f pt)', [
lRow^.Height, unitStr lRow^.Height, unitStr, Workbook.ConvertUnits(lRow^.Height, Workbook.Units, suPoints)
])); ]));
AStrings.Add(Format('RowHeightType=%s', [ AStrings.Add(Format('RowHeightType=%s', [
RowHeightTypeNames[lRow^.RowHeightType] RowHeightTypeNames[lRow^.RowHeightType]
@ -3245,8 +3245,9 @@ begin
end else end else
begin begin
AStrings.Add('No row record='); AStrings.Add('No row record=');
AStrings.Add(Format('DefaultRowHeight=%.1f %s', [ AStrings.Add(Format('DefaultRowHeight=%.1f %s (%.1f pt)', [
Worksheet.ReadDefaultRowHeight(Workbook.Units), unitStr Worksheet.ReadDefaultRowHeight(Workbook.Units), unitStr,
Worksheet.ReadDefaultRowHeight(suPoints)
])); ]));
end; end;
end; end;