From 9e430154c462071f5dae8e0e11eff2852b38b216 Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Mon, 3 Sep 2018 17:53:03 +0000
Subject: [PATCH] TurboPower_ipro: Improved layout of div tags in TIpHtmlPanel

git-svn-id: trunk@58843 -
---
 components/turbopower_ipro/iphtml.pas | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/components/turbopower_ipro/iphtml.pas b/components/turbopower_ipro/iphtml.pas
index 6c747e15f4..b4fa925de6 100644
--- a/components/turbopower_ipro/iphtml.pas
+++ b/components/turbopower_ipro/iphtml.pas
@@ -2019,7 +2019,7 @@ type
     ElementPool : TIpHtmlPoolManager;
     AnchorList : {$ifdef IP_LAZARUS}TFPList{$else}TList{$endif};
     FControlList : {$ifdef IP_LAZARUS}TFPList{$else}TList{$endif};
-    FCURURL : string;
+    FCurURL : string;
     DoneLoading : Boolean;
     ListLevel : Integer;
     PropACache : TIpHtmlPropsAList;
@@ -10338,6 +10338,24 @@ begin
 end;
 
 procedure TIpHtmlNodeDIV.Enqueue;
+var
+  elem: PIpHtmlElement;
+  hf, h: Integer;
+begin
+  hf := Props.FontSize;
+  if FChildren.Count > 0 then begin
+    h := GetMargin(Props.ElemMarginTop, 0); //hf div 4);
+    elem := Owner.BuildLinefeedEntry(etSoftLF, h);
+    EnqueueElement(elem);
+  end;
+  inherited Enqueue;
+  if FChildren.Count > 0 then begin
+    h := GetMargin(Props.ElemMarginBottom, 0);  //hf div 4);
+    elem := Owner.BuildLinefeedEntry(etSoftLF, h);
+    EnqueueElement(elem);
+  end;
+end;
+(* this is the original code
 begin
   if FChildren.Count > 0 then begin
     if Props.ElemMarginTop.Style=hemsAuto then
@@ -10357,6 +10375,7 @@ begin
     end;
   end;
 end;
+*)
 
 { TIpHtmlNodeSPAN }