From 6bf99bfc8d520e299e6ebe81573f4e40ee6d708b Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Tue, 31 Jul 2007 15:17:35 +0000
Subject: * The beginnings of a PageControl and TabSheet.

---
 src/gui/fpgui_package.pas |  2 +-
 src/gui/gui_tab.pas       | 14 +++++++-------
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/gui/fpgui_package.pas b/src/gui/fpgui_package.pas
index 995215e7..5c32dc40 100644
--- a/src/gui/fpgui_package.pas
+++ b/src/gui/fpgui_package.pas
@@ -9,7 +9,7 @@ interface
 uses
   gui_button, gui_combobox, gui_dialogs, gui_edit, gui_form, gui_label, 
     gui_listbox, gui_memo, gui_popupwindow, gui_scrollbar, gui_bevel, 
-    gui_checkbox, gui_radiobutton, gui_trackbar; 
+    gui_checkbox, gui_radiobutton, gui_trackbar, gui_tab; 
 
 implementation
 
diff --git a/src/gui/gui_tab.pas b/src/gui/gui_tab.pas
index b1262ca3..04edc05a 100644
--- a/src/gui/gui_tab.pas
+++ b/src/gui/gui_tab.pas
@@ -21,10 +21,10 @@ type
 
   TfpgTabSheet = class(TfpgWidget)
   private
-    function    GetPageControl: TfpgPageContol;
+    function    GetPageControl: TfpgPageControl;
     function    GetPageIndex: Integer;
     function    GetText: string;
-    procedure   SetPageControl(const AValue: TfpgPageContol);
+    procedure   SetPageControl(const AValue: TfpgPageControl);
     procedure   SetPageIndex(const AValue: Integer);
     procedure   SetText(const AValue: string);
   public
@@ -32,7 +32,7 @@ type
     destructor  Destroy; override;
     property    Text: string read GetText write SetText;
     property    PageIndex: Integer read GetPageIndex write SetPageIndex stored False;
-    property    PageControl: TfpgPageContol read GetPageControl write SetPageControl;
+    property    PageControl: TfpgPageControl read GetPageControl write SetPageControl;
   end;
 
 
@@ -63,7 +63,7 @@ implementation
 
 { TfpgTabSheet }
 
-function TfpgTabSheet.GetPageControl: TfpgPageContol;
+function TfpgTabSheet.GetPageControl: TfpgPageControl;
 begin
   if Owner is TfpgPageControl then
     Result := TfpgPageControl(Owner)
@@ -84,13 +84,13 @@ begin
 
 end;
 
-procedure TfpgTabSheet.SetPageControl(const AValue: TfpgPageContol);
+procedure TfpgTabSheet.SetPageControl(const AValue: TfpgPageControl);
 begin
   if PageControl <> AValue then
   begin
     if PageControl <> nil then
       PageControl.RemovePage(self);
-    Owner := AValue;
+//    Owner := AValue;
     if AValue <> nil then
       AValue.InsertPage(self);
   end;
@@ -113,7 +113,7 @@ begin
   if Owner is TfpgPageControl then
   begin
     TfpgPageControl(Owner).RegisterTabSheet(self);
-    FPageIndex := TfpgPageControl(Owner).PageCount + 1;
+//    FPageIndex := TfpgPageControl(Owner).PageCount + 1;
   end;
 end;
 
-- 
cgit v1.2.3-70-g09d2