[Util_Delphi]

Thank you! It works! It had to sSkinProvider component that I had forgotten.

[Util_Delphi]

'Kujo' wrote:

Hello,

Code:

procedure TForm1.Btn_ActiverClick(Sender: TObject);
begin

//Form1.sSkinManager1.Active := True; // before you have to select a skin
Form1.sSkinManager1.SkinDirectory := 'C:TOUS LES THEMES';
Form1.sSkinManager1.SkinName := 'Acryl';
Form1.sSkinManager1.Active := True;
Form1.sSkinManager1.RepaintForms(True); // in XE2 it works also without this

Form1.Btn_Quitter.SetFocus;

end;

And don't forget to add the sSkinProvider component!

[Util_Delphi]

Bonjour.

So I put an inner skin as I usually do.

procedure TForm1.Btn_ActiverClick(Sender: TObject);

begin

Form1.sSkinManager1.Active := True;

Form1.sSkinManager1.SkinDirectory := 'C:TOUS LES THEMES';

Form1.sSkinManager1.SkinName := 'Acryl (internal)'; // does not work : Even with (external) it does not work

Form1.sSkinManager1.RepaintForms(True);

Form1.Btn_Quitter.SetFocus;

end;

It is necessary that the skin is active from the start? No other solution? I think I misunderstood…

Merci 😉

[Util_Delphi]

'Kujo' wrote:

Hello,

in order to activate a skin, you have to use the SkinName property:

Code:

sSkinManager1.SkinName := 'Android OS (internal)';

ThirdParty is used to skin, using the current skin, a component that is not included in the AC package; you can select these components using the list (as in your image) or add the components by the code, like this:

Code:

sSkinManager1.ThirdLists[Ord(tpVirtualTree)].Append('TVirtualStringTree');

OK! Thank you very much. I'll test it.

I hope to understand the syntax. [Ord (tpVirtualTree)] Append ('TVirtualStringTree.');

I'll let you know;)

[Util_Delphi]

Up ? :hello:

[Author]

Posts