Martijn Laan 3 days ago
parent
commit
f68e792ae3
2 changed files with 13 additions and 14 deletions
  1. 12 13
      Projects/Src/IDE.MainForm.ToolsHelper.pas
  2. 1 1
      Projects/Src/IDE.SignToolsForm.pas

+ 12 - 13
Projects/Src/IDE.MainForm.ToolsHelper.pas

@@ -150,19 +150,18 @@ begin
   try
   try
     SignToolsForm.SignTools := FSignTools;
     SignToolsForm.SignTools := FSignTools;
 
 
-    if SignToolsForm.ShowModal <> mrOK then
-      Exit;
-
-    FSignTools.Assign(SignToolsForm.SignTools);
-
-    { Save new options }
-    Ini := TConfigIniFile.Create;
-    try
-      Ini.EraseSection('SignTools');
-      for I := 0 to FSignTools.Count-1 do
-        Ini.WriteString('SignTools', 'SignTool' + IntToStr(I), FSignTools[I]);
-    finally
-      Ini.Free;
+    if SignToolsForm.ShowModal = mrOk then begin
+      FSignTools.Assign(SignToolsForm.SignTools);
+
+      { Save new options }
+      Ini := TConfigIniFile.Create;
+      try
+        Ini.EraseSection('SignTools');
+        for I := 0 to FSignTools.Count-1 do
+          Ini.WriteString('SignTools', 'SignTool' + IntToStr(I), FSignTools[I]);
+      finally
+        Ini.Free;
+      end;
     end;
     end;
   finally
   finally
     SignToolsForm.Free;
     SignToolsForm.Free;

+ 1 - 1
Projects/Src/IDE.SignToolsForm.pas

@@ -12,7 +12,7 @@ unit IDE.SignToolsForm;
 interface
 interface
 
 
 uses
 uses
-    Classes, Controls, StdCtrls, UIStateForm;
+  Classes, Controls, StdCtrls, UIStateForm;
 
 
 type
 type
   TSignToolsForm = class(TUIStateForm)
   TSignToolsForm = class(TUIStateForm)