diff options
| author | Andrew Haines <andrewd207@aol.com> | 2010-08-15 09:22:59 -0400 |
|---|---|---|
| committer | Andrew Haines <andrewd207@aol.com> | 2010-08-15 09:22:59 -0400 |
| commit | 917a2daf4ff769ad27631e6c71a7b919c47e4ecb (patch) | |
| tree | c524983404bd70c97c17395995f962cdf41899cc /examples/gui/tabtest/tabtest.lpr | |
| parent | 77245bbf79e8568ba143cd7654e8aba352253a81 (diff) | |
| parent | 59df247d7a5ff46cc8ac697526510b2ff6cbe5d2 (diff) | |
| download | fpGUI-917a2daf4ff769ad27631e6c71a7b919c47e4ecb.tar.xz | |
Merge branch 'master' of ssh://fpgui.git.sourceforge.net/gitroot/fpgui/fpgui
Diffstat (limited to 'examples/gui/tabtest/tabtest.lpr')
| -rw-r--r-- | examples/gui/tabtest/tabtest.lpr | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/examples/gui/tabtest/tabtest.lpr b/examples/gui/tabtest/tabtest.lpr index 46d1a108..016d5af5 100644 --- a/examples/gui/tabtest/tabtest.lpr +++ b/examples/gui/tabtest/tabtest.lpr @@ -64,8 +64,14 @@ procedure TMainForm.cbTabPosChanged(Sender: TObject); begin if cbTabPos.FocusItem = 0 then pcMain.TabPosition := tpTop + else if cbTabPos.FocusItem = 1 then + pcMain.TabPosition := tpBottom + else if cbTabPos.FocusItem = 2 then + pcMain.TabPosition := tpLeft + else if cbTabPos.FocusItem = 3 then + pcMain.TabPosition := tpRight else - pcMain.TabPosition := tpBottom; + pcMain.TabPosition := tpNone; end; constructor TMainForm.Create(AOwner: TComponent); @@ -85,6 +91,7 @@ begin pcMain.Width := Width - 20; pcMain.Height := 300; pcMain.Anchors := [anLeft, anTop, anRight, anBottom]; +// pcMain.FixedTabWidth:=150; // Tab One tsOne := TfpgTabSheet.Create(pcMain); @@ -124,6 +131,9 @@ begin cbTabPos := CreateComboBox(self, 300, 320, 80, nil); cbTabPos.Items.Add('tpTop'); cbTabPos.Items.Add('tpBottom'); + cbTabPos.Items.Add('tpLeft'); + cbTabPos.Items.Add('tpRight'); + cbTabPos.Items.Add('tpNone'); cbTabPos.FocusItem := 0; cbTabPos.Anchors := [anBottom, anLeft]; cbTabPos.OnChange := @cbTabPosChanged; |