スレ作成日をログアリのみ、未来スレは表示しないというオプションを追加

diff --git a/BoardGroup.pas b/BoardGroup.pas
index b951c79..b115433 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -1749,12 +1749,21 @@ var
 begin
        // \83t\83@\83C\83\8b\96¼\82©\82ç\83X\83\8c\8dì\90¬\93ú\8e\9e\82ð\8b\81\82ß\82é
     try
-               // \83\8d\83O\83t\83@\83C\83\8b\82Ì\8ag\92£\8eq\82ð\82Í\82¸\82µ\82½\82à\82Ì\82ª\83X\83\8c\8dì\90¬\93ú\8e\9e
-        tmp := ChangeFileExt(FFileName, '');
-        if ( Length(tmp) = 9) and ( tmp[1] = '0' ) then
-               Insert('1', tmp, 1);
-        unixtime := StrToInt64(tmp);
-        Result := UnixToDateTime(unixtime) + OffsetFromUTC;
+        if ( GikoSys.Setting.CreationTimeLogs ) and not IsLogFile  then
+            Result := ZERO_DATE
+        else begin
+            // \83\8d\83O\83t\83@\83C\83\8b\82Ì\8ag\92£\8eq\82ð\82Í\82¸\82µ\82½\82à\82Ì\82ª\83X\83\8c\8dì\90¬\93ú\8e\9e
+               tmp := ChangeFileExt(FFileName, '');
+           if ( Length(tmp) = 9) and ( tmp[1] = '0' ) then
+                       Insert('1', tmp, 1);
+               unixtime := StrToInt64(tmp);
+               Result := UnixToDateTime(unixtime) + OffsetFromUTC;
+                       if GikoSys.Setting.FutureThread then begin
+                       if CompareDateTime(Result, Now) = 1 then
+                       Result := ZERO_DATE;
+               end;
+        end;
+
        except
                on E: Exception do
                        Result := ZERO_DATE;

diff --git a/Giko.dfm b/Giko.dfm
index 4484b1f..04e4934 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 39
-  Top = 96
+  Left = 413
+  Top = 238
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False

diff --git a/Giko.pas b/Giko.pas
index bf2cfc4..c87e473 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -2315,10 +2315,11 @@ begin
                        Item.SubItems[3] := '';
                        Item.SubItems[4] := '';
                        Item.SubItems[5] := '';
-            if ThreadItem.CreateDate = ZERO_DATE then begin
-                               Item.SubItems[6] := '';
-                       end else
-                               Item.SubItems[6] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.CreateDate);
+            if not GikoSys.Setting.CreationTimeLogs then
+               if ThreadItem.CreateDate = ZERO_DATE then
+                                       Item.SubItems[6] := ''
+                               else
+                                       Item.SubItems[6] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.CreateDate);
 
                end;
 

diff --git a/Option.dfm b/Option.dfm
index 445c427..e17b613 100644 (file)
--- a/Option.dfm
+++ b/Option.dfm
@@ -1,6 +1,6 @@
 object OptionDialog: TOptionDialog
-  Left = 492
-  Top = 293
+  Left = 508
+  Top = 505
   BorderStyle = bsDialog
   Caption = #12458#12503#12471#12519#12531
   ClientHeight = 428
@@ -44,9 +44,9 @@ object OptionDialog: TOptionDialog
     Top = 4
     Width = 509
     Height = 389
-    ActivePage = UserIDSheet
+    ActivePage = TabSheet3
     MultiLine = True
-    TabIndex = 11
+    TabIndex = 4
     TabOrder = 0
     OnChange = OptionTabChange
     object ConnectSheet: TTabSheet
@@ -660,7 +660,7 @@ object OptionDialog: TOptionDialog
           Top = 43
           Width = 417
           Height = 20
-          ItemHeight = 0
+          ItemHeight = 12
           TabOrder = 0
           Text = 'BoardURLComboBox'
         end
@@ -702,6 +702,30 @@ object OptionDialog: TOptionDialog
           TabOrder = 0
         end
       end
+      object GroupBox16: TGroupBox
+        Left = 8
+        Top = 80
+        Width = 481
+        Height = 81
+        Caption = #12473#12524#20316#25104#26085#34920#31034#35373#23450
+        TabOrder = 1
+        object CreationTimeLogsCheckBox: TCheckBox
+          Left = 16
+          Top = 24
+          Width = 217
+          Height = 17
+          Caption = #12525#12464#26377#12426#12473#12524#12483#12489#12398#20316#25104#26085#12398#12415#34920#31034
+          TabOrder = 0
+        end
+        object FutureThreadCheckBox: TCheckBox
+          Left = 16
+          Top = 48
+          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
+          TabOrder = 1
+        end
+      end
     end
     object NGwordSheet: TTabSheet
       Caption = #12354#12412#65374#12435

diff --git a/Option.pas b/Option.pas
index 0750dae..d6778c8 100644 (file)
--- a/Option.pas
+++ b/Option.pas
@@ -179,6 +179,9 @@ type
     OddResNumColorBox: TColorBox;
     ForcedLoginCheckBox: TCheckBox;
     ForcedLoginLabel: TLabel;
+    GroupBox16: TGroupBox;
+    CreationTimeLogsCheckBox: TCheckBox;
+    FutureThreadCheckBox: TCheckBox;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure ApplyButtonClick(Sender: TObject);
@@ -733,6 +736,11 @@ begin
 
        //\83X\83\8c\83b\83h\88ê\97\97\8dX\90V\83A\83C\83R\83\93
        ThreadListIconCheckBox.Checked := GikoSys.Setting.ListIconVisible;
+    CreationTimeLogsCheckBox.Checked := GikoSys.Setting.CreationTimeLogs;
+    FutureThreadCheckBox.Checked := GikoSys.Setting.FutureThread;
+
+    //\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 :=
 
        //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8aÔ\8eg\97p\90Ý\92è
        PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;
@@ -908,6 +916,8 @@ begin
 
        //\83X\83\8c\83b\83h\88ê\97\97\8dX\90V\83A\83C\83R\83\93
        GikoSys.Setting.ListIconVisible := ThreadListIconCheckBox.Checked;
+    GikoSys.Setting.CreationTimeLogs := CreationTimeLogsCheckBox.Checked;
+    GikoSys.Setting.FutureThread := FutureThreadCheckBox.Checked;
 
        //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8aÔ\8eg\97p\90Ý\92è
        GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;

diff --git a/Setting.pas b/Setting.pas
index c187ea7..50f71ce 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -253,6 +253,11 @@ type
                //\83X\83\8c\83b\83h\88ê\97\97\8dX\90V\83A\83C\83R\83\93\95\\8e¦
                FListIconVisible: 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;
+
                //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8aÔ\8eg\97p\90Ý\92è
                FUseMachineTime: Boolean;
                FTimeAdjustSec: Integer;
@@ -504,6 +509,8 @@ type
                property PreviewWait: Integer read FPreviewWait write FPreviewWait;
 
                property ListIconVisible: Boolean read FListIconVisible write FListIconVisible;
+        property CreationTimeLogs: Boolean read FCreationTimeLogs write FCreationTimeLogs;
+        property FutureThread: Boolean read FFutureThread write FFutureThread;
 
                property UseMachineTime: Boolean read FUseMachineTime write FUseMachineTime;
                property TimeAdjustSec: Integer read FTimeAdjustSec write FTimeAdjustSec;
@@ -852,6 +859,8 @@ begin
 
                //\83X\83\8c\83b\83h\88ê\97\97\8dX\90V\83A\83C\83R\83\93
                FListIconVisible := ini.ReadBool('ThreadList', 'StateIconVisible', True);
+        FCreationTimeLogs := ini.ReadBool('ThreadList', 'CreationTimeLogs', True);
+        FFutureThread := ini.ReadBool('ThreadList', 'FutureThread', True);
 
                //\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);
@@ -1113,6 +1122,8 @@ begin
 
                //\83X\83\8c\83b\83h\88ê\97\97\8dX\90V\83A\83C\83R\83\93
                ini.WriteBool('ThreadList', 'StateIconVisible', FListIconVisible);
+        ini.WriteBool('ThreadList', 'CreationTimeLogs',FCreationTimeLogs);
+        ini.WriteBool('ThreadList', 'FutureThread', FFutureThread);
 
                //\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);