Installer: By default, do not show a blinking cursor for InfoBeforeFile
authorSebastian Schuberth <sschuberth@gmail.com>
Mon, 22 Apr 2013 11:31:57 +0000 (22 13:31 +0200)
committerSebastian Schuberth <sschuberth@gmail.com>
Mon, 22 Apr 2013 11:31:57 +0000 (22 13:31 +0200)
See https://github.com/jrsoftware/issrc/issues/54.

Signed-off-by: Sebastian Schuberth <sschuberth@gmail.com>
share/WinGit/install.iss

index a706c8b..01b6eba 100644 (file)
@@ -733,16 +733,19 @@ end;
 \r
 procedure CurPageChanged(CurPageID:Integer);\r
 begin\r
-    if CurPageID=wpSelectDir then begin\r
+    if CurPageID=wpInfoBefore then begin\r
+        if WizardForm.NextButton.Enabled then begin\r
+            // By default, do not show a blinking cursor for InfoBeforeFile.\r
+            WizardForm.ActiveControl:=WizardForm.NextButton;\r
+        end;\r
+    end else if CurPageID=wpSelectDir then begin\r
         if not IsDirWritable(WizardDirValue) then begin\r
             // If the default directory is not writable, choose another default that most likely is.\r
             // This will be checked later again when the user clicks "Next".\r
             WizardForm.DirEdit.Text:=ExpandConstant('{userpf}\{#APP_NAME}');\r
         end;\r
-    end;\r
-\r
-    // Show the "Refresh" button only on the processes page.\r
-    if (ProcessesPage<>NIL) and (CurPageID=ProcessesPage.ID) then begin\r
+    end else if (ProcessesPage<>NIL) and (CurPageID=ProcessesPage.ID) then begin\r
+        // Show the "Refresh" button only on the processes page.\r
         ProcessesRefresh.Show;\r
     end else begin\r
         ProcessesRefresh.Hide;\r