diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-31 15:17:35 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-31 15:17:35 +0000 |
commit | 6bf99bfc8d520e299e6ebe81573f4e40ee6d708b (patch) | |
tree | 469577e12f8d25f9fe2a3421ffd1b65b19a75326 /src/gui/gui_tab.pas | |
parent | 3748f92242566d50b322b5afdaa18ed96496b6c2 (diff) | |
download | fpGUI-6bf99bfc8d520e299e6ebe81573f4e40ee6d708b.tar.xz |
* The beginnings of a PageControl and TabSheet.
Diffstat (limited to 'src/gui/gui_tab.pas')
-rw-r--r-- | src/gui/gui_tab.pas | 14 |
1 files changed, 7 insertions, 7 deletions
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; |