AlphaSkin и BrowseDlg

[beegl]

Всем здраствуйте! Подскажите, что не так здесь. Мне необходимо, чтоб скины работали не зависимо от "прошивки" их в свойстве директории , а чтоб я мог их выбирать по другом пути, используя компонент BrowseDlg (компонент от LMD). У меня всё почти получилось, я сохранял новую выбраную директорию в ini файл, но скины не работали всёравно.
выбирал папку со скинами так:

if BrowseDlg.Execute then
SkinManager.SkinDirectory := BrowseDlg.SelectedFolder;

[Kotofff]

Что такое tAtomikButton ? ... короче из-за него проект полностью посмотреть не получилось ...
могу сказать:
1) при смене каталога со скинами записывай его в инишку сразу, потому что при следующем запуске твой SkinManager не получит правильного пути к папке со скинами и его свойство Active станет false, т.е. они перестанет быть активным (отключится)
2) при запуске проги в FormCreate записывай в SkinManager.SkinDirectory этот самый путь к папке со скинами который предварительно достань из инишки и после этого проверь свойство Active в SkinManager`е если оно false - включи его (true)...

Вроде должно работать ...

[beegl]

перезалил, поставил стандартную кнопку. Вот сам код: не работает!(.
Точнее работает, только в том случае, если в свойствах SkinManager.SkinDirectory выбрал папку со скинами и выбрал имя скина (например SkinManager.SkinName 'BlueGauze'), а если изначально ничего не указав, SkinManager не обращает внимания на ини файл с прописано директорией (BrowseDlg.SelectedFolder). Kotofff, спасибо, но вопрос всеравно актуален

procedure TSelectSkin.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text ='BlueGauze' then
SkinManager.SkinName := 'BlueGauze';
if ComboBox1.Text ='BlueGlass' then
SkinManager.SkinName := 'BlueGlass';
if ComboBox1.Text ='BlueIce' then
SkinManager.SkinName := 'BlueIce';
end;

procedure TSelectSkin.FormCreate(Sender: TObject);
var F: TIniFile;
begin
  F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Parameter.ini');
  ComboBox1.Text := F.ReadString('SkinName Text', 'Select SkinName Tex:', ComboBox1.Text);
  SkinManager.SkinName := F.ReadString('SkinName', 'Select SkinName:', SkinManager.SkinName);
  SkinManager.SkinDirectory := F.ReadString('SkinDirectory','SkinDirectory Select:',SkinManager.GetFullSkinDirectory);
  BrowseDlg.SelectedFolder := F.ReadString('Selected Browse Skin', 'Select:', BrowseDlg.SelectedFolder);
  F.Destroy;
  end;

procedure TSelectSkin.FormDestroy(Sender: TObject);
var
  F: TIniFile;
begin
  F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Parameter.ini');
  F.WriteString('SkinName Text', 'Select SkinName Tex:',ComboBox1.Text);
  F.WriteString('SkinName', 'Select SkinName:', SkinManager.SkinName);
  F.WriteString('SkinDirectory','SkinDirectory Select:',SkinManager.GetFullSkinDirectory);
  F.WriteString('Selected Browse Skin', 'Select:', BrowseDlg.SelectedFolder);
  F.Free;
  end;

procedure TSelectSkin.Button1Click(Sender: TObject);
begin
if BrowseDlg.Execute then
SkinManager.SkinDirectory := BrowseDlg.SelectedFolder;
SkinManager.Active := true;
end;
end.

[Kotofff]

Ты пропустил ,а я не подсказал - на форму нужно положить еще и SkinProvider ....
Посмотри вложение ...

[beegl]

теперь нормально

[youxiuren]

The devil visited a lawyers office and made him an offer. I can arrange some things for you, the devil said. Ill increase your income five-fold. Your partners will love you; your clients will respect you; youll have four months of vacation each year and live to be a hundred. All I require in return is that your wifes soul, your childrens souls, and their childrens souls rot in hell for eternity.The lawyer thought for a moment. Whats the catch? he asked. Advice when most needed is least heeded.More Games,joke,SRO gold and famous. Click http://www.ygscn.net You will get more.

[DeKot]

Спам в виде "Предложение Дьяволов"(The Devils Offer).

[Altera]

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

Что такое tAtomikButton ?

Это моя кнопка.

[beegl]

Замечательная кнопка