From 60b9345550d5eb1cdd99506a0fdeb1167ae02f04 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 13 Sep 2010 20:57:10 +0000
Subject: [PATCH] IDE: about: replaced TNoteBook with TPageControl

git-svn-id: trunk@27358 -
---
 ide/aboutfrm.lfm | 11 +++++------
 ide/aboutfrm.pas | 18 +++++++++---------
 2 files changed, 14 insertions(+), 15 deletions(-)

diff --git a/ide/aboutfrm.lfm b/ide/aboutfrm.lfm
index c17b9c8aae..7c6eed1b33 100644
--- a/ide/aboutfrm.lfm
+++ b/ide/aboutfrm.lfm
@@ -12,16 +12,15 @@ object AboutForm: TAboutForm
   PopupMenu = PopupMenu1
   Position = poScreenCenter
   LCLVersion = '0.9.29'
-  object Notebook: TNotebook
+  object Notebook: TPageControl
     Left = 0
     Height = 326
     Top = 0
     Width = 460
     Align = alClient
     OnPageChanged = NotebookPageChanged
-    PageIndex = 0
     TabOrder = 0
-    object VersionPage: TPage
+    object VersionPage: TTabSheet
       Caption = 'Version'
       ClientWidth = 458
       ClientHeight = 299
@@ -115,7 +114,7 @@ object AboutForm: TAboutForm
         ParentFont = False
       end
     end
-    object AboutPage: TPage
+    object AboutPage: TTabSheet
       Caption = 'About'
       ClientWidth = 458
       ClientHeight = 299
@@ -197,10 +196,10 @@ object AboutForm: TAboutForm
         TabOrder = 0
       end
     end
-    object ContributorsPage: TPage
+    object ContributorsPage: TTabSheet
       Caption = 'Contributors'
     end
-    object AcknowledgementsPage: TPage
+    object AcknowledgementsPage: TTabSheet
       Caption = 'Acknowledgements'
     end
   end
diff --git a/ide/aboutfrm.pas b/ide/aboutfrm.pas
index 1a4eb63b43..9420c5df20 100644
--- a/ide/aboutfrm.pas
+++ b/ide/aboutfrm.pas
@@ -26,8 +26,8 @@ interface
 
 uses
   Classes, SysUtils, FPCAdds, Forms, Controls, Graphics, Dialogs, LResources,
-  StdCtrls, Buttons, LazConf, LazarusIDEStrConsts, ExtCtrls, EnvironmentOpts,
-  Clipbrd, FileUtil, Menus, LCLIntf;
+  StdCtrls, Buttons, LazConf, LazarusIDEStrConsts, ExtCtrls, ComCtrls,
+  EnvironmentOpts, Clipbrd, FileUtil, Menus, LCLIntf;
 
 type
 
@@ -76,16 +76,16 @@ type
     miVerToClipboard: TMenuItem;
     OfficialLabel: TLabel;
     OfficialURLLabel: TLabel;
-    VersionPage: TPage;
+    VersionPage: TTabSheet;
     ButtonPanel: TPanel;
     PlatformLabel: TLabel;
     PopupMenu1: TPopupMenu;
     VersionLabel: TLABEL;
     RevisionLabel: TLabel;
-    Notebook:TNotebook;
-    AboutPage:TPage;
-    ContributorsPage:TPage;
-    AcknowledgementsPage:TPage;
+    Notebook: TPageControl;
+    AboutPage: TTabSheet;
+    ContributorsPage: TTabSheet;
+    AcknowledgementsPage:TTabSheet;
     procedure AboutFormCreate(Sender:TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure miVerToClipboardClick(Sender: TObject);
@@ -209,9 +209,9 @@ end;
 procedure TAboutForm.NotebookPageChanged(Sender: TObject);
 begin
   if Assigned(Contributors) then
-    Contributors.Active:=NoteBook.ActivePage = lisContributors;
+    Contributors.Active:=NoteBook.ActivePage = ContributorsPage;
   if Assigned(Acknowledgements) then
-    Acknowledgements.Active:=NoteBook.ActivePage = lisAcknowledgements;
+    Acknowledgements.Active:=NoteBook.ActivePage = AcknowledgementsPage;
 end;
 
 procedure TAboutForm.URLLabelMouseDown(Sender: TObject;