From 9f63357a929e7f4dc1b9510486618a04437f0791 Mon Sep 17 00:00:00 2001
From: chylex <contact@chylex.com>
Date: Sat, 17 Feb 2018 10:52:19 +0100
Subject: [PATCH] Pre-check desktop icon option in installer when not updating
---
bld/gen_full.iss | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/bld/gen_full.iss b/bld/gen_full.iss
index 5cdf07ab..f48b5c1c 100644
--- a/bld/gen_full.iss
+++ b/bld/gen_full.iss
@@ -106,6 +106,15 @@ begin
Result := (PageID = wpSelectDir) and (UpdatePath <> '')
end;
+{ Check the desktop icon task if not updating. }
+procedure CurPageChanged(CurPageID: Integer);
+begin
+ if CurPageID = wpSelectTasks then
+ begin
+ WizardForm.TasksList.Checked[WizardForm.TasksList.Items.Count-1] := (UpdatePath = '');
+ end;
+end;
+
{ Install VC++ if downloaded. }
procedure CurStepChanged(CurStep: TSetupStep);
begin