From 274de54746362209e1c9f278fa8a50dbfc018d41 Mon Sep 17 00:00:00 2001
From: Roman Telezhynskyi <dismine@gmail.com>
Date: Wed, 18 Nov 2020 10:19:15 +0200
Subject: [PATCH] Improve Windows installer. [skip ci]

Make removing settings on uninstall optional.
---
 dist/win/inno/valentina.iss | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/dist/win/inno/valentina.iss b/dist/win/inno/valentina.iss
index b148c0c38..6594453df 100644
--- a/dist/win/inno/valentina.iss
+++ b/dist/win/inno/valentina.iss
@@ -235,10 +235,6 @@ Source: ".\valentina\*.ini"; DestDir: "{app}"; Flags: ignoreversion
 Type: filesandordirs; Name: "{app}\translations"
 Type: files; Name: "{userappdata}\ValentinaTeam\*.ini"; Tasks: deletesettings
 
-[UninstallDelete]
-Type: files; Name: "{userappdata}\ValentinaTeam\*.ini"
-Type: filesandordirs; Name: "{userappdata}\ValentinaTeam"
-
 [Icons]
 Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
 Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
@@ -358,6 +354,12 @@ russian.ManageSettings = Управление настройками
 ukrainian.ManageSettings = Керування налаштуваннями
 german.ManageSettings = Einstellungen verwalten
 
+QuestionRemoveAnyExistingSettings = Do you want to remove any existing settings?
+english.QuestionRemoveAnyExistingSettings = Do you want to remove any existing settings?
+russian.QuestionRemoveAnyExistingSettings = Вы хотите удалить существующие настройки?
+ukrainian.QuestionRemoveAnyExistingSettings = Видалити будь-які існуючі налаштування?
+german.QuestionRemoveAnyExistingSettings = Möchten Sie vorhandene Einstellungen entfernen?
+
 [Code]
 const
 
@@ -565,3 +567,15 @@ var
     end;  
   end;
 end;
+
+procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
+begin
+  if CurUninstallStep = usPostUninstall then
+  begin
+    if MsgBox(ExpandConstant('{cm:QuestionRemoveAnyExistingSettings}'), mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDYES then
+    //this is the msg that will display after uninstall 
+    begin
+        DelTree(ExpandConstant('{userappdata}\ValentinaTeam'), True, True, True);
+    end;
+  end;
+end;