Добавление Alpha скинов в программу

[Genco]

Можно напихать несколько скинов в SkinManager, в качестве InternalSkins, а потом программно давать возможность выбрать, переназначая в том же манагере SkinName. Только это экзотика получается,зачем так)

[ArtGrek]

думаю пояснения не к чему

procedure TForm1.FormCreate(Sender: TObject);
var
  SR:TSearchRec;
  FindRes:Integer;
begin
  SkinNames := TStringList.Create;
  if FindFirst(sSkinManager1.SkinDirectory + '\*.asz', faAnyFile, SR) = 0 then
  begin
    repeat
      SkinNames.Add(SR.Name);
      FindRes:=FindNext(SR);
    until FindNext(sr) <> 0;
    FindClose(SR);
  end;
  Memo1.Lines := SkinNames;
end;

совсем забыл

var
  Form1: TForm1;
  SkinNames: TStringList;

implementation

[XerSon]

misher

Лови, не чего там сложного, сам так учился!

[Obey-Kun]

Сообщение от misher

Оконная, например заставка рабочего стола в темных тонах, а у меня белая тема программы, естественно это будет раздражать пользователя, а для меня проблем нету я в исходник залезу и скин поменяю, если сделать эту опцию пользователь сможет сменить на другую более подходящую тему.
Я не смог это сделать, помогите поподробнее.

Тема программы должна быть такой же, как и во всей остальной системе.
Вот, например:


Если программа выбивается из общей темы (например, тем, что в неё поставили нестандартный скин), но это фигня.

[xxbesoxx]

XerSon spasibo xoroshi primer