- This topic has 6 replies, 3 voices, and was last updated 9 years, 7 months ago by
.
-
Posts
-
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);
beginForm1.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 applicatedForm1.Btn_Quitter.SetFocus;
end;thank you :hello:
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
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 😉
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 thisForm1.Btn_Quitter.SetFocus;
end;
And don't forget to add the sSkinProvider component!
'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 thisForm1.Btn_Quitter.SetFocus;
end;
And don't forget to add the sSkinProvider component!
- You must be logged in to reply to this topic.