Set color of TLMDockPanel header

Ravil

Hi.

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.

Eugene Balabuev (LMD)

Hi,

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

http://wiki.lmd.de/index.php/LMD_VCL_-_Tutorials#LMD_DockingPack

Eugene,

LMD Innovative.

Ravil

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.

Eugene Balabuev (LMD)

Hi,

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

procedure MyGetAccent(var C: TColor);

begin

  C := clRed;

end;

procedure TfrmMain.Button1Click(Sender: TObject);

begin

  OnGetAccent := MyGetAccent;

  DockStyles.Changed;

end;

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.

Eugene.