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>
This commit is contained in:
Sebastian Schuberth 2013-04-22 13:31:57 +02:00
Родитель 0dc86069cd
Коммит 907705ee1f
1 изменённых файлов: 8 добавлений и 5 удалений

Просмотреть файл

@ -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;