From 7b130f07afbc2ab0ec2eb932c70f5714d9e4ea83 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Tue, 17 Jan 2012 21:40:20 +0000
Subject: [PATCH] Optimize fixing the tab index in
 TCustomTabControl.TabIndexAtClientPos. Issue #21088

git-svn-id: trunk@34767 -
---
 lcl/include/customnotebook.inc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/include/customnotebook.inc b/lcl/include/customnotebook.inc
index 914167cceb..f68d23567a 100644
--- a/lcl/include/customnotebook.inc
+++ b/lcl/include/customnotebook.inc
@@ -318,7 +318,9 @@ begin
         Inc(VisiblePageInd)
       else begin
         if VisiblePageInd < Result then
-          Inc(Result);
+          Inc(Result)
+        else
+          Break;
       end;
     end;
   end