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

iPro: move common code to local funcs in TIpHtmlNodeBlock.DoQueueElemObject.

Browse Source 
git-svn-id: trunk@45714 -
This commit is contained in:
juha 2014-06-28 18:42:46 +00:00
parent ef8bf6836e
commit 092116e07b
1 changed files with 28 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
components/turbopower_ipro/iphtml.pas
View File

@ -10733,6 +10733,25 @@ begin
end;
function TIpHtmlNodeBlock.DoQueueElemObject(var aCurElem: PIpHtmlElement): boolean;
procedure ObjectVertical(Ascent, Descent: Integer);
begin
FExpBreak := False;
FLTrim := False;
FCurAscent := Ascent;
FCurDescent := Descent;
end;
function ObjectHorizontal: boolean;
begin
aCurElem := nil;
FCurHeight := 0;
FxySize.cx := 0;
Result := FLTrim;
if Result then
Inc(iElem);
end;
var
CurObj : TIpHtmlNodeAlignInline;
begin
@ -10745,58 +10764,27 @@ begin
FxySize := CurObj.GetDim(FTotWidth);
FCurHeight := FxySize.cy;
case Curobj.Align of
hiaCenter :
begin
FExpBreak := False;
FLTrim := False;
FCurAscent := FMaxAscent;
FCurDescent := FxySize.cy - FMaxAscent;
hiaCenter : begin
ObjectVertical(FMaxAscent, FxySize.cy - FMaxAscent);
FTempCenter := True;
FSaveAl := FAl;
FAl := haCenter;
end;
hiaTop :
begin
FExpBreak := False;
FLTrim := False;
FCurAscent := -1;
FCurDescent := FxySize.cy;
end;
ObjectVertical(-1, FxySize.cy);
hiaMiddle :
begin
FExpBreak := False;
FLTrim := False;
FCurAscent := FxySize.cy div 2;
FCurDescent := FxySize.cy div 2;
end;
ObjectVertical(FxySize.cy div 2, FxySize.cy div 2);
hiaBottom :
begin
FExpBreak := False;
FLTrim := False;
FCurAscent := FxySize.cy;
FCurDescent := 0;
end;
hiaLeft :
begin
ObjectVertical(FxySize.cy, 0);
hiaLeft : begin
FLeftQueue.Add(aCurElem);
aCurElem := nil;
FCurHeight := 0;
FxySize.cx := 0;
if FLTrim then begin
Inc(iElem);
if ObjectHorizontal then
Exit(False);
end;
end;
hiaRight :
begin
hiaRight : begin
FRightQueue.Add(aCurElem);
aCurElem := nil;
FCurHeight := 0;
FxySize.cx := 0;
if FLTrim then begin
Inc(iElem);
if ObjectHorizontal then
Exit(False);
end;
end;
end;
Result := True;