Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

In this Discussion

Set color of TLMDockPanel header


I need to adapt visual style of TLMDDockPanel to custom skin engine.
How to set up a custom color of TLMDockPanel header? 1 - main color of skin.


Regards, Ravil.


  • 3 Comments sorted by Votes Date Added
  • Hi,

    You should create custom style based on one of built-in styles. Please check DockingPack documentation to learn how to work with styles:

    LMD Innovative.
  • Hi.

    I need to change it in run-time. It's possible?

    When I use VCL styles (Delphi XE8) the color of header changed according to the VCL style. I need the same way.

    Regards, Ravil.

  • Hi,

    Yes, this is possible. Try the following code with Docking Demo when VCL Style is active:

    procedure MyGetAccent(var C: TColor);
      C := clRed;

    procedure TfrmMain.Button1Click(Sender: TObject);
      OnGetAccent := MyGetAccent;

    Use "Accent" word in XML style in every case you need your dynamic-runtime color, for example:

    <ActiveSelectedTab LayerType="Color" Color="Accent"/>

    Look in VCLStyle.xml for more examples. And also, the same way you can manage AccentText special color. Note also that you can use Blend, Highlight and  Shadow built-in functions to specify colors based on your Accent cololr, but still different from it in some or another way.

Sign In or Register to comment.