diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-09-07 11:35:59 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-09-07 11:35:59 +0000 |
commit | c05c7618ddfcf94117efaae8c83dfa2738f5d0a3 (patch) | |
tree | 25d5aa2247b659f35520ed40215e16f7505cb590 /src/gui/gui_tab.pas | |
parent | 8c4b085a78dccc8f5e5fe429a360ad456175b173 (diff) | |
download | fpGUI-c05c7618ddfcf94117efaae8c83dfa2738f5d0a3.tar.xz |
* GUI: Made some components properties published so the RTTI can
be used against them. A required for the GUI Designer and streaming.
* GUI Designer: Added 8 new components to the component palette.
* GUI Designer: Other minor improvements.
Diffstat (limited to 'src/gui/gui_tab.pas')
-rw-r--r-- | src/gui/gui_tab.pas | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/gui/gui_tab.pas b/src/gui/gui_tab.pas index 5ed0cabb..69b3b9b0 100644 --- a/src/gui/gui_tab.pas +++ b/src/gui/gui_tab.pas @@ -96,15 +96,16 @@ type constructor Create(AOwner: TComponent); override; destructor Destroy; override; function AppendTabSheet(ATitle: string): TfpgTabSheet; - property BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor; property PageCount: Integer read GetPageCount; - property ActivePageIndex: integer read GetActivePageIndex write SetActivePageIndex; property ActivePage: TfpgTabSheet read FActivePage write SetActivePage; + property OnChange: TTabSheetChange read FOnChange write FOnChange; + published + property ActivePageIndex: integer read GetActivePageIndex write SetActivePageIndex; + property BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor; property FixedTabWidth: integer read FFixedTabWidth write SetFixedTabWidth; + property SortPages: boolean read FSortPages write SetSortPages; property Style: TfpgTabStyle read FStyle write SetStyle; property TabPosition: TfpgTabPosition read FTabPosition write SetTabPosition; - property SortPages: boolean read FSortPages write SetSortPages; - property OnChange: TTabSheetChange read FOnChange write FOnChange; end; @@ -636,6 +637,8 @@ begin inherited Create(AOwner); FFont := fpgStyle.DefaultFont; FPages := TList.Create; + FWidth := 150; + FHeight := 100; FBackgroundColor := clWindowBackground; FFocusable := True; |