Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.244 by h677, Sun Jul 6 04:14:54 2008 UTC revision 1.245 by h677, Tue Jul 8 16:35:48 2008 UTC
# Line 2510  var Line 2510  var
2510          boardFileList   : TStringList;          boardFileList   : TStringList;
2511          i, l                    : Integer;          i, l                    : Integer;
2512      sCategory       : TCategory;      sCategory       : TCategory;
     sBoard          : TBoard;  
2513  begin  begin
2514          // BBS の開放          // BBS の開放
2515          try          try
# Line 2563  begin Line 2562  begin
2562      sCategory.No := 1;      sCategory.No := 1;
2563      sCategory.Title := '特殊用途(非表示)';      sCategory.Title := '特殊用途(非表示)';
2564      SpecialBBS.Add(sCategory);      SpecialBBS.Add(sCategory);
2565      sBoard := TSpecialBoard.Create(nil, 'http://localhost/gikonavi/special/index.html');      BoardGroup.SpecialBoard := TSpecialBoard.Create(nil, 'http://localhost/gikonavi/special/index.html');
2566      sBoard.IsThreadDatRead := True;      BoardGroup.SpecialBoard.Title := 'タブ一覧';
2567      sCategory.Add(sBoard);      BoardGroup.SpecialBoard.IsThreadDatRead := True;
2568        sCategory.Add(BoardGroup.SpecialBoard);
2569  end;  end;
2570    
2571  {!  {!

Legend:
Removed from v.1.244  
changed lines
  Added in v.1.245

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26