paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 23:29:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

ipro: do not warn em margin em

Browse Source 
git-svn-id: trunk@35747 -
This commit is contained in:
mattias 2012-03-05 19:21:52 +00:00
parent eb5ac27d76
commit 278a3ef6ac
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/ipcss.inc
View File

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

7
components/turbopower_ipro/iphtml.pas
View File

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