From: Sebastian Schuberth <sschuberth@gmail.com>
Date: Mon, 22 Apr 2013 11:31:57 +0000 (+0200)
Subject: Installer: By default, do not show a blinking cursor for InfoBeforeFile
X-Git-Url: https://repo.or.cz/w/msysgit.git/commitdiff_plain/907705ee1f68e858f1db04b92a176c9954a0b91f

Installer: By default, do not show a blinking cursor for InfoBeforeFile

See https://github.com/jrsoftware/issrc/issues/54.

Signed-off-by: Sebastian Schuberth <sschuberth@gmail.com>
---

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;