[Util_Delphi]

Hello. My message is translated by Google. Thank you kindly answer me in very simple English: I'm not English.

Parameters of SkinManager :

This code does not work.

If there is not at least one internal skin, applied since the beginning of the program, SkinManager does not. Why?

Code:

procedure TForm1.Btn_ActiverClick(Sender: TObject);
begin

Form1.sSkinManager1.Active := True;
Form1.sSkinManager1.SkinDirectory := 'C:TOUS LES THEMES'; // Directory of all the skins
Form1.sSkinManager1.SkinName := 'Acryl';
Form1.sSkinManager1.RepaintForms(True); // does not matter. Skin not applicated

Form1.Btn_Quitter.SetFocus;
end;

thank you :hello:

[Kujo]

Hello,

1. Load your internal skins using the “InternalSkin” property.

2. Select a skin using the “SkinName” property.

3. Save the project

Now the skin you have selected is used as default and it is always loaded when you start the program (this is true also if you use an external skin).

P.S. Please remember that the name of an internal skin is the name of the skin plus ” (internal)”, example:

External skin name: “Acryl”

Internal skin name: “Acryl (internal)”

Bye

[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 😉

[Kujo]

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]

'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]

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

[Support]

Hello!

This line is not needed:

Code:

Form1.sSkinManager1.RepaintForms(True);

[Author]

Posts