・custom.2ch の後継として、config\Board フォルダにあるファイルを全て外部板として扱うようになった。

　※custom.2ch も今のところ互換性のため残されている。

diff --git a/BoardGroup.pas b/BoardGroup.pas
index a8c9338..9ead564 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -517,16 +517,26 @@ var
        RoundItem: TRoundItem;
        BBSList: TStringList;
        CustomList: TStringList;
+  BoardFileList: TStringList;
 begin
        ini := TMemIniFile.Create('');
        BBSList := TStringList.Create;
        CustomList := TStringList.Create;
+       BoardFileList := TStringList.Create;
        try
                if FileExists(GikoSys.GetBoardFileName) then
                        BBSList.LoadFromFile(GikoSys.GetBoardFileName);
                if FileExists(GikoSys.GetCustomBoardFileName) then
                        CustomList.LoadFromFile(GikoSys.GetCustomBoardFileName);
                BBSList.AddStrings(CustomList);
+               if DirectoryExists(GikoSys.Setting.GetBoardDir) then begin
+                       GikoSys.GetFileList( GikoSys.Setting.GetBoardDir, '*', BoardFileList, True, True );
+                       for i := BoardFileList.Count - 1 downto 0 do begin
+                               CustomList.Clear;
+                               CustomList.LoadFromFile( BoardFileList[ i ] );
+                               BBSList.AddStrings( CustomList );
+                       end;
+               end;
                ini.SetStrings(BBSList);
 
                CategoryList := TStringList.Create;
@@ -588,6 +598,7 @@ begin
        finally
                BBSList.Free;
                CustomList.Free;
+               BoardFileList.Free;
                ini.Free;
        end;
 end;