[audiofeel]

как сделать рабочей собственную форму отмены на странице распаковки исдон ? все перепробЫвал, или только на распаковке работает или везде кроме распаковки, или сперва появляется моя форма а затем системная или сперва системная а затем моя, или два раза моя
как их объединить что бы оно заработало
-------------------------------------------
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm := False;
if ShowCancelBox = mrNo then
Cancel := False;
end;
--------------------------------------------
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
if CurPageID = wpInstalling then
begin
SuspendProc;
Confirm := False;
Cancel := False;
if ExitSetupMsgBox then ISDoneCancel:=1;
ResumeProc;
end;
end;

[saurn]

audiofeel, ShowCancelBox - это форма?

читать дальше »

Код:

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
    case CurPageID of
        WpInstalling:
        begin
            SuspendProc;

            Confirm := False;
            Cancel := Confirm;

            if ( mrYes = ShowCancelBox ) then 
              ISDoneCancel := 1;

           ResumeProc;
        end;
    end; 
end;

[audiofeel]

saurn,

ShowCancelBox - это форма? »

--------------------------------------
function ShowCancelBox:Integer;
begin
Result:=CancelForm.ShowModal;
end;
--------------------------------------
нет не работает, на всех страницах системная, кроме распаковки исдон, там кастомня форма
=====================
вот так получилось сделать, теперь на всех страницах кастомная форма отмены , но на странице распаковки исдон, страницу нужно вызывать два раза, только после этого идет отмена,
в чем причина ??
-------------------------------------

читать дальше »

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False;
Cancel:=False;
if CancelForm.ShowModal = mrYes then
Cancel:=True;
if CurPageID = wpInstalling then
begin
SuspendProc;
Confirm := False;
Cancel := False;
if CancelForm.ShowModal = mrYes then ISDoneCancel:=1;
ResumeProc;
end;
end;

[audiofeel]

saurn,
так форма отмены не вызывается вообще

----------------------------------------------
я вообще не пойму уже где что изменить, вот с этим "вариантом" выходит так

читать дальше »

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False;
if CancelForm.ShowModal = mrYes then Cancel:=True
else
Cancel:=False;
if CurPageID = wpInstalling then begin
SuspendProc;
Confirm := False;
Cancel := False;
if CancelForm.ShowModal = mrYes then ISDoneCancel:=1;
ResumeProc;
end;
end;

нажимать на кнопку "да" на странице распаковки архивов нужно два раза

читать дальше »

[saurn]

так форма отмены не вызывается вообще »

Да и не должна. То был просто пример действия, если форма уже есть.

нажимать на кнопку "да" на странице распаковки архивов нужно два раза »

Да потому что вы вызываете форму дважды. Первый раз глобально, для всех страниц и второй раз конкретно для страницы установки.

я вообще не пойму уже где что изменить »

Код:

procedure CancelButtonClick( CurPageID: Integer; var Cancel, Confirm: Boolean );
begin
    Confirm := False;
    Cancel := ( mrYes = CancelForm.ShowModal );

    if ( CurPageID = wpInstalling )then
      begin
          SuspendProc;
          if Cancel then
            ISDoneCancel := 1;
          ResumeProc;
      end;
end;

[audiofeel]

теперь форма после отмены закрывается и все , исчезает, без wpFinished без лейбла об ошибке
ну ладно, все равно лучше чем было

[saurn]

теперь форма после отмены закрывается и все , исчезает, без wpFinished без лейбла об ошибке ну ладно, все равно лучше чем было »

А, ну да. Тогда так:

Код:

procedure CancelButtonClick( CurPageID: Integer; var Cancel, Confirm: Boolean );
begin
    Confirm := False;
    Cancel := False;

    if ( CurPageID <> wpInstalling )then
      Cancel := ( mrYes = CancelForm.ShowModal );

    if ( CurPageID = wpInstalling )then
      begin
          SuspendProc;
          if ( mrYes = CancelForm.ShowModal ) then
            ISDoneCancel := 1;
          ResumeProc;
      end;
end;

[ROMKA-1977]

Подскажите пожалуйста:
На странице доп. задач установил кнопку "Выбрать всё" при клике на которую отмечаются все чекбоксы и она обновляется на кнопку "Очистить всё".
Проблема в том что если все чекбоксы отметить или снять в ручную то обновления кнопки не происходит.

читать дальше »

[Setup]
SourceDir=.
OutputDir=Setup
AppName=Test
AppVerName=Test
DefaultDirName={pf}\Test
DefaultGroupName=Test
OutputBaseFilename=Setup
AllowNoIcons=true
ShowTasksTreeLines=true

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs;

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}

Name: Soft; Description: Установить дополнительное программное обеспечение; GroupDescription: Дополнительное программное обеспечение:; Flags: unchecked
Name: Soft/DirectX; Description: Microsoft DirectX; Flags: unchecked
Name: Soft/vcredist_x86; Description: Microsoft Visual С++ 2005 Redistributable; Flags: unchecked
Name: Soft/vcredist_x64; Description: Microsoft Visual С++ 2005 Redistributable x64; Flags: unchecked; Check: IsWin64

[code]
var
SelectAll: TNewButton;

procedure ButtonOnClick(Sender: TObject);
var
i: integer;
begin
if (SelectAll.Tag = 0) then
begin
for i:= 0 to WizardForm.TasksList.Items.Count - 1 do
begin
WizardForm.TasksList.Checked[i]:= True;
end;
SelectAll.Caption := 'Очистить всё';
SelectAll.Tag:= 1;
end else
if (SelectAll.Tag = 1) then
begin
for i:= 0 to WizardForm.TasksList.Items.Count - 1 do
begin
WizardForm.TasksList.Checked[i]:= False;
end;
SelectAll.Caption := 'Выбрать всё';
SelectAll.Tag:= 0;
end;
end;

procedure InitializeWizard();
begin
SelectAll := TNewButton.Create(WizardForm);
with SelectAll do
begin
Parent := WizardForm.SelectTasksPage;
Left := ScaleX(0);
Top := ScaleY(204);
Width := ScaleX(75);
Height := ScaleY(25);
OnClick := @ButtonOnClick;
Caption := 'Выбрать всё';
end;
SelectAll.TabOrder := 2;
end;

[ignietferro@vk]

подскажите, к кому можно обратиться за помощью с inno setup ?
вопрос специфичный и удобней было бы лично обсудить

[Nordek]

ignietferro@vk, Для особых случаев, ссылка в сообщении.