ブラウザツールバーの [最新100レスのみ表示]、[新着レスのみ表示]、[未読レスの未表示]の

いずれかが選択されている状態で、選択済みのボタンを再度クリックするとボタンが浮き上がってしまうバグを修正。

diff --git a/Giko.pas b/Giko.pas
index 43b38d2..f40fe71 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -8816,6 +8816,7 @@ begin
                and (FActiveContent.FBrowser.Busy) then Exit;
 
        FResRangeMenuSelect                             := Ord( grrAll );
+       AllResAction.Checked                    := True;
 
        if GikoSys.ResRange <> Ord( grrAll ) then begin
                GikoSys.ResRange := Ord( grrAll );
@@ -10985,7 +10986,8 @@ begin
        if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
                and (FActiveContent.FBrowser.Busy) then Exit;
 
-       FResRangeMenuSelect                             := 100;
+       FResRangeMenuSelect                                             := 100;
+       OnlyAHundredResAction.Checked   := True;
 
        if GikoSys.ResRange <> 100 then begin
                GikoSys.ResRange                                        := 100;
@@ -11021,6 +11023,7 @@ begin
                and (FActiveContent.FBrowser.Busy) then Exit;
 
        FResRangeMenuSelect                             := Ord( grrKoko );
+       OnlyKokoResAction.Checked       := True;
 
        if GikoSys.ResRange <> Ord( grrKoko ) then begin
                GikoSys.ResRange                                        := Ord( grrKoko );
@@ -11056,6 +11059,7 @@ begin
                and (FActiveContent.FBrowser.Busy) then Exit;
 
        FResRangeMenuSelect                             := Ord( grrNew );
+       OnlyNewResAction.Checked        := True;
 
        if GikoSys.ResRange <> Ord( grrNew ) then begin
                GikoSys.ResRange                                        := Ord( grrNew );