・レス絞込みボタンが正しく全て表示ボタンと連動するように修正。

diff --git a/Giko.dfm b/Giko.dfm
index 6abd20d..de9c61a 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -7932,6 +7932,7 @@ object GikoForm: TGikoForm
     end
     object SelectResAction: TAction
       Category = #12473#12524#12483#12489
+      AutoCheck = True
       Caption = #12524#12473#32094#36796#12415#34920#31034'(&S)...'
       GroupIndex = 2
       Hint = #12524#12473#12398#20869#23481#12434#32094#36796#12416'(&S)...'
@@ -7941,6 +7942,7 @@ object GikoForm: TGikoForm
     end
     object AllResAction: TAction
       Category = #12473#12524#12483#12489
+      AutoCheck = True
       Caption = #12377#12409#12390#34920#31034'(&A)'
       GroupIndex = 2
       Hint = #12473#12524#12483#12489#12434#12377#12409#12390#34920#31034#12377#12427

diff --git a/Giko.pas b/Giko.pas
index 67f3f44..015425c 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -6663,7 +6663,11 @@ begin
                Dlg := TListSelectDialog.Create(Self);
                 Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList);
                 Dlg.ShowModal;
-                if Dlg.ModalResult <> mrCancel then begin
+                if (Dlg.ModalResult = mrCancel) or (Length( Dlg.SelectComboBox.Text ) = 0) then begin
+                        // \83{\83^\83\93\82Ì\8dX\90V
+                        AllResAction.Checked := True;
+                        SelectResAction.Checked := False;
+                end else begin
                         // \83{\83^\83\93\82Ì\8dX\90V
                         AllResAction.Checked := False;
                         SelectResAction.Checked := True;