Inno Setup Прошу протестить V2

Kent

Kent

Новичок
Здравствуйте, эта тема является продолжением этой темыhttp://krinkels.org/threads/proshu-protestirovat-install.2976/
Спустя полгода решил таки доделать.
Что нового:
• Перерисовал почти все кнопки
• Перерисовал прогресс-бар
• В окне About сделал 3 станицы(Инфо о репаке, инфо о игре, трейлер)
• Стартовую страницу сделал похожей на Autorun
• Перерисовал некоторые элементы интерфейса
+ разные мелкие исправления
Рядом положите любой ФА архив переименованный в Data.arc
Критика приветствуется!
Скачать файлы можно по ссылке: https://cloud.mail.ru/public/jBr8/McYKHmvaK
 
Kent

Kent

Новичок
Но есть и проблемы, отрываются зразу 2 окна, может кто-то подскажет решение?
 

Вложения

Nemko

Nemko

Дилетант
Модератор
Да, два окна... Я понимаю нужно посмотреть в переменных (строка var) там должен быть объект что-то типа Ваша_форма: TForm. Затем вписать в какую нибудь процедуру обработки событий Ваша_форма.Hide. Либо если Вы используете наложение PNG на заднее окно с помощью procedure CreateFormFromImage, то может Вы забыли в параметрах формы указать Main.BorderStyle:=bsNone и сделать привязку к коорденатам WizardForm (хотя нет, тогда бы CreateFormFrom появлялся не в том месте где нужно), или всё что угодно)) ...

1.png​
 
Последнее редактирование:
Kent

Kent

Новичок
SBalykov написал(а):
Значит, аналогичная функция, либо процедура присутствует в секции code ...
Нажмите для раскрытия...
Nemko написал(а):
Да, два окна... Я понимаю нужно посмотреть в переменных (строка var) там должен быть объект что-то типа Ваша_форма: TForm. Затем вписать в какую нибудь процедуру обработки событий Ваша_форма.Hide. Либо если Вы используете наложение PNG на заднее окно с помощью procedure CreateFormFromImage, то может Вы забыли в параметрах формы указать Main.BorderStyle:=bsNone и сделать привязку к коорденатам WizardForm (хотя нет, тогда бы CreateFormFrom появлялся не в том месте где нужно), или всё что угодно)) ...

Нажмите для раскрытия...
Походу решил я проблему, прошу вас протестировать
Скачать файлы можно по ссылке: https://cloud.mail.ru/public/ccZZ/8KsiiWNNj
 
Kent

Kent

Новичок
Проблема была в размерах, ширина была 1020, поменял на 991 и заработало =)
Код: 
procedure CreateWizardForm;
begin
  with WizardForm do begin
  WizardForm.BorderStyle:=bsNone;
[B][I][U]  WizardForm.ClientWidth:=991;[/U][/I][/B]
  WizardForm.ClientHeight:=650;
 
  WizardForm.InnerNotebook.Hide;
  WizardForm.OuterNotebook.Hide;
  WizardForm.Bevel.Hide;
  WizardForm.NextButton.Width:=0;
  WizardForm.CancelButton.Width:=0;
end;
  ExtractTemporaryFile('form.bmp');
  SetRgn(WizardForm.Handle,'form.bmp', 1020, 650);
  Wizard1:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}')+'\frame.png',0,0,1020,650,True,True);
  OldMinimizeAnimation:=GetMinimizeAnimation;
  SetMinimizeAnimation(False);
  ImgApplyChanges(WizardForm.Handle);
end;
 
SBalykov

SBalykov

Старожил
Обычная проблема фрейма ...


А так, вроде, работает нормально ...
 
Последнее редактирование:
SBalykov

SBalykov

Старожил
Kent написал(а):
В смысле запущенный установщик переместить вверх или в iss координаты какие-то поменять?

P.S. У меня всё отображается отлично
Нажмите для раскрытия...
Что не понятного?
Окно установщика, значит запущенный установщик.
Поднять вверх, значит потянуть окно установщика за границу экрана вверх ...
 
Nemko

Nemko

Дилетант
Модератор
У меня все хорошо работает, даже при любых манипуляциях с перетаскиванием окна.
 
  • Like
Реакции: Kent
Kent

Kent

Новичок
Ещё одна проблема=) . При установке в зависимости от выбранных компонентов должна извлечься одна из папок (rustext,rusvoice,engvoice) из архива data2.arc, но извлекаються все сразу(тестовый прогон делал). Может кто-то помочь?
Код: 
 if not ISArcExtract ( 1, 0, ExpandConstant('{src}\data2.arc'), ExpandConstant('{app}\'), 'rustext', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
    if not ISArcExtract ( 3, 0, ExpandConstant('{src}\data2.arc'), ExpandConstant('{app}\nativePC\sound\demo\source\'), 'rus', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
    if not ISArcExtract ( 4, 0, ExpandConstant('{src}\data2.arc'), ExpandConstant('{app}\nativePC\sound\demo\source\'), 'eng', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
 
Войдите или зарегистрируйтесь для ответа.
Сверху