From 22ffafbcc98d3cc04a763e9ffc31e1a445ec87cb Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 15 May 2010 13:04:16 +0000
Subject: [PATCH] win32: bring selected page to top on switching

git-svn-id: trunk@25420 -
---
 lcl/interfaces/win32/win32callback.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index a79a6950f2..7bb7fcd8d0 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -246,7 +246,7 @@ var
 
   function ShowHideTabPage(NotebookHandle: HWnd; Showing: boolean): integer;
   const
-    ShowFlags: array[Boolean] of DWord = (SWP_HIDEWINDOW, SWP_SHOWWINDOW);
+    ShowFlags: array[Boolean] of DWord = (SWP_HIDEWINDOW or SWP_NOZORDER, SWP_SHOWWINDOW);
   var
     NoteBook: TCustomNotebook;
     PageIndex: Integer;
@@ -257,7 +257,7 @@ var
     PageIndex := NotebookPageRealToLCLIndex(Notebook, PageIndex);
     if PageIndex = -1 then exit;
     PageHandle := Notebook.CustomPage(PageIndex).Handle;
-    Windows.SetWindowPos(PageHandle, 0, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_NOACTIVATE or ShowFlags[Showing]);
+    Windows.SetWindowPos(PageHandle, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or ShowFlags[Showing]);
     Windows.RedrawWindow(PageHandle, nil, 0, RDW_INVALIDATE or RDW_ALLCHILDREN or RDW_ERASE);
     Result := PageIndex;
   end;