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

Kent

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

Kent

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

Вложения

Nemko

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

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

Kent

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

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

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

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

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

Nemko

Дилетант
Модератор
У меня все хорошо работает, даже при любых манипуляциях с перетаскиванием окна.
 
  • Like
Реакции: 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;
 
Сверху