From 7af5a3e038d1a8c4d23b0c6660257c74f4cf24a6 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Thu, 17 Nov 2011 13:00:43 +0000
Subject: [PATCH] customdrawn: Fixes setting the new page when deleting a tab

git-svn-id: trunk@33583 -
---
 components/customdrawn/customdrawncontrols.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/customdrawn/customdrawncontrols.pas b/components/customdrawn/customdrawncontrols.pas
index 1b72734848..971136ced1 100644
--- a/components/customdrawn/customdrawncontrols.pas
+++ b/components/customdrawn/customdrawncontrols.pas
@@ -2296,7 +2296,7 @@ begin
   Application.ReleaseComponent(TComponent(FTabs.Objects[AIndex]));
 
   FTabs.Delete(aIndex);
-  if FTabIndex >= FTabs.Count then SetTabIndex(FTabIndex-1);
+  if FTabIndex >= FTabs.Count then SetPageIndex(FTabIndex-1);
 
   Invalidate;
 end;