From 5e27aaea1034eb5e98fa4baa64f6f4e1706ce00d Mon Sep 17 00:00:00 2001
From: Bergmann89 <info@bergmann89.de>
Date: Sat, 2 Jan 2016 16:10:49 +0100
Subject: [PATCH] * fixed small mistake in clipping

---
 utsTextBlock.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/utsTextBlock.pas b/utsTextBlock.pas
index d170a76..5523838 100644
--- a/utsTextBlock.pas
+++ b/utsTextBlock.pas
@@ -744,9 +744,9 @@ var
     // check vertical clipping
     case Clipping of
       tsClipCharBorder, tsClipWordBorder:
-        draw := (y + line^.meta.Height > r.Top) and (y < r.Bottom);
+        draw := (y + line^.meta.Height >= r.Top) and (y <= r.Bottom);
       tsClipCharComplete, tsClipWordComplete:
-        draw := (y > r.Top) and (y + line^.meta.Height < r.Bottom);
+        draw := (y >= r.Top) and (y + line^.meta.Height <= r.Bottom);
     else
       draw := true;
     end;