From f790fca808d7fa61f7a4444d529485d4163dbff9 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Wed, 23 Sep 2009 16:45:02 +0200 Subject: Preserve checkbox states in Search dialog --- UMain.pas | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'UMain.pas') 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); -- cgit v1.2.3