[bocha1964]

'Support' wrote:

Если при запуске sSkinManager не находит скина, то автоматически свойство Active меняется на False.

Попробуйте добавить к коду в конце “sSkinManager.Active := True”

Большое спасибо! Помогло.

[bocha1964]

Не вижу ни одного внятного ответа.

Суть вопроса в том, что я наверняка не знаю, из какой папки на компьютере заказчика будет стоять программа. Пихать скины на диск С: не имею привычки от рождения.

В программе в процедуре FormActivate или FormCreate прописываю следующим образом:

procedure TForm1.FormActivate(Sender: TObject);

var

ap: string;

begin

ap := ExtractFilePath(Application.ExeName);

sSkinManager.SkinDirectory := ap + 'Skins';

sSkinManager.SkinName := 'GrayPlastic';

end;

Таким образом, я не привязываюсь к заранее прописанной директории скинов, я ее выбираю из каталога программы, в котором, по моему замыслу, она должна находиться.

На локальном компе skins отображаются, на другом – нет.

В чем проблема?

[Author]

Posts