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

TurboPower_ipro: Some more improvements in line spacings.

Browse Source 
git-svn-id: trunk@58909 -
This commit is contained in:
wp 2018-09-08 15:55:42 +00:00
parent 69221ae81d
commit 4c032af54f
2 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
components/turbopower_ipro/iphtml.pas
View File

@ -245,8 +245,8 @@ type
FCurProps : TIpHtmlProps;
FBlockMin, FBlockMax : Integer;
function GetProps: TIpHtmlProps;
procedure ProcessDuplicateLFs;
procedure RemoveLeadingLFs;
procedure RemoveDuplicateLFs;
public
FPageRect : TRect;
constructor Create(AOwner: TIpHtmlNodeCore); virtual;
@ -4021,16 +4021,9 @@ begin
end;
end;
procedure TIpHtmlBaseLayouter.RemoveLeadingLFs;
begin
while (FElementQueue.Count>0)
and (PIpHtmlElement(FElementQueue[0])^.ElementType in [etSoftLF, etHardLF]) do
FElementQueue.Delete(0);
end;
procedure TIpHtmlBaseLayouter.RemoveDuplicateLFs;
procedure TIpHtmlBaseLayouter.ProcessDuplicateLFs;
var
i: Integer;
i, ilast: Integer;
elem: PIpHtmlElement;
prevelem: PIpHtmlElement;
begin
@ -4048,16 +4041,21 @@ begin
if (prevelem.ElementType = etSoftLF) then begin
prevelem.LFHeight := MaxI2(prevelem.LFHeight, elem.LFHeight);
FElementQueue.Delete(i-1);
end else
if (prevelem.ElementType = etHardLF) then begin
//prevelem.LFHeight := prevelem.LFHeight + elem.LFHeight;
//FElementQueue.Delete(i);
end;
// nothing to do for etHardLF
end;
dec(i);
end;
end;
procedure TIpHtmlBaseLayouter.RemoveLeadingLFs;
begin
while (FElementQueue.Count>0)
and (PIpHtmlElement(FElementQueue[0])^.ElementType in [etSoftLF, etHardLF]) do
FElementQueue.Delete(0);
end;
{ TIpHtmlBaseTableLayouter }
constructor TIpHtmlBaseTableLayouter.Create(AOwner: TIpHtmlNodeCore);
@ -10010,17 +10008,18 @@ begin
hf := Props.FontSize;
if FChildren.Count > 0 then begin
h := GetMargin(Props.ElemMarginTop, hf div 2);
elem := Owner.BuildLinefeedEntry(etHardLF, h);
elem := Owner.BuildLinefeedEntry(etSoftLF, h);
EnqueueElement(elem);
end;
inherited Enqueue;
if FChildren.Count > 0 then begin
h := GetMargin(Props.ElemMarginBottom, hf div 4);
elem := Owner.BuildLinefeedEntry(etHardLF, h);
elem := Owner.BuildLinefeedEntry(etSoftLF, h);
EnqueueElement(elem);
end;
end;
{ TIpHtmlNodeLI }
procedure TIpHtmlNodeLI.CalcMinMaxWidth(var Min, Max: Integer);
@ -10137,9 +10136,10 @@ var
elem: PIpHtmlElement;
begin
if (ParentNode is TIpHtmlNodeP) or
(ParentNode is TIpHtmlNodeDIV) or
(ParentNode is TIpHtmlNodeLI) or
(ParentNode is TIpHtmlNodePRE) or
(ParentNode is TIpHtmlNodeDIV)
// (ParentNode is TIpHtmlNodePRE) or
(ParentNode is TIpHtmlNodeHeader)
then
h := 0
else

2
components/turbopower_ipro/iphtmlblocklayout.pas
View File

@ -188,7 +188,7 @@ begin
if FBlockOwner is TIpHtmlNodeBody then
RemoveLeadingLFs;
RemoveDuplicateLFs;
ProcessDuplicateLFs;
if not RenderProps.IsEqualTo(Props) then
begin