diff --git a/components/turbopower_ipro/iphtmlblocklayout.pas b/components/turbopower_ipro/iphtmlblocklayout.pas
index 7475b24801..24c4c6a6f3 100644
--- a/components/turbopower_ipro/iphtmlblocklayout.pas
+++ b/components/turbopower_ipro/iphtmlblocklayout.pas
@@ -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);