From 4405e4bfd3cc89e33167b769d1a700d1b06406a1 Mon Sep 17 00:00:00 2001 From: paul Date: Tue, 6 Nov 2007 09:24:34 +0000 Subject: [PATCH] TPageControl: better handling TabVisible under win32 (issue #9996) git-svn-id: trunk@12757 - --- lcl/include/customnotebook.inc | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lcl/include/customnotebook.inc b/lcl/include/customnotebook.inc index 59c580f090..e2df41394c 100644 --- a/lcl/include/customnotebook.inc +++ b/lcl/include/customnotebook.inc @@ -423,11 +423,10 @@ begin if fPageIndex = AValue then exit; if not CanChangePageIndex then exit; //debugln('TCustomNotebook.SetPageIndex B ',dbgsName(Self),' AValue=',dbgs(AValue),' fPageIndex=',dbgs(fPageIndex),' PageCount=',dbgs(PageCount),' HandleAllocated=',dbgs(HandleAllocated)); - if Page[AValue].TabVisible or (csDesigning in ComponentState) then begin - fPageIndex := AValue; - UpdateAllDesignerFlags; - DoSendPageIndex; - end; + + fPageIndex := AValue; + UpdateAllDesignerFlags; + DoSendPageIndex; end; {------------------------------------------------------------------------------