diff options
| author | Jean-Marc.Levecque <jmarc.levecque@bbox.fr> | 2015-07-06 21:54:55 +0200 |
|---|---|---|
| committer | Jean-Marc.Levecque <jmarc.levecque@bbox.fr> | 2015-07-06 21:54:55 +0200 |
| commit | bfad32122a462c6f8dbb154c5cdf239c86f55645 (patch) | |
| tree | 0c7099a577b92f90bdd5ce29426c917921aa7e75 /examples/gui/tabtest | |
| parent | d7074ce47f35fd379c7e4dd7894992dbe258b124 (diff) | |
| download | fpGUI-bfad32122a462c6f8dbb154c5cdf239c86f55645.tar.xz | |
Allow tabs 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 | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/examples/gui/tabtest/tabtest.lpr b/examples/gui/tabtest/tabtest.lpr index 3675e29a..75d23dfe 100644 --- a/examples/gui/tabtest/tabtest.lpr +++ b/examples/gui/tabtest/tabtest.lpr @@ -106,6 +106,7 @@ begin pcMain.Width := Width - 20; pcMain.Height := 300; pcMain.Anchors := [anLeft, anTop, anRight, anBottom]; + pcMain.ActiveTabColor:= clOrangeRed; // pcMain.FixedTabWidth:=150; // Tab One @@ -124,6 +125,8 @@ begin // Tab Three tsThree := TfpgTabSheet.Create(pcMain); tsThree.Text := 'Tab Three'; + tsThree.BackgroundColor:= clWheat; + tsThree.TabColor:= clLightBlue; CreateLabel(tsThree, 80, 50, 'TabSheet Three'); // Tab Four |