Howdy, Stranger!

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

In this Discussion

Share Me

  • Please share this topic with your friends. Click any of the icons below:
  • Twitter
  • facebook
  • reddit
  • email

Set color of TLMDockPanel header

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.

image

Regards, Ravil.

Comments

  • 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:


    Eugene,
    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);
    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.
Sign In or Register to comment.