From b644518ae50d17ee17d39e40d19e6e6961354225 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Mon, 19 Aug 2002 15:14:55 +0000
Subject: [PATCH] MG: fixed TnoteBook AddPage and double creation of MeinMenu

git-svn-id: trunk@3179 -
---
 lcl/extctrls.pp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp
index 5858cd2b5c..135e92320e 100644
--- a/lcl/extctrls.pp
+++ b/lcl/extctrls.pp
@@ -61,15 +61,19 @@ type
     Introduced and (currently) maintained by Curtis White
   }
 
+  TPageFlag = (pfAdded);
+  TPageFlags = set of TPageFlag;
 
   TPage = class(TWinControl)
   private
+    FFlags: TPageFlags;
     FImageIndex: integer;
     procedure SetImageIndex(const AValue: integer);
   protected
     //procedure Paint; override;
     procedure WMPaint(var Msg: TLMPaint); message LM_PAINT;
     procedure SetParent(AParent : TWinControl); override;
+    property Flags: TPageFlags read FFlags write FFlags;
   public
     procedure AddControl; override;
     constructor Create(AOwner: TComponent); override;
@@ -505,6 +509,9 @@ end.
 
  {
   $Log$
+  Revision 1.38  2002/10/24 08:56:30  lazarus
+  MG: fixed TnoteBook AddPage and double creation of MeinMenu
+
   Revision 1.37  2002/10/20 22:31:08  lazarus
   AJ:switched TImage.Autosize to use DoAutoSize