Martijn Laan 20 godzin temu
rodzic
commit
f68e792ae3

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

@@ -150,19 +150,18 @@ begin
   try
     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;
   finally
     SignToolsForm.Free;

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

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