- This topic has 6 replies, 3 voices, and was last updated 9 years, 8 months ago by Support.
-
AuthorPosts
-
February 12, 2015 at 9:07 am #36440Util_DelphiParticipant
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:
February 13, 2015 at 8:34 am #53067KujoParticipantHello,
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
February 14, 2015 at 7:08 am #53068Util_DelphiParticipantBonjour.
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 😉
February 14, 2015 at 10:05 pm #53069KujoParticipantHello,
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!
February 16, 2015 at 12:57 pm #53071Util_DelphiParticipant'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!
February 16, 2015 at 12:57 pm #53072Util_DelphiParticipantThank you! It works! It had to sSkinProvider component that I had forgotten.
February 18, 2015 at 8:58 am #53085SupportKeymasterHello!
This line is not needed:
Code:Form1.sSkinManager1.RepaintForms(True); -
AuthorPosts
- You must be logged in to reply to this topic.