Прошу протестировать

[Shift85]

Интересуют возможные ошибки, если есть, просьба отписать, если нет - попрошу отписать "все норм"

 

[ReFLeXx]

W7 x64, всё норм. Неплохо смотрится, молодец

 

[sergey3695]

Shift85, ну поехали
1. (Безымянный0.jpg) - отобразился объем раздела E - 4 gb (два нуля сбежали), прям испугался, вообще не понял как так (с C и D то норм), но ошибка (47%(какой-то пробел там что-ли)) (Fixed)
2. (Безымянный.jpg) (белая полоса это я обрезал криво) - разъехались элементы (остальное все как надо расположено) (вверху заголовок (где проценты) пробел не помешает) (Fixed)
3. Во время отката удаляет ярлык с рабочего стола, там нет проверки что именно к этой папке ярлык и удаляется как объект с раб стола. (если используешь не unicode забей. в факе есть) (мой бред)
4. Курсор руки на кнопки. (Fixed)
5. Мог бы и прогресс в панели задач отобразить с помощью wintb.dll.
6. (asus n550jk win 8.1 x64)

 

[Shift85]

5. Мог бы и прогресс в панели задач отобразить с помощью wintb.dll.

Сделаем.

разъехались элементы

Вот насчет этого не пойму в чем дело.

4. Курсор руки на кнопки.

Сделаем.

 

[sergey3695]

Вот насчет этого не пойму в чем дело.

ScaleY и ScaleX для прогрессбара и картинки меняющейся не указаны. Пункт 1. меня больше всего интересует. Как? Как так? (Fixed )

 

[ShuLLeR]

win7 x64 - все отлично. Ничего не разъехалось, все показало верно.

 

[Carlos]

Win 8.1 x64 - Всё норм.

 

[Shift85]

Перезалил исправлены ошибки спасибо sergey3695, тестируем.

 

[sergey3695]

Shift85, Alt+F4 надо обработать на странице установки.
Вырубить или OnCloseQuery.

Спойлер

[Setup]
AppName=MyApp
AppVername=MyApp
DefaultDirName={pf}\MyApp

[code]
const
  GCL_STYLE = -26;
  CS_NOCLOSE = $200;

var
Main1: TForm;

function GetClassLong(Wnd: HWnd; Index: Integer): Longint; external 'GetClassLongA@user32.dll stdcall';
function SetClassLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetClassLongA@user32.dll stdcall';

procedure InitializeWizard;
begin
  Main1:= TForm.Create(nil);
  Main1.SetBounds(WizardForm.left-181,WizardForm.top-8, 500, 370);
  Main1.Show;
SetClassLong(Main1.Handle, GCL_STYLE, GetClassLong(Main1.Handle, GCL_STYLE) or CS_NOCLOSE);
end;

Win XP x86 (Virtual Box) все норм.

 

[Shift85]

Shift85, Alt+F4 надо обработать на странице установки.

sergey3695, Ок

 

[Shift85]

Перезалил отключено закрытие при нажатии на Alt+F4 на странице установки спасибо sergey3695, тестируем.

 

[Silentman]

Возможно так задумано, но чекбоксы "не создавать папку в меню пуск" и "установить доп. ПО" срабатывают "далеко за их пределами" (обвёл красным в этих местах), не критично конечно, просто "замечание".

 

[Shift85]

не критично конечно, просто "замечание"

Silentman, На Win XP проверяли.

 

[Silentman]

Нет, проверял на win 7 x64.

 

[Shift85]

Возможно так задумано, но чекбоксы "не создавать папку в меню пуск" и "установить доп. ПО" срабатывают "далеко за их пределами" (обвёл красным в этих местах)

Silentman, Спасибо не заметил исправим.

 

[Shift85]

Перезалил исправлен баг с чекбоксами спасибо Silentman, тестируем.

 

[Shift85]

Перезалил исправлено положение кнопки отмены при удалении, добавлено сообщения об ошибке что не найдены файлы для доп софта и добавлен winTB спасибо sergey3695, тестируем описываем найденные баги.