起動時に最新100レスのみ表示に設定するオプションが、

他の表示範囲も選べるようになった。

diff --git a/Giko.pas b/Giko.pas
index 748cc0b..3c3147a 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1883,7 +1883,15 @@ begin
                GikoSys.Setting.MessegeBarHeight := MessagePanel.Height;
        except
        end;
-  // \83\8a\83A\83\8b\83^\83C\83\80\82É\95Û\91¶\82³\82ê\82é\82Ì\82Å\81A\82Ü\82½\81A\83E\83B\83\93\83h\83E\83T\83C\83Y\82ª CoolBar \82æ\82è
+
+       try
+               // \83\8c\83X\95\\8e¦\94Í\88Í
+               if not GikoSys.Setting.ResRangeHold then
+                       GikoSys.Setting.ResRange := GikoSys.ResRange;
+       except
+       end;
+
+       // \83\8a\83A\83\8b\83^\83C\83\80\82É\95Û\91¶\82³\82ê\82é\82Ì\82Å\81A\82Ü\82½\81A\83E\83B\83\93\83h\83E\83T\83C\83Y\82ª CoolBar \82æ\82è
        // \8f¬\82³\82­\82È\82Á\82Ä\82¢\82é\82Æ\82«\82É\95Û\91¶\82·\82é\82Æ\92l\82ª\8fã\8f\91\82«\82³\82ê\82Ä\82µ\82Ü\82¤\82Ì\82Å\82±\82±\82Å\82Í\95Û\91¶\82µ\82È\82¢
        {
                // \81ªFormDestroy\92\86\82É\88Ú\93®\82µ\82½\82Ì\82Å\81A\82±\82±\82Å\95Û\91¶\82µ\82È\82¢\82Æ\82¢\82¯\82È\82¢\82Æ\8ev\82¤\81B\81i\82à\82¶\82ã\81@2004/04/09\81j

diff --git a/Option.dfm b/Option.dfm
index a1e5a68..41ca5ac 100644 (file)
--- a/Option.dfm
+++ b/Option.dfm
@@ -51,9 +51,9 @@ object OptionDialog: TOptionDialog
     Top = 4
     Width = 509
     Height = 389
-    ActivePage = TabSheet4
+    ActivePage = ThreadSheet
     MultiLine = True
-    TabIndex = 8
+    TabIndex = 5
     TabOrder = 0
     OnChange = OptionTabChange
     object ConnectSheet: TTabSheet
@@ -667,7 +667,7 @@ object OptionDialog: TOptionDialog
           Top = 43
           Width = 417
           Height = 20
-          ItemHeight = 0
+          ItemHeight = 12
           TabOrder = 0
           Text = 'BoardURLComboBox'
         end
@@ -815,7 +815,7 @@ object OptionDialog: TOptionDialog
         Left = 12
         Top = 8
         Width = 477
-        Height = 49
+        Height = 73
         Caption = #34920#31034#35373#23450
         TabOrder = 0
         object ShowMailCheckBox: TCheckBox
@@ -826,18 +826,33 @@ object OptionDialog: TOptionDialog
           Caption = #12513#12540#12523#27396#12434#34920#31034#12377#12427'(&M)'
           TabOrder = 0
         end
-        object OnlyAHundredResCheckBox: TCheckBox
-          Left = 163
-          Top = 19
-          Width = 238
+        object ResRangeHoldCheckBox: TCheckBox
+          Left = 11
+          Top = 43
+          Width = 198
           Height = 17
-          Caption = #36215#21205#26178#12395#26368#26032'100'#12524#12473#34920#31034#12434'ON'#12395#12377#12427
+          Caption = #36215#21205#26178#12398#12524#12473#34920#31034#31684#22258#12434#22266#23450#12377#12427
           TabOrder = 1
+          OnClick = ResRangeHoldCheckBoxClick
+        end
+        object ResRangeHoldComboBox: TComboBox
+          Left = 224
+          Top = 40
+          Width = 145
+          Height = 20
+          Style = csDropDownList
+          ItemHeight = 12
+          TabOrder = 2
+          Items.Strings = (
+            #12377#12409#12390#12398#12524#12473#12434#34920#31034#12377#12427
+            #26032#30528'100'#12524#12473#12398#12415#34920#31034
+            #26410#35501#12524#12473#12398#12415#34920#31034
+            #26032#30528#12524#12473#12398#12415#34920#31034)
         end
       end
       object GroupBox2: TGroupBox
         Left = 12
-        Top = 68
+        Top = 92
         Width = 477
         Height = 121
         Caption = #12522#12531#12463#12463#12522#12483#12463#26178#21205#20316
@@ -887,7 +902,7 @@ object OptionDialog: TOptionDialog
       end
       object GroupBox6: TGroupBox
         Left = 12
-        Top = 196
+        Top = 220
         Width = 477
         Height = 49
         Caption = #12525#12464#21066#38500
@@ -904,7 +919,7 @@ object OptionDialog: TOptionDialog
       end
       object ResAnchorGroupBox: TGroupBox
         Left = 12
-        Top = 255
+        Top = 279
         Width = 477
         Height = 49
         Caption = #12524#12473#12450#12531#12459#12540#12463#12522#12483#12463#26178#21205#20316

diff --git a/Option.pas b/Option.pas
index 98ae81b..3f7fdb3 100644 (file)
--- a/Option.pas
+++ b/Option.pas
@@ -160,7 +160,7 @@ type
                CSSBackColorButton: TButton;
                ShowNGLineCheckBox: TCheckBox;
                AddResAnchorCheckBox: TCheckBox;
-               OnlyAHundredResCheckBox: TCheckBox;
+    ResRangeHoldCheckBox: TCheckBox;
                BoardURLComboBox: TComboBox;
                AddURLButton: TButton;
                RemoveURLButton: TButton;
@@ -191,7 +191,8 @@ type
     Label6: TLabel;
     TabAutoSaveLoad: TGroupBox;
     CloseTabAutoSave: TCheckBox;
-    OpenTabAutoLoad: TCheckBox;
+               OpenTabAutoLoad: TCheckBox;
+               ResRangeHoldComboBox: TComboBox;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure ApplyButtonClick(Sender: TObject);
@@ -242,6 +243,7 @@ type
                procedure AddURLButtonClick(Sender: TObject);
                procedure RemoveURLButtonClick(Sender: TObject);
     procedure OddResNumCheckBoxClick(Sender: TObject);
+    procedure ResRangeHoldCheckBoxClick(Sender: TObject);
        private
                { Private \90é\8c¾ }
                FClose: Boolean;
@@ -690,8 +692,15 @@ begin
        if (CSSListView.ItemIndex = -1) and (CSSListView.Items.Count > 0) then
                CSSListView.Items[0].Selected := True;
 
-       //Mail\97\93\95\\8e¦
-       OnlyAHundredResCheckBox.Checked := (GikoSys.Setting.ResRange = 100);
+       // \8bN\93®\8e\9e\83\8c\83X\95\\8e¦\94Í\88Í\82Ì\8cÅ\92è
+       ResRangeHoldCheckBox.Checked := GikoSys.Setting.ResRangeHold;
+       case GikoSys.Setting.ResRange of
+       Ord( grrAll ):  ResRangeHoldComboBox.ItemIndex := 0;
+       Ord( grrKoko ): ResRangeHoldComboBox.ItemIndex := 2;
+       Ord( grrNew ):  ResRangeHoldComboBox.ItemIndex := 3;
+       100:                                            ResRangeHoldComboBox.ItemIndex := 1;
+       end;
+       ResRangeHoldComboBox.Enabled := GikoSys.Setting.ResRangeHold;
        //\83^\83u\92Ç\89Á\88Ê\92u
        TabAddRadioGroup.ItemIndex := Ord(GikoSys.Setting.BrowserTabAppend);
        //\94Â\8dX\90VURL
@@ -925,9 +934,14 @@ begin
        //Mail\97\93\95\\8e¦
        if GikoSys.Setting.ShowMail <> ShowMailCheckBox.Checked then FRepaintThread := true;
        GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked;
-       //\8dÅ\90V100\83\8c\83X\95\\8e¦
-       if OnlyAHundredResCheckBox.Checked then
-               GikoSYs.Setting.ResRange := 100;
+       // \8bN\93®\8e\9e\83\8c\83X\95\\8e¦\94Í\88Í\82Ì\8cÅ\92è
+       GikoSys.Setting.ResRangeHold := ResRangeHoldCheckBox.Checked;
+       case ResRangeHoldComboBox.ItemIndex of
+       0: GikoSys.Setting.ResRange := Ord( grrAll );
+       1: GikoSys.Setting.ResRange := 100;
+       2: GikoSys.Setting.ResRange := Ord( grrKoko );
+       3: GikoSys.Setting.ResRange := Ord( grrNew );
+       end;
 
        GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(TabAddRadioGroup.ItemIndex);
 
@@ -1519,5 +1533,10 @@ begin
        OddResNumColorBox.Enabled := OddResNumCheckBox.Checked;
 end;
 
+procedure TOptionDialog.ResRangeHoldCheckBoxClick(Sender: TObject);
+begin
+       ResRangeHoldComboBox.Enabled := ResRangeHoldCheckBox.Checked;
+end;
+
 end.
 

diff --git a/Setting.pas b/Setting.pas
index 80ef126..db8bbb3 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -196,7 +196,9 @@ type
                //mail\97\93\95\\8e¦
                FShowMail: Boolean;
                /// \83\8c\83X\95\\8e¦\94Í\88Í
-               FResRange : Longint;
+               FResRange                       : Longint;
+               /// \8bN\93®\8e\9e\83\8c\83X\95\\8e¦\94Í\88Í\82Ì\8cÅ\92è
+               FResRangeHold   : Boolean;
                //\94ñ\83A\83N\83e\83B\83u\8e\9e\83\8c\83X\83|\83b\83v\83A\83b\83v\95\\8e¦
                FUnActivePopup: Boolean;
                //\83\8c\83X\83|\83b\83v\83A\83b\83v\83w\83b\83_\81[\83{\81[\83\8b\83h
@@ -275,8 +277,8 @@ type
                //\8eæ\93¾\90\94\82Å\82Í\82È\82­\96¢\8eæ\93¾\82ð\95\\8e¦\82·\82é
                FNonAcquiredCount: Boolean;
 
-        //\83X\83\8c\83b\83h\88ê\97\97\82ÅLog\82Ì\82 \82é\83X\83\8c\83b\83h\82Ì\82Ý\83X\83\8c\8dì\90¬\93ú\82ð\95\\8e¦\82·\82é\82©
-        FCreationTimeLogs: Boolean;
+                               //\83X\83\8c\83b\83h\88ê\97\97\82ÅLog\82Ì\82 \82é\83X\83\8c\83b\83h\82Ì\82Ý\83X\83\8c\8dì\90¬\93ú\82ð\95\\8e¦\82·\82é\82©
+                               FCreationTimeLogs: Boolean;
         //\83X\83\8c\83b\83h\88ê\97\97\82Ì\83X\83\8c\90¶\90¬\93ú\82Å\96¢\97\88\82Ì\83X\83\8c\82Ì\90¶\90¬\93ú\82ð\95\\8e¦\82µ\82È\82¢
                FFutureThread: Boolean;
 
@@ -504,6 +506,7 @@ type
 
                property ShowMail: Boolean read FShowMail write FShowMail;
                property ResRange : Longint read FResRange write FResRange;
+               property ResRangeHold : Boolean read FResRangeHold write FResRangeHold;
                property UnActivePopup: Boolean read FUnActivePopup write FUnActivePopup;
                property ResPopupHeaderBold: Boolean read FResPopupHeaderBold write FResPopupHeaderBold;
 
@@ -885,6 +888,7 @@ begin
                        FResRange := 100        // \8cÃ\82¢\90Ý\92è\82Ì\8cÝ\8a·\97p
                else
                        FResRange := ini.ReadInteger( 'Thread', 'ResRange', 100 );
+               FResRangeHold := ini.ReadBool( 'Thread', 'ResRangeHold', False );
                //\94ñ\83A\83N\83e\83B\83u\8e\9e\83\8c\83X\83|\83b\83v\83A\83b\83v\95\\8e¦
                FUnActivePopup := ini.ReadBool('Thread', 'UnActivePopup', False);
                //\83\8c\83X\83|\83b\83v\83A\83b\83v\83w\83b\83_\81[\83{\81[\83\8b\83h
@@ -1188,6 +1192,7 @@ begin
                // \83\8c\83X\95\\8e¦\94Í\88Í
                ini.DeleteKey( 'Thread', 'OnlyAHundredRes' );   // \8cÃ\82¢\90Ý\92è\82Ì\8dí\8f\9c
                ini.WriteInteger('Thread', 'ResRange', FResRange);
+               ini.WriteBool('Thread', 'ResRangeHold', FResRangeHold);
                //\83\8d\83O\8dí\8f\9c\8am\94F
                ini.WriteBool('Function', 'LogDeleteMessage', FDeleteMsg);
                //\8fI\97¹\8am\94F