From 6db1ff414c5c6d6cd29f57150311295d407dfb99 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Wed, 24 Mar 2010 00:10:46 +0200 Subject: TabTest: minor modifications to support all tab positions. --- examples/gui/tabtest/tabtest.lpr | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'examples/gui') 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]; -- cgit v1.2.3-70-g09d2