Skip to content

Commit 3437da8

Browse files
committed
installer: change the "Next" label to "Install" just before installing
The last wizard page before the installation starts should give the user an indication that this is what is going to happen. Signed-off-by: Johannes Schindelin <[email protected]>
1 parent 320ef32 commit 3437da8

File tree

1 file changed

+8
-0
lines changed

1 file changed

+8
-0
lines changed

installer/install.iss

+8
Original file line numberDiff line numberDiff line change
@@ -338,6 +338,7 @@ var
338338
ProcessesPage:TWizardPage;
339339
ProcessesListBox:TListBox;
340340
ProcessesRefresh,ContinueButton:TButton;
341+
PageIDBeforeInstall:Integer;
341342
#ifdef DEBUG_WIZARD_PAGE
342343
DebugWizardPage:Integer;
343344
#endif
@@ -1112,6 +1113,8 @@ begin
11121113
// This button is only used by the uninstaller.
11131114
ContinueButton:=NIL;
11141115
1116+
PageIDBeforeInstall:=ExtraOptionsPage.ID;
1117+
11151118
#ifdef DEBUG_WIZARD_PAGE
11161119
DebugWizardPage:={#DEBUG_WIZARD_PAGE}.ID;
11171120
#endif
@@ -1147,9 +1150,14 @@ begin
11471150
// This will be checked later again when the user clicks "Next".
11481151
WizardForm.DirEdit.Text:=ExpandConstant('{userpf}\{#APP_NAME}');
11491152
end;
1153+
end else if CurPageID=PageIDBeforeInstall then begin
1154+
RefreshProcessList(NIL);
1155+
if GetArrayLength(Processes)=0 then
1156+
WizardForm.NextButton.Caption:=SetupMessage(msgButtonInstall);
11501157
end else if (ProcessesPage<>NIL) and (CurPageID=ProcessesPage.ID) then begin
11511158
// Show the "Refresh" button only on the processes page.
11521159
ProcessesRefresh.Show;
1160+
WizardForm.NextButton.Caption:=SetupMessage(msgButtonInstall);
11531161
end else begin
11541162
ProcessesRefresh.Hide;
11551163
end;

0 commit comments

Comments
 (0)