最新100レス表示の表示数を拡張できるようにオプションを追加

diff --git a/KuroutSetting.dfm b/KuroutSetting.dfm
index 1cd75da..14a6f41 100644 (file)
--- a/KuroutSetting.dfm
+++ b/KuroutSetting.dfm
@@ -475,6 +475,34 @@ object KuroutOption: TKuroutOption
           TabOrder = 1
           Wrap = False
         end
+        object ResRangeLabeledEdit: TLabeledEdit
+          Left = 317
+          Top = 18
+          Width = 121
+          Height = 20
+          EditLabel.Width = 113
+          EditLabel.Height = 12
+          EditLabel.Caption = #34920#31034#12524#12473#25968'(100-9999)'
+          ImeMode = imDisable
+          LabelPosition = lpLeft
+          LabelSpacing = 3
+          TabOrder = 2
+          Text = '100'
+          OnExit = ResRangeLabeledEditExit
+        end
+        object ResRangeCountUpDown: TUpDown
+          Left = 438
+          Top = 18
+          Width = 17
+          Height = 20
+          Associate = ResRangeLabeledEdit
+          Min = 100
+          Max = 9999
+          Position = 100
+          TabOrder = 3
+          Thousands = False
+          Wrap = False
+        end
       end
       object ThreadGroupBox: TGroupBox
         Left = 16

diff --git a/KuroutSetting.pas b/KuroutSetting.pas
index 04e454e..8117d10 100644 (file)
--- a/KuroutSetting.pas
+++ b/KuroutSetting.pas
@@ -94,6 +94,8 @@ type
     RespopupWaitUpDown: TUpDown;
     Label19: TLabel;
     RespopupMailToCheckBox: TCheckBox;
+    ResRangeLabeledEdit: TLabeledEdit;
+    ResRangeCountUpDown: TUpDown;
        procedure OkBottonClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure CDeleteButtonClick(Sender: TObject);
@@ -110,6 +112,7 @@ type
     procedure DeltaXLabeledEditExit(Sender: TObject);
     procedure DeltaYLabeledEditExit(Sender: TObject);
     procedure RespopupWaitLabeledEditExit(Sender: TObject);
+    procedure ResRangeLabeledEditExit(Sender: TObject);
   private
        { Private \90é\8c¾ }
        procedure SetValue;
@@ -166,6 +169,8 @@ begin
     MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );
     //\81@\90æ\93ª\95\\8e¦\83\8c\83X\90\94
     AHandredUpDown.Position := GikoSys.Setting.HeadResCount;
+    // \95\\8e¦\83\8c\83X\90\94
+    ResRangeCountUpDown.Position := GikoSys.Setting.ResRangeExCount;
     // \8aÖ\98A\83L\81[\83\8f\81[\83h\92Ç\89Á\83t\83\89\83O
     AddKeywordCheckBox.Checked := GikoSys.Setting.AddKeywordLink;
     // \8cë\94½\89\9e\91Î\8dô
@@ -212,7 +217,8 @@ begin
     //\81@\90æ\93ª\95\\8e¦\83\8c\83X\90\94
     GikoSys.Setting.HeadResCount :=
         StrToIntDef( AHandredLabeledEdit.Text , 1);
-
+    GikoSys.Setting.ResRangeExCount :=
+        StrToIntDef( ResRangeLabeledEdit.Text , 100 );
        GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
     // \8aÖ\98A\83L\81[\83\8f\81[\83h\92Ç\89Á\83t\83\89\83O
     GikoSys.Setting.AddKeywordLink := AddKeywordCheckBox.Checked;
@@ -515,4 +521,14 @@ begin
                RespopupWaitLabeledEdit.Text := IntToStr(RespopupWaitUpDown.Max);
 end;
 
+procedure TKuroutOption.ResRangeLabeledEditExit(Sender: TObject);
+begin
+       if not GikoSys.IsNumeric(ResRangeLabeledEdit.Text) then
+               ResRangeLabeledEdit.Text := '100';
+    if StrToInt(ResRangeLabeledEdit.Text) < 100 then
+        ResRangeLabeledEdit.Text := '100';
+    if StrToInt(ResRangeLabeledEdit.Text) > 9999 then
+        ResRangeLabeledEdit.Text := '9999';
+end;
+
 end.

diff --git a/Option.dfm b/Option.dfm
index 02cf239..94429fc 100644 (file)
--- a/Option.dfm
+++ b/Option.dfm
@@ -253,7 +253,7 @@ object OptionDialog: TOptionDialog
           Top = 43
           Width = 417
           Height = 20
-          ItemHeight = 12
+          ItemHeight = 0
           TabOrder = 0
           Text = 'BoardURLComboBox'
         end

diff --git a/Option.pas b/Option.pas
index 83c6bda..64c637f 100644 (file)
--- a/Option.pas
+++ b/Option.pas
@@ -723,7 +723,7 @@ begin
        Ord( grrAll ):  ResRangeHoldComboBox.ItemIndex := 0;
        Ord( grrKoko ): ResRangeHoldComboBox.ItemIndex := 2;
        Ord( grrNew ):  ResRangeHoldComboBox.ItemIndex := 3;
-       100:                                            ResRangeHoldComboBox.ItemIndex := 1;
+       10..65535:                                              ResRangeHoldComboBox.ItemIndex := 1;
        end;
        ResRangeHoldComboBox.Enabled := GikoSys.Setting.ResRangeHold;
        //\83^\83u\92Ç\89Á\88Ê\92u
@@ -1013,7 +1013,7 @@ begin
        GikoSys.Setting.ResRangeHold := ResRangeHoldCheckBox.Checked;
        case ResRangeHoldComboBox.ItemIndex of
                0: GikoSys.Setting.ResRange := Ord( grrAll );
-               1: GikoSys.Setting.ResRange := 100;
+               1: GikoSys.Setting.ResRange := GikoSys.Setting.ResRangeExCount;
                2: GikoSys.Setting.ResRange := Ord( grrKoko );
                3: GikoSys.Setting.ResRange := Ord( grrNew );
        end;

diff --git a/Setting.pas b/Setting.pas
index a0caaab..043fb73 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -440,6 +440,8 @@ type
         FLoopBrowserTabs : Boolean;
         //! 100\83\8c\83X\95\\8e¦\82Ì\90æ\93ª\95\\8e¦\83\8c\83X\90\94
         FHeadResCount : Integer;
+        //! 100\83\8c\83X\95\\8e¦\90\94\81i\8ag\92£\97p\81j
+        FResRangeExCount: Integer;
         //! \8aÖ\98A\83L\81[\83\8f\81[\83h\92Ç\89Á\83t\83\89\83O
         FAddKeywordLink: Boolean;
         //! dat\92u\8a·\82ð\97L\8cø\82É\82·\82é
@@ -810,6 +812,8 @@ type
         property LoopBrowserTabs : Boolean read FLoopBrowserTabs write FLoopBrowserTabs;
         //! 100\83\8c\83X\95\\8e¦\82Ì\90æ\93ª\95\\8e¦\83\8c\83X\90\94
         property HeadResCount : Integer read FHeadResCount write FHeadResCount;
+        //! 100\83\8c\83X\95\\8e¦\90\94\81i\8ag\92£\97p\81j
+        property ResRangeExCount: Integer read FResRangeExCount write FResRangeExCount;
         //! \8aÖ\98A\83L\81[\83\8f\81[\83h\92Ç\89Á\83t\83\89\83O
         property AddKeywordLink: Boolean read FAddKeywordLink write FAddKeywordLink;
         //! dat\82Ì\92u\8a·\82ð\97L\8cø\82É\82·\82é\82©
@@ -1127,6 +1131,7 @@ begin
                        FResRange := ini.ReadInteger( 'Thread', 'ResRange', Ord( grrAll ) );
                FResRangeHold := ini.ReadBool( 'Thread', 'ResRangeHold', False );
         FHeadResCount := ini.ReadInteger('Thread', 'HeadResCount', 1);
+        FResRangeExCount:= ini.ReadInteger('Thread','ResRangeExCount', 100);
                // \83X\83\8c\83b\83h\88ê\97\97\95\\8e¦\94Í\88Í
                FThreadRange := TGikoThreadRange( ini.ReadInteger('ThreadList', 'ThreadRange', Ord( gtrAll )) );
                //\94ñ\83A\83N\83e\83B\83u\8e\9e\83\8c\83X\83|\83b\83v\83A\83b\83v\95\\8e¦
@@ -1531,6 +1536,7 @@ begin
                ini.WriteInteger('Thread', 'ResRange', FResRange);
                ini.WriteBool('Thread', 'ResRangeHold', FResRangeHold);
         ini.WriteInteger('Thread', 'HeadResCount', FHeadResCount);
+        ini.WriteInteger('Thread','ResRangeExCount', FResRangeExCount);
                // \83X\83\8c\83b\83h\88ê\97\97\95\\8e¦\94Í\88Í
                ini.WriteInteger('ThreadList', 'ThreadRange', Ord( FThreadRange ));
                //\83\8d\83O\8dí\8f\9c\8am\94F