fpspreadsheet: Add support for reading fonts from ods files.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3146 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2014-06-06 08:48:22 +00:00
parent 0954ad8470
commit 036383d658
4 changed files with 72 additions and 11 deletions
--- a/components/fpspreadsheet/fpsutils.pas
+++ b/components/fpspreadsheet/fpsutils.pas
@@ -1457,6 +1457,9 @@ begin
  units := lowercase(Copy(AValue, Length(AValue)-1, 2));
  val(copy(AValue, 1, Length(AValue)-2), x, res);
  // No hasseling with the decimal point...
+  if units = 'pt' then
+    Result := x
+  else
  if units = 'in' then
    Result := InToPts(x)
  else if units = 'cm' then