AlphaControls/AlphaSkins

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 :/

A pobrałeś skiny ?

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.

Grzegorz16 zrobiłem jak kazałeś i nic się nie dzieje :/
Nie powinno być jakiegoś ComboBox'a do wyboru skórki czy jak?

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)

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