Witam
Pobrałem sobie ten komponent ze strony http://www.alphaskins.com/. Niestety w żaden sposób nie mogę sobie poradzić z oprogramowaniem go :/
Wie ktoś może jaki kod trzeba wstawić by można było zmieniać skórki, lub ma jakiś link z opisem tego? Na stronie z komponentem jest jakiś jałowy opis kodu z którego nic nie rozumiem :/
0
0
A pobrałeś skiny ?
0
Wstawiasz na formę komponenty > sSkinManager, sSkinProvider.
W sSkinManager properties:
- HueOffset (Integer): barwa, ja używam wartości od 1 mln do 9 mln, skok co 1 mln; 9 barw, potem się powtarzają.
- Saturation (Integer): nasycenie, używam wartości jw.
- SkinDirectory (String): ścieżka do folderów ze skórkami.
- SkinName (String): nazwy widzianych skórek, internal - aktualnie używana.
Ustalasz SkinDirectory, dwa razy klikasz na komponent i Add New. Przechodzisz do katalogu ze skórką, zatwierdzasz i wszystko powinno być Ok.
0
Grzegorz16 zrobiłem jak kazałeś i nic się nie dzieje :/
Nie powinno być jakiegoś ComboBox'a do wyboru skórki czy jak?
0
Ustalasz SkinDirectory, dwa razy klikasz na komponent i Add New.
No tak, jak zrobiłeś to powyżej, to w SkinName wybierz wczytaną skórkę (obok niej będzie internal)
0
Teraz już działa ^^ Fajna sprawa, tyle że chciałbym dodać jakies menu do zmiany skina z poziomu działającego programu, niestety nie wiem jak wczytać listę skinów do jakiegoś komponentu by później przypisywać rekordy (nazwy skinów) do SkineName :/
EDIT:
Mniejsza z tym już zrobiłem :)
Wielkie dzięki Grzegorz16 za pomoc.
0
Po prostu ładujesz wszystkie lub wybrane skórki (poprzez Add New), a potem z poziomu kodu zmieniasz SkinName.
Example: Mam załadowane dwie skórki: BluePlastic i MacOS.
TForm1 = class(TForm)
SM: TsSkinManager;
SP: TsSkinProvider;
bBluePlastic: TsButton;
bMacOS: TsButton;
//....
procedure TForm1.bBluePlasticClick(Sender: TObject);
begin
SM.SkinName := 'BluePlastic (internal)';
end;
procedure TForm1.bMacOSClick(Sender: TObject);
begin
SM.SkinName := 'MacOS (internal)';
end;
@ Widzę, że już se poradziłeś... Nie odświeżałem tematu ;p