From bfad32122a462c6f8dbb154c5cdf239c86f55645 Mon Sep 17 00:00:00 2001 From: "Jean-Marc.Levecque" Date: Mon, 6 Jul 2015 21:54:55 +0200 Subject: Allow tabs color setting Signed-off-by: Jean-Marc.Levecque --- examples/gui/tabtest/tabtest.lpr | 3 +++ 1 file changed, 3 insertions(+) (limited to 'examples/gui/tabtest') 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 -- cgit v1.2.3-70-g09d2