diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-03-21 14:03:56 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-03-21 14:03:56 +0200 |
| commit | 456a3dc6ebb17f12039eaa73a9116e377aa898bb (patch) | |
| tree | a2b66c013d19239a2ac0681bc2b75f21ab2284e7 /examples | |
| parent | d799599ce2c10a47d63c3a94b91ca120bcab1619 (diff) | |
| download | fpGUI-456a3dc6ebb17f12039eaa73a9116e377aa898bb.tar.xz | |
Tab: implemented TabPosition tpBottom and tpNone
Thanks to Jean-Pierre ANGHEL <jp.anghel@bbox.fr> for help with implementing
this.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/gui/tabtest/tabtest.lpr | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/examples/gui/tabtest/tabtest.lpr b/examples/gui/tabtest/tabtest.lpr index 46d1a108..89cb485f 100644 --- a/examples/gui/tabtest/tabtest.lpr +++ b/examples/gui/tabtest/tabtest.lpr @@ -64,8 +64,10 @@ procedure TMainForm.cbTabPosChanged(Sender: TObject); begin if cbTabPos.FocusItem = 0 then pcMain.TabPosition := tpTop + else if cbTabPos.FocusItem = 1 then + pcMain.TabPosition := tpBottom else - pcMain.TabPosition := tpBottom; + pcMain.TabPosition := tpNone; end; constructor TMainForm.Create(AOwner: TComponent); @@ -124,6 +126,7 @@ begin cbTabPos := CreateComboBox(self, 300, 320, 80, nil); cbTabPos.Items.Add('tpTop'); cbTabPos.Items.Add('tpBottom'); + cbTabPos.Items.Add('tpNone'); cbTabPos.FocusItem := 0; cbTabPos.Anchors := [anBottom, anLeft]; cbTabPos.OnChange := @cbTabPosChanged; |