最新100レス表示の表示数を拡張

diff --git a/Giko.pas b/Giko.pas
index 799e1f9..65b944f 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1025,7 +1025,11 @@ begin
                case FResRangeMenuSelect of
                Ord( grrKoko ): GikoDM.OnlyKokoResAction.Checked        := True;
                Ord( grrNew ):  GikoDM.OnlyNewResAction.Checked := True;
-               100:                    GikoDM.OnlyAHundredResAction.Checked            := True;
+               10..65535:
+            begin
+                GikoDM.OnlyAHundredResAction.Checked           := True;
+                GikoSys.ResRange := GikoSys.Setting.ResRangeExCount;
+            end;
                end;
        end;
 

diff --git a/GikoDataModule.pas b/GikoDataModule.pas
index 66c5223..d277c05 100644 (file)
--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -926,8 +926,8 @@ begin
 
        GikoForm.ResRangeMenuSelect     := 100;
        OnlyAHundredResAction.Checked   := True;
-       //\81@\95\\8e¦\94Í\88Í\82ð\90Ý\92è\82·\82é
-       SetResRange(100);
+       //\81@\95\\8e¦\94Í\88Í\82ð\90Ý\92è\82·\82é\81B\90Ý\92è\92l\82©\82ç\82Æ\82Á\82Ä\82­\82é\81B
+    SetResRange(GikoSys.Setting.ResRangeExCount);
 end;
 // *************************************************************************
 //! \96¢\93Ç\83\8c\83X\82Ì\82Ý\95\\8e¦