From 9992b8abe3bdbcf8ba880ff7257ab771e65158e3 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Wed, 20 Jul 2011 14:59:39 +0000
Subject: [PATCH] Fixes compilation of the win32 widgetset

git-svn-id: trunk@31770 -
---
 lcl/interfaces/win32/win32wscomctrls.pp | 32 ++++++++++++-------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/lcl/interfaces/win32/win32wscomctrls.pp b/lcl/interfaces/win32/win32wscomctrls.pp
index 2e2dac65c2..a5606f4b23 100644
--- a/lcl/interfaces/win32/win32wscomctrls.pp
+++ b/lcl/interfaces/win32/win32wscomctrls.pp
@@ -56,29 +56,29 @@ type
 
   { TWin32WSCustomNotebook }
 
-  TWin32WSCustomNotebook = class(TWSCustomPageControl)
+  TWin32WSCustomNotebook = class(TWSCustomTabControl)
   published
     class function CreateHandle(const AWinControl: TWinControl;
           const AParams: TCreateParams): HWND; override;
-    class procedure AddAllNBPages(const ANotebook: TCustomTabControl);
-    class procedure AdjustSizeNotebookPages(const ANotebook: TCustomTabControl);
-    class procedure AddPage(const ANotebook: TCustomTabControl;
+    class procedure AddAllNBPages(const ATabControl: TCustomTabControl);
+    class procedure AdjustSizeNotebookPages(const ATabControl: TCustomTabControl);
+    class procedure AddPage(const ATabControl: TCustomTabControl;
       const AChild: TCustomPage; const AIndex: integer); override;
-    class procedure MovePage(const ANotebook: TCustomTabControl;
+    class procedure MovePage(const ATabControl: TCustomTabControl;
       const AChild: TCustomPage; const NewIndex: integer); override;
-    class procedure RemoveAllNBPages(const ANotebook: TCustomTabControl);
-    class procedure RemovePage(const ANotebook: TCustomTabControl;
+    class procedure RemoveAllNBPages(const ATabControl: TCustomTabControl);
+    class procedure RemovePage(const ATabControl: TCustomTabControl;
       const AIndex: integer); override;
 
-    class function GetTabIndexAtPos(const ANotebook: TCustomTabControl; const AClientPos: TPoint): integer; override;
-    class function GetTabRect(const ANotebook: TCustomTabControl; const AIndex: Integer): TRect; override;
+    class function GetTabIndexAtPos(const ATabControl: TCustomTabControl; const AClientPos: TPoint): integer; override;
+    class function GetTabRect(const ATabControl: TCustomTabControl; const AIndex: Integer): TRect; override;
     class function GetCapabilities: TNoteBookCapabilities;override;
     class function GetDesignInteractive(const AWinControl: TWinControl; AClientPos: TPoint): Boolean; override;
-    class procedure SetImageList(const ANotebook: TCustomTabControl; const AImageList: TCustomImageList); override;
-    class procedure SetPageIndex(const ANotebook: TCustomTabControl; const AIndex: integer); override;
-    class procedure SetTabPosition(const ANotebook: TCustomTabControl; const ATabPosition: TTabPosition); override;
-    class procedure ShowTabs(const ANotebook: TCustomTabControl; AShowTabs: boolean); override;
-    class procedure UpdateProperties(const ANotebook: TCustomTabControl); override;
+    class procedure SetImageList(const ATabControl: TCustomTabControl; const AImageList: TCustomImageList); override;
+    class procedure SetPageIndex(const ATabControl: TCustomTabControl; const AIndex: integer); override;
+    class procedure SetTabPosition(const ATabControl: TCustomTabControl; const ATabPosition: TTabPosition); override;
+    class procedure ShowTabs(const ATabControl: TCustomTabControl; AShowTabs: boolean); override;
+    class procedure UpdateProperties(const ATabControl: TCustomTabControl); override;
   end;
 
   { TWin32WSStatusBar }
@@ -268,8 +268,8 @@ type
   published
   end;
 
-procedure NotebookFocusNewControl(const ANotebook: TCustomTabControl; NewIndex: integer);
-function NotebookPageRealToLCLIndex(const ANotebook: TCustomTabControl; AIndex: integer): integer;
+procedure NotebookFocusNewControl(const ATabControl: TCustomTabControl; NewIndex: integer);
+function NotebookPageRealToLCLIndex(const ATabControl: TCustomTabControl; AIndex: integer): integer;
 function ShowHideTabPage(NotebookHandle: HWnd; Showing: boolean): integer;
 
 implementation