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

TurboPower_iPro: Fix showing of long tables at the beginning of a document.

Browse Source 
git-svn-id: trunk@52079 -
This commit is contained in:
wp 2016-03-28 22:11:14 +00:00
parent 8219b1fdfc
commit 90fa951b31
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/turbopower_ipro/iphtmlblocklayout.pas
View File

@ -1292,6 +1292,7 @@ var
R : TRect;
P : TPoint;
L0 : Boolean;
isVisible: Boolean;
begin
L0 := FBlockOwner.Level0;
FCurProps := nil;
@ -1313,9 +1314,11 @@ begin
//DumpTIpHtmlProps(FCurProps);
{$endif}
//debugln(['TIpHtmlNodeBlock.RenderQueue ',i,' ',IntersectRect(R, CurWord.WordRect2, Owner.PageViewRect),' CurWord.WordRect2=',dbgs(CurWord.WordRect2),' Owner.PageViewRect=',dbgs(Owner.PageViewRect)]);
if (CurWord.WordRect2.Bottom <= FIpHtml.PageViewBottom) and
IntersectRect(R, CurWord.WordRect2, FIpHtml.PageViewRect)
then begin
isVisible := ((CurWord.ElementType = etObject) or (CurWord.WordRect2.Bottom <= FIpHtml.PageViewBottom))
and IntersectRect(R, CurWord.WordRect2, FIpHtml.PageViewRect);
if isVisible then begin
case CurWord.ElementType of
etWord :
DoRenderElemWord(CurWord, CurTabFocus);