diff options
author | Jean-Marc.Levecque <jmarc.levecque@bbox.fr> | 2015-07-11 09:19:32 +0200 |
---|---|---|
committer | Jean-Marc.Levecque <jmarc.levecque@bbox.fr> | 2015-07-11 09:19:32 +0200 |
commit | 45b8d2fc9c0ce79ccec1fc610b3c3467f5cccee1 (patch) | |
tree | 6e6166b6615418f5356d6704cff7bc087c2a8f14 /examples/gui/tabtest | |
parent | 54ecf26800ee3a818d77dc1bb4173b771ae83c2b (diff) | |
download | fpGUI-45b8d2fc9c0ce79ccec1fc610b3c3467f5cccee1.tar.xz |
Allow tabtext color setting
Signed-off-by: Jean-Marc.Levecque <jmarc.levecque@bbox.fr>
Diffstat (limited to 'examples/gui/tabtest')
-rw-r--r-- | examples/gui/tabtest/tabtest.lpr | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/examples/gui/tabtest/tabtest.lpr b/examples/gui/tabtest/tabtest.lpr index 52f7ec17..bea86f8c 100644 --- a/examples/gui/tabtest/tabtest.lpr +++ b/examples/gui/tabtest/tabtest.lpr @@ -107,6 +107,7 @@ begin pcMain.Height := 300; pcMain.Anchors := [anLeft, anTop, anRight, anBottom]; pcMain.ActiveTabColor:= clOrangeRed; + pcMain.ActiveTabTextColor:= clYellow; // pcMain.FixedTabWidth:=150; // Tab One @@ -127,6 +128,7 @@ begin tsThree.Text := 'Tab Three'; tsThree.BackgroundColor:= clWheat; tsThree.TabColor:= clLightBlue; + tsThree.TabTextColor:= clWhite; CreateLabel(tsThree, 80, 50, 'TabSheet Three'); // Tab Four |