タブに表示されているスレッドの一覧をスレッド一覧に表示する機能を作成

[gikonavigoeson/gikonavi.git] / GikoSystem.pas

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 5e8b832..a1a644a 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -2509,6 +2509,8 @@ procedure TGikoSys.ListBoardFile;
 var
        boardFileList   : TStringList;
        i, l                    : Integer;
+    sCategory       : TCategory;
+    sBoard          : TBoard;
 begin
        // BBS \82Ì\8aJ\95ú
        try
@@ -2551,6 +2553,19 @@ begin
                BoardFileList.Free;
          end;
        end;
+
+    // \93Á\8eê\97p\93rBBS\90¶\90¬
+    // \8aù\82É\91¶\8dÝ\82·\82é\8fê\8d\87\82Í\8dí\8f\9c\82·\82é
+    DestorySpecialBBS(BoardGroup.SpecialBBS);
+    SpecialBBS := TBBS.Create('');
+    SpecialBBS.Title := '\93Á\8eê\97p\93r(\94ñ\95\\8e¦)';
+    sCategory := TCategory.Create;
+    sCategory.No := 1;
+    sCategory.Title := '\93Á\8eê\97p\93r(\94ñ\95\\8e¦)';
+    SpecialBBS.Add(sCategory);
+    sBoard := TSpecialBoard.Create(nil, 'http://localhost/gikonavi/special/index.html');
+    sBoard.IsThreadDatRead := True;
+    sCategory.Add(sBoard);
 end;
 
 {!