diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-03-24 00:10:46 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-03-24 00:10:46 +0200 |
| commit | 6db1ff414c5c6d6cd29f57150311295d407dfb99 (patch) | |
| tree | db4c283c1ebc96c1e409c071a4a9241bb6735587 | |
| parent | fa7e2dcee2e2a5d51a91e039d217852eecdc8da9 (diff) | |
| download | fpGUI-6db1ff414c5c6d6cd29f57150311295d407dfb99.tar.xz | |
TabTest: minor modifications to support all tab positions.
| -rw-r--r-- | examples/gui/tabtest/tabtest.lpr | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/examples/gui/tabtest/tabtest.lpr b/examples/gui/tabtest/tabtest.lpr index 89cb485f..016d5af5 100644 --- a/examples/gui/tabtest/tabtest.lpr +++ b/examples/gui/tabtest/tabtest.lpr @@ -66,6 +66,10 @@ begin 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 := tpNone; end; @@ -87,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); @@ -126,6 +131,8 @@ 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]; |