From 278a3ef6ac3d2b288d1444c32efd1c5908751af5 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 5 Mar 2012 19:21:52 +0000
Subject: [PATCH] ipro: do not warn em margin em

git-svn-id: trunk@35747 -
---
 components/turbopower_ipro/ipcss.inc  | 2 +-
 components/turbopower_ipro/iphtml.pas | 7 ++++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/components/turbopower_ipro/ipcss.inc b/components/turbopower_ipro/ipcss.inc
index 2e4b46fa36..6170c2fde3 100644
--- a/components/turbopower_ipro/ipcss.inc
+++ b/components/turbopower_ipro/ipcss.inc
@@ -17,7 +17,7 @@
 
  TCSSMargin = record
    Style: TCSSMarginStyle;
-   Size: integer; // negative values are allowed (not implemented)
+   Size: single; // negative values are allowed (not implemented)
  end;
 
 
diff --git a/components/turbopower_ipro/iphtml.pas b/components/turbopower_ipro/iphtml.pas
index ba6d8f9af8..0109fa75d4 100644
--- a/components/turbopower_ipro/iphtml.pas
+++ b/components/turbopower_ipro/iphtml.pas
@@ -893,7 +893,7 @@ type
 
   TIpHtmlElemMargin = record
     Style: TIpHtmlElemMarginStyle;
-    Size: integer; // negative values are not yet supported
+    Size: single; // negative values are not yet supported
   end;
 
 
@@ -15824,6 +15824,11 @@ procedure TIpHtmlNodeCore.ApplyCSSProps(const ACSSProps: TCSSProps;
       ElemMargin.Size:=CssMargin.Size;
       exit(true);
     end;
+    if CssMargin.Style=cmsEm then begin
+      ElemMargin.Style:=hemsPx;
+      ElemMargin.Size:=10*CssMargin.Size; // 1em = 1 current font size
+      exit(true);
+    end;
     debugln(['TIpHtmlNodeCore.ApplyCSSProps.CssMarginToProps note: margin style not supported ',ord(CssMargin.Style)]);
   end;