Splitter will not display it's set color if on a TPageControl

[RedOctober]

I have attached a small sample project.  If some one could tell me what I'm doing wrong.  I need to know how to get my splitter to show the color I set, even when it's on a TTabSheet of a TPageControl.

At the moment, it shows color if it's on the TForm, but not if it's on a TTabSheet.  Let me know if this is a bug and if so, I'll type up a bug report.

[Handoko]

I tested the code on Lazarus 1.8.0 Gtk2 Linux. I didn't see any color, all I got is grey. For you information, my clActiveCaption is green.

[RedOctober]

I keep forgetting to include my platform:

I'm on Lazarus 1.8.2, FPC 3.0.4, running on Windows Server 2016 Essentials.

[lainz]

You can try to create a child class and override the paint method

Or check parent color property

[RedOctober]

I've made a bug report.

[lainz]

I've made a bug report.

Good luck with that  Usually it takes forever.

In the meantime I made a fix, that you can use.

Note: Do it propperly please, change Splitter2 with TSplitter(Sender).Whatever...