[OldGrumpy]

Hi there,

is there a way to set a custom folor for the font of a third party control which is a TCustomTreeView descendant? Setting MyTree.Font.Color does not work, and because it is a third party control, there is no MyTree.Skindata property available. Any idea how to solve this? Thanks in advance!

[Support]

Customization of color is possible in components from the AlphaControls package only.

I'm thinking about a solution for other controls, but I haven't good ideas at moment.

[OldGrumpy]

I solved it for this particular case by just editing the skin file and changing the color values for the EDIT section. It is only a small application so it is not a problem. 🙂 A really awesome solution would be: making the skin data writable at runtime so the application can change its appearance any time 🙂 (No, not loading another skin, just manipulating some bits of it)

[Support]

Hello

It's possible to change an any section in the current loaded skin in run-time :

Code:

procedure TForm1.sButton1Click(Sender: TObject);
const
SectionName = 'EDIT';
var
SkinIndex : integer;
begin
SkinIndex := sSkinManager1.GetSkinIndex(SectionName);
if SkinIndex >= 0 then sSkinManager1.gd[SkinIndex].Color := clYellow;
if SkinIndex >= 0 then sSkinManager1.gd[SkinIndex].HotColor := clYellow;
sSkinManager1.RepaintForms(False);
end;

'OldGrumpy' wrote:

I solved it for this particular case by just editing the skin file and changing the color values for the EDIT section. It is only a small application so it is not a problem. 🙂 A really awesome solution would be: making the skin data writable at runtime so the application can change its appearance any time 🙂 (No, not loading another skin, just manipulating some bits of it)

[Saeidd2016]

Hello support. The above posts are very old. In new version of AlphaControls is there a way to set a custom font color of a third party control?

[Support]

Hello!
The ChangeControlColors procedure is declared in the sVCLUtils unit:

procedure ChangeControlColors(AControl: TControl; AFontColor, AColor: TColor);

If color value is clNone then default color will be used there.
I hope it helps.

[Saeidd2016]

Support wrote:

Hello!
The ChangeControlColors procedure is declared in the sVCLUtils unit:

procedure ChangeControlColors(AControl: TControl; AFontColor, AColor: TColor);

If color value is clNone then default color will be used there.
I hope it helps.

Thanks, For VirtualTreeView it doesn’t work.

[Saeidd2016]

Saeidd2016 wrote:

Thanks, For VirtualTreeView it doesn’t work.

Excuse me it works correctly.

[Author]

Posts