AlphaControl Skin Kullanımı Yardım !

[KuTi]

Arkadaşlar ben alphacontrol componentını kullanıyyorum. Benm yapmak istedigim sey program kulanılan temanın program çalıştırıldıktan sonra kullanıcı tanımlı olmasını saglamak bunun için en yapabilirim ? yardımlarınızı bekliyorum

[conari]

Bir ara bende bakmıştım o companente.
Kullanılan Skini Registrya veya İni file a yazıp create edilince oku. Kapatırken veya skin değiştirildiğinde de yaz.

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
var i :integer;
begin
  for i := 1 to sSkinManager1.InternalSkins.Count-1 do
    begin
   sComboBox1.Items.Add(sSkinManager1.InternalSkins.Items[i].name); //comboya skin isimlerini yükle
   end;
end;
procedure TForm1.sComboBox1Change(Sender: TObject);
begin
   sSkinManager1.SkinName:=sComboBox1.Text;  //tüm componentlerin skini bu olsun
end;