Preserve checkbox states in Search dialog

1 files changed, 9 insertions, 0 deletions

diff --git a/UMain.pas b/UMain.pas
index 318f53e..0eabe42 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -6094,6 +6094,11 @@ begin
     FSearch.Engine := Engine;
     FSearch.SearchInEntry.Text := StrToUTF8(ExcludeTrailingPathDelimiter(Engine.Path));
     if Length(FSearch.SearchInEntry.Text) < 1 then FSearch.SearchInEntry.Text := '/';
+    FSearch.CaseSensitiveMatchCheckButton.Checked := ConfSearchFilterCaseSensitive;
+    FSearch.StayCurrentFSCheckButton.Checked := ConfSearchOtherFS;
+    FSearch.SearchArchivesCheckButton.Checked := ConfSearchArchives;
+    FSearch.CaseSensitiveCheckButton.Checked := ConfSearchTextCaseSensitive;
+
     case FSearch.Run of
       mbOK: ;
       mbApply: begin
@@ -6125,6 +6130,10 @@ begin
                end;
     end;
   finally
+    ConfSearchFilterCaseSensitive := FSearch.CaseSensitiveMatchCheckButton.Checked;
+    ConfSearchOtherFS := FSearch.StayCurrentFSCheckButton.Checked;
+    ConfSearchArchives := FSearch.SearchArchivesCheckButton.Checked;
+    ConfSearchTextCaseSensitive := FSearch.CaseSensitiveCheckButton.Checked;
     FSearch.Free;
     Application.ProcessMessages;
     InternalLockInit(False);