diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-01-12 17:09:36 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-01-12 17:09:36 +0200 |
commit | 0e43d10b68b5cfe1488771c3efc021e7d512f46f (patch) | |
tree | 7adc61c7c06a6019f02830f815a42bf2be1202f4 /src | |
parent | 83917097939ed1bf973e318f53511e75320d8e23 (diff) | |
download | fpGUI-0e43d10b68b5cfe1488771c3efc021e7d512f46f.tar.xz |
PageControl: Set a default value for published property ActivePageIndex
Diffstat (limited to 'src')
-rw-r--r-- | src/gui/fpg_tab.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/gui/fpg_tab.pas b/src/gui/fpg_tab.pas index 5a394df1..0e87292c 100644 --- a/src/gui/fpg_tab.pas +++ b/src/gui/fpg_tab.pas @@ -151,7 +151,7 @@ type property OnChange: TTabSheetChange read FOnChange write FOnChange; property OnClosingTabSheet: TTabSheetClosing read FOnClosingTabSheet write FOnClosingTabSheet; published - property ActivePageIndex: integer read GetActivePageIndex write SetActivePageIndex; + property ActivePageIndex: integer read GetActivePageIndex write SetActivePageIndex default 0; property Align; property BackgroundColor; property Enabled; @@ -1082,6 +1082,7 @@ begin FHeight := 100; FIsContainer := True; FTabOptions := []; + FActivePageIndex := 0; FTextColor := Parent.TextColor; FBackgroundColor := Parent.BackgroundColor; |