From 4da758ff04ebfded04affeac6bd7e52a6da0a80f Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Tue, 11 Jan 2005 13:51:17 +0000
Subject: [PATCH] force handle creation before showing page contents

git-svn-id: trunk@6541 -
---
 lcl/interfaces/win32/win32wsextctrls.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32wsextctrls.pp b/lcl/interfaces/win32/win32wsextctrls.pp
index 2a8f45459e..b5715680db 100644
--- a/lcl/interfaces/win32/win32wsextctrls.pp
+++ b/lcl/interfaces/win32/win32wsextctrls.pp
@@ -435,9 +435,9 @@ begin
     // create handle if not already done, need to show!
     if (AIndex >= 0) and (AIndex < ANotebook.PageCount) then
     begin
+      NotebookTabChanged(ANotebook, AIndex);
       PageHandle := ANotebook.CustomPage(AIndex).Handle;
       SetWindowPos(PageHandle, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
-      NotebookTabChanged(ANotebook, AIndex);
     end;
     if (OldPageIndex >= 0) and (OldPageIndex<>AIndex)
     and (OldPageIndex < ANotebook.PageCount)