Dat落ちしたスレのソート順を指定できるようにした

diff --git a/ItemDownload.pas b/ItemDownload.pas
index 6fc2180..a9676bf 100644 (file)
--- a/ItemDownload.pas
+++ b/ItemDownload.pas
@@ -993,10 +993,12 @@ begin
                Board.LastModified := LastModified;
 
                //dat\97\8e\82¿\83X\83\8c\82Ì\83\\81[\83g\8f\87\82ð\8c\88\92è\82·\82é\82½\82ß\82É\83\\81[\83g\82·\82é
-               Sort.SortOrder := False; //\8d~\8f\87
-               Sort.SortIndex := 7;     //\83X\83\8c\8dì\90¬\93ú\8e\9e
-               Sort.SortNonAcquiredCountFlag := GikoSys.Setting.NonAcquiredCount;
-               Board.CustomSort(ThreadItemSortProc);
+               if GikoSys.Setting.DatOchiSortIndex >= 0 then begin
+                       Sort.SortOrder := GikoSys.Setting.DatOchiSortOrder;
+                       Sort.SortIndex := GikoSys.Setting.DatOchiSortIndex;
+                       //Sort.SortNonAcquiredCountFlag := GikoSys.Setting.NonAcquiredCount;
+                       Board.CustomSort(ThreadItemSortProc);
+               end;
 
                for i := Board.Count - 1 downto 0 do
                        Board.Items[i].AgeSage := gasNull;

diff --git a/Option.dfm b/Option.dfm
index f2fbc55..03fd668 100644 (file)
--- a/Option.dfm
+++ b/Option.dfm
@@ -51,9 +51,9 @@ object OptionDialog: TOptionDialog
     Top = 4
     Width = 509
     Height = 389
-    ActivePage = TabSheet4
+    ActivePage = TabSheet3
     MultiLine = True
-    TabIndex = 8
+    TabIndex = 4
     TabOrder = 0
     OnChange = OptionTabChange
     object ConnectSheet: TTabSheet
@@ -697,12 +697,12 @@ object OptionDialog: TOptionDialog
         Left = 12
         Top = 8
         Width = 477
-        Height = 78
+        Height = 64
         Caption = #34920#31034#35373#23450
         TabOrder = 0
         object ThreadListIconCheckBox: TCheckBox
           Left = 12
-          Top = 24
+          Top = 16
           Width = 217
           Height = 17
           Caption = #12473#12524#12483#12489#26356#26032#12450#12452#12467#12531#12434#34920#31034#12377#12427'(&I)'
@@ -710,7 +710,7 @@ object OptionDialog: TOptionDialog
         end
         object NonAcquiredCountCheckBox: TCheckBox
           Left = 12
-          Top = 48
+          Top = 40
           Width = 217
           Height = 17
           Caption = #21462#24471#25968#12398#20195#12431#12426#12395#26410#21462#24471#25968#12434#34920#31034#12377#12427
@@ -719,14 +719,14 @@ object OptionDialog: TOptionDialog
       end
       object GroupBox16: TGroupBox
         Left = 12
-        Top = 90
+        Top = 76
         Width = 477
-        Height = 81
+        Height = 64
         Caption = #12473#12524#20316#25104#26085#26178#34920#31034#35373#23450
         TabOrder = 1
         object CreationTimeLogsCheckBox: TCheckBox
           Left = 12
-          Top = 24
+          Top = 16
           Width = 217
           Height = 17
           Caption = #12525#12464#26377#12426#12473#12524#12483#12489#12398#12415#34920#31034
@@ -734,7 +734,7 @@ object OptionDialog: TOptionDialog
         end
         object FutureThreadCheckBox: TCheckBox
           Left = 12
-          Top = 48
+          Top = 40
           Width = 265
           Height = 17
           Caption = #26085#20184#12364#26410#26469#12398#12418#12398#12399#34920#31034#12375#12394#12356#65288'492'#12473#12524#31995#65289
@@ -743,9 +743,9 @@ object OptionDialog: TOptionDialog
       end
       object GroupBox5: TGroupBox
         Left = 12
-        Top = 175
+        Top = 145
         Width = 477
-        Height = 89
+        Height = 86
         Caption = #12502#12521#12454#12470#12398#26368#22823#21270
         TabOrder = 2
         object BrowserMaxLabel: TLabel
@@ -771,9 +771,9 @@ object OptionDialog: TOptionDialog
       end
       object GroupBox17: TGroupBox
         Left = 12
-        Top = 268
+        Top = 236
         Width = 477
-        Height = 65
+        Height = 63
         Caption = #12502#12521#12454#12470#12479#12502#38750#34920#31034#26178#35373#23450
         TabOrder = 3
         object SelectIntervalLabel: TLabel
@@ -807,6 +807,31 @@ object OptionDialog: TOptionDialog
           Text = 'SelectIntervalEdit'
         end
       end
+      object GroupBox18: TGroupBox
+        Left = 12
+        Top = 302
+        Width = 477
+        Height = 41
+        Caption = 'dat'#33853#12385#12473#12524#12477#12540#12488#38918
+        TabOrder = 4
+        object DatOchiSortCombo: TComboBox
+          Left = 12
+          Top = 15
+          Width = 229
+          Height = 20
+          Style = csDropDownList
+          ItemHeight = 12
+          ItemIndex = 0
+          TabOrder = 0
+          Text = #20006#12403#26367#12360#12375#12394#12356
+          Items.Strings = (
+            #20006#12403#26367#12360#12375#12394#12356
+            #21462#24471#26085#26178'('#26119#38918')'
+            #21462#24471#26085#26178'('#38477#38918')'
+            #12473#12524#20316#25104#26085#26178'('#26119#38918')'
+            #12473#12524#20316#25104#26085#26178'('#38477#38918')')
+        end
+      end
     end
     object ThreadSheet: TTabSheet
       Caption = #12473#12524#12483#12489#65297
@@ -1390,33 +1415,33 @@ object OptionDialog: TOptionDialog
         end
         object ReplaceulCheckBox: TCheckBox
           Left = 12
-          Top = 68
+          Top = 66
           Width = 221
-          Height = 26
+          Height = 17
           Caption = '<ul>'#12479#12464#12434'<br>'#12479#12464#12395#32622#25563#12377#12427'(&R)'
           TabOrder = 1
         end
         object PopUpAbonCheckBox: TCheckBox
           Left = 12
-          Top = 92
+          Top = 88
           Width = 221
-          Height = 26
+          Height = 17
           Caption = #12524#12473#12509#12483#12503#12450#12483#12503#26178#12398#12354#12412#65374#12435#26377#21177'(&P)'
           TabOrder = 2
         end
         object ShowNGLineCheckBox: TCheckBox
           Left = 12
-          Top = 116
+          Top = 110
           Width = 181
-          Height = 26
+          Height = 17
           Caption = 'NG'#12501#12449#12452#12523#12398#34892#25968#12434#34920#31034'(&N)'
           TabOrder = 3
         end
         object AddResAnchorCheckBox: TCheckBox
           Left = 12
-          Top = 140
+          Top = 132
           Width = 205
-          Height = 26
+          Height = 17
           Caption = #65326#65319#12524#12473#12408#12398#12524#12473#12450#12531#12459#12540#12398#36861#21152'(&A)'
           TabOrder = 4
         end

diff --git a/Option.pas b/Option.pas
index 8e3408b..1eaf91e 100644 (file)
--- a/Option.pas
+++ b/Option.pas
@@ -193,6 +193,8 @@ type
     CloseTabAutoSave: TCheckBox;
                OpenTabAutoLoad: TCheckBox;
                ResRangeHoldComboBox: TComboBox;
+    GroupBox18: TGroupBox;
+    DatOchiSortCombo: TComboBox;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure ApplyButtonClick(Sender: TObject);
@@ -793,9 +795,22 @@ begin
        CreationTimeLogsCheckBox.Checked := GikoSys.Setting.CreationTimeLogs;
        FutureThreadCheckBox.Checked := GikoSys.Setting.FutureThread;
        SelectIntervalEdit.Text := IntToStr(GikoSys.Setting.SelectInterval);
-       
-       //\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©
-       //ExistLogCheckBox.Checked :=
+
+       //dat\97\8e\82¿\83X\83\8c\83\\81[\83g\8f\87
+       case GikoSys.Setting.DatOchiSortIndex of
+               6:
+                       if GikoSys.Setting.DatOchiSortOrder then
+                               DatOchiSortCombo.ItemIndex := 1
+                       else
+                               DatOchiSortCombo.ItemIndex := 2;
+               7:
+                       if GikoSys.Setting.DatOchiSortOrder then
+                               DatOchiSortCombo.ItemIndex := 3
+                       else
+                               DatOchiSortCombo.ItemIndex := 4;
+       else
+               DatOchiSortCombo.ItemIndex := 0;
+       end;
 
        //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8aÔ\8eg\97p\90Ý\92è
        PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;
@@ -1021,7 +1036,28 @@ begin
                GikoSys.Setting.SelectInterval := StrToIntDef(SelectIntervalEdit.Text, 110)
        else
                GikoSys.Setting.SelectInterval := 55;
-               
+
+       //dat\97\8e\82¿\83X\83\8c\83\\81[\83g\8f\87
+       case DatOchiSortCombo.ItemIndex of
+               0: GikoSys.Setting.DatOchiSortIndex := -1;      //\95À\82Ñ\91Ö\82¦\82µ\82È\82¢
+               1: begin        //\8eæ\93¾\93ú\8e\9e(\8f¸\8f\87)
+                       GikoSys.Setting.DatOchiSortOrder := true;
+                       GikoSys.Setting.DatOchiSortIndex := 6;
+                  end;
+               2: begin        //\8eæ\93¾\93ú\8e\9e(\8d~\8f\87)
+                       GikoSys.Setting.DatOchiSortOrder := false;
+                       GikoSys.Setting.DatOchiSortIndex := 6;
+                  end;
+               3: begin        //\83X\83\8c\8dì\90¬\93ú\8e\9e(\8f¸\8f\87)
+                       GikoSys.Setting.DatOchiSortOrder := true;
+                       GikoSys.Setting.DatOchiSortIndex := 7;
+                  end;
+               4: begin        //\83X\83\8c\8dì\90¬\93ú\8e\9e(\8d~\8f\87)
+                       GikoSys.Setting.DatOchiSortOrder := false;
+                       GikoSys.Setting.DatOchiSortIndex := 7;
+                  end;
+       end;
+
        //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8aÔ\8eg\97p\90Ý\92è
        GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;
        if GikoSys.IsNumeric(PostTimeEdit.Text) then

diff --git a/Setting.pas b/Setting.pas
index 0ebe0df..1093955 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -221,6 +221,10 @@ type
                FBoardSortIndex: Integer;
                FBoardSortOrder: Boolean;
 
+               //Dat\97\8e\82¿\83X\83\8c\83\\81[\83g\8f\87
+               FDatOchiSortIndex: Integer;
+               FDatOchiSortOrder: Boolean;
+
                //\8di\8d\9e\82Ý\95¶\8e\9a\97ñ
                FSelectTextList: TStringList;
 
@@ -528,6 +532,9 @@ type
                property BoardSortIndex: Integer read FBoardSortIndex write FBoardSortIndex;
                property BoardSortOrder: Boolean read FBoardSortOrder write FBoardSortOrder;
 
+               property DatOchiSortIndex: Integer read FDatOchiSortIndex write FDatOchiSortIndex;
+               property DatOchiSortOrder: Boolean read FDatOchiSortOrder write FDatOchiSortOrder;
+
                //property BoardURL2ch: string read FBoardURL2ch write FBoardURL2ch;
                property BoardURLs: TStringList read FBoardURLs write FBoardURLs;
                property BoardURLSelected: Integer read FBoardURLSelected write FBoardURLSelected;
@@ -956,6 +963,9 @@ begin
                FCategorySortOrder := ini.ReadBool('ThreadList', 'CategorySortOrder', False);
                FBoardSortIndex := ini.ReadInteger('ThreadList', 'BoardSortIndex', 0);
                FBoardSortOrder := ini.ReadBool('ThreadList', 'BoardSortOrder', False);
+               //Dat\97\8e\82¿\83X\83\8c\83\\81[\83g\8f\87
+               FDatOchiSortIndex := ini.ReadInteger('ThreadList', 'DatOchiSortIndex', -1);
+               FDatOchiSortOrder := ini.ReadBool('ThreadList', 'DatOchiSortOrder', False);
 
                //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8d\8f\8eg\97p\90Ý\92è
                FUseMachineTime := ini.ReadBool('PostTime', 'UseMachineTime', False);
@@ -1252,6 +1262,8 @@ begin
                ini.WriteBool('ThreadList', 'CategorySortOrder', FCategorySortOrder);
                ini.WriteInteger('ThreadList', 'BoardSortIndex', FBoardSortIndex);
                ini.WriteBool('ThreadList', 'BoardSortOrder', FBoardSortOrder);
+               ini.WriteInteger('ThreadList', 'DatOchiSortIndex', FDatOchiSortIndex);
+               ini.WriteBool('ThreadList', 'DatOchiSortOrder', FDatOchiSortOrder);
 
                //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8d\8f\8eg\97p\90Ý\92è
                ini.WriteBool('PostTime', 'UseMachineTime', FUseMachineTime);

diff --git a/readme/readme.txt b/readme/readme.txt
index dc3a594..00fd4aa 100644 (file)
--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -107,6 +107,7 @@ Windows Server 2003 Enterprise Edition IE6
   \83X\83\8c\88ê\97\97\82Ì\83\\81[\83g\8f\87\82ð\95Û\91¶\82·\82é\82æ\82¤\82É\82µ\82½
 \81@\83\8c\83X\82Ì\8dÅ\90V100\83\8c\83X\82Ì\82Ý\95\\8e¦\82É\89Á\82¦\82Ä\96¢\93Ç\82Ì\82Ý\95\\8e¦\81A\90V\92\85\82Ì\82Ý\95\\8e¦\82ð\92Ç\89Á\81B
 \81@\82 \82Ú\81[\82ñ\8e\9e\82É\83R\83R\82Ü\82Å\93Ç\82ñ\82¾\82Æ\90V\92\85\83\8c\83X\82ð\92²\90®\82·\82é\82æ\82¤\82É\82È\82Á\82½\81B
+  Dat\97\8e\82¿\82µ\82½\83X\83\8c\82Ì\83\\81[\83g\8f\87\82ð\8ew\92è\82Å\82«\82é\82æ\82¤\82É\82µ\82½
 
 2004/04/19
   Version ÊÞÀ47