paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-22 07:34:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_ipro: Improved layout of div tags in TIpHtmlPanel

Browse Source 
git-svn-id: trunk@58843 -
This commit is contained in:
wp 2018-09-03 17:53:03 +00:00
parent 51c4594159
commit 9e430154c4
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/turbopower_ipro/iphtml.pas
View File

@ -2019,7 +2019,7 @@ type
ElementPool : TIpHtmlPoolManager; ElementPool : TIpHtmlPoolManager;
AnchorList : {$ifdef IP_LAZARUS}TFPList{$else}TList{$endif}; AnchorList : {$ifdef IP_LAZARUS}TFPList{$else}TList{$endif};
FControlList : {$ifdef IP_LAZARUS}TFPList{$else}TList{$endif}; FControlList : {$ifdef IP_LAZARUS}TFPList{$else}TList{$endif};
FCURURL : string; FCurURL : string;
DoneLoading : Boolean; DoneLoading : Boolean;
ListLevel : Integer; ListLevel : Integer;
PropACache : TIpHtmlPropsAList; PropACache : TIpHtmlPropsAList;
@ -10338,6 +10338,24 @@ begin
end; end;
procedure TIpHtmlNodeDIV.Enqueue; 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 begin
if FChildren.Count > 0 then begin if FChildren.Count > 0 then begin
if Props.ElemMarginTop.Style=hemsAuto then if Props.ElemMarginTop.Style=hemsAuto then
@ -10357,6 +10375,7 @@ begin
end; end;
end; end;
end; end;
*)
{ TIpHtmlNodeSPAN } { TIpHtmlNodeSPAN }