[Shkutu]

Johny777, спасиб, буду знать.
А вот такая проблемка. Есть код (дополняю деинсталлятор)

Код:

procedure UninstallCancelButtonOnClick(Sender: TObject);
begin
    UninstallProgressForm.CancelButton.ModalResult := mrAbort;
end;

procedure InitializeUninstallProgressForm();
begin
...
CancelButton.OnClick := @UninstallCancelButtonOnClick;
...
if ShowModal = mrAbort then Abort;
end;

Но Abort почему-то срабатывает, только если на кнопку "отмена" нажать дважды. Подскажите, плиз, можно ли с этим что-то сделать?

[habib2302]

помогите мне объеденить страницу select dir page с select program group page и сделать такое оформление под стандартное окно инсталлятора
выложил скрипт с таким же оформление если что
и как сделать чтобы список компонентов можно было скрыть и раскрыть

[Nordek]

объеденить страницу select dir page с select program group page »

Пример

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
AllowNoIcons=true
DisableProgramGroupPage=true

[Icons]
Name: {group}\My Program; Filename: {app}

[Code]
procedure InitializeWizard();
begin
      WizardForm.DiskSpaceLabel.Top := ScaleY(65);
      WizardForm.DirBrowseButton.Top := ScaleY(36);
      WizardForm.DirEdit.Top := ScaleY(37);
      WizardForm.NoIconsCheck.Parent := WizardForm.SelectDirPage;
      WizardForm.SelectDirLabel.Top := ScaleX(09)
      WizardForm.SelectDirBitmapImage.Top := ScaleY(0)
      WizardForm.SelectDirBrowseLabel.Visible := False
      WizardForm.SelectGroupBitmapImage.Top := ScaleY(95);
      WizardForm.SelectGroupBitmapImage.Parent := WizardForm.SelectDirPage;
      WizardForm.GroupBrowseButton.Parent := WizardForm.SelectDirPage;
      WizardForm.GroupBrowseButton.Top := ScaleY(133);
      WizardForm.GroupEdit.Parent := WizardForm.SelectDirPage;
      WizardForm.GroupEdit.Top := ScaleY(134);
      WizardForm.SelectStartMenuFolderBrowseLabel.Parent := WizardForm.SelectDirPage;
      WizardForm.SelectStartMenuFolderBrowseLabel.Top := ScaleY(170);
      WizardForm.SelectStartMenuFolderLabel.Parent := WizardForm.SelectDirPage;
      WizardForm.SelectStartMenuFolderLabel.Top := ScaleY(105);
end;

как сделать чтобы список компонентов можно было скрыть и раскрыть »

Вариант 1

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
ComponentsListTVStyle=true

[Components]
Name: a; Description: Компоненнт A; Flags: collapsed
Name: a/b; Description: Компоненнт AB

Вариант 2

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.


[Components]
Name: a; Description: Компоненнт A; Flags: collapsed
Name: a/b; Description: Компоненнт AB

[Code]
procedure InitializeWizard();
begin
  WizardForm.ComponentsList.TreeViewStyle := True;
end;

[habib2302]

Nordek, первый способ почему то не работает

[Nordek]

первый способ почему то не работает »

Про компоненты? У меня всё работает.
В скрипт вставил? ComponentsListTVStyle=true добавить не забыл, Flags: collapsed учёл?

[habib2302]

и как сделать чтобы компоненты были раскрыты

[Nordek]

и как сделать чтобы компоненты были раскрыты »

Убери Flags: collapsed.

[Mat_y]

Nordek, читаю тему. Просто - спасибо.

Может подскажите мне тоже? Такая проблема...
-Использую модули ISDone и PrigressBar (Добавил в аттаче, хотя они стандартные).
-На странице самого процесса установки прогрессбар все время пустой и не заполняется, хотя установка идет нормально. Короче, не отображается прогресс установки.

Может ли это быть, т.к. у меня совсем нет компонентов? Т.е. просто распаковываются файлы в выбранную дирректорию.
Может ли это быть из-за того, что я не использую для каждого файла свой путь, а копирую сразу целую папку... вот так?

Код:

Source: {mods}\*; DestDir: {app}\; Flags: ignoreversion recursesubdirs createallsubdirs

Как можно заставить работать прогрессбар? Могу даже от картинок отказаться (правда форма инсталлера у меня произвольная - с маской).

[Mat_y]

И еще вопрос... как можно записать следующее...

Код:

begin
if выбран русский язык then begin
////
///
end else begin
///
///
end;
end;

[nik1967]

Mat_y, посмотри здесь - лень переписывать.
По поводу прогресс бара - нужно смотреть весь скрипт, модулей не достаточно.