From 907705ee1f68e858f1db04b92a176c9954a0b91f Mon Sep 17 00:00:00 2001 From: Sebastian Schuberth Date: Mon, 22 Apr 2013 13:31:57 +0200 Subject: [PATCH] Installer: By default, do not show a blinking cursor for InfoBeforeFile See https://github.com/jrsoftware/issrc/issues/54. Signed-off-by: Sebastian Schuberth --- share/WinGit/install.iss | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/share/WinGit/install.iss b/share/WinGit/install.iss index a706c8b9..01b6ebaa 100644 --- a/share/WinGit/install.iss +++ b/share/WinGit/install.iss @@ -733,16 +733,19 @@ end; procedure CurPageChanged(CurPageID:Integer); begin - if CurPageID=wpSelectDir then begin + if CurPageID=wpInfoBefore then begin + if WizardForm.NextButton.Enabled then begin + // By default, do not show a blinking cursor for InfoBeforeFile. + WizardForm.ActiveControl:=WizardForm.NextButton; + end; + end else if CurPageID=wpSelectDir then begin if not IsDirWritable(WizardDirValue) then begin // If the default directory is not writable, choose another default that most likely is. // This will be checked later again when the user clicks "Next". WizardForm.DirEdit.Text:=ExpandConstant('{userpf}\{#APP_NAME}'); end; - end; - - // Show the "Refresh" button only on the processes page. - if (ProcessesPage<>NIL) and (CurPageID=ProcessesPage.ID) then begin + end else if (ProcessesPage<>NIL) and (CurPageID=ProcessesPage.ID) then begin + // Show the "Refresh" button only on the processes page. ProcessesRefresh.Show; end else begin ProcessesRefresh.Hide; -- 2.11.4.GIT