Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.148 by yoffy, Wed Nov 26 03:57:48 2003 UTC revision 1.149 by yoffy, Wed Nov 26 04:38:17 2003 UTC
# Line 1858  end; Line 1858  end;
1858  procedure TGikoForm.ReloadBBS;  procedure TGikoForm.ReloadBBS;
1859  var  var
1860          i                       : Integer;          i                       : Integer;
1861    item  : TBBSMenuItem;          item    : TBBSMenuItem;
1862  begin  begin
1863          //タブクローズ          //タブクローズ
1864          NotSelectTabCloseAction.Execute;          NotSelectTabCloseAction.Execute;
# Line 6223  begin Line 6223  begin
6223                                                          category.Title  := '(名称不明)';                                                          category.Title  := '(名称不明)';
6224                                                          category.Add( Board );                                                          category.Add( Board );
6225                                                          // ※激しく保留中                                                          // ※激しく保留中
6226                                                          //BBS2ch.Add( category );                                                          BBSs[ 0 ].Add( category );
6227    
6228                                                          if FTreeType = gtt2ch then begin                                                          if FTreeType = gtt2ch then begin
6229                                                                  // 板リストに登録されていないのでツリーに追加                                                                  // 板リストに登録されていないのでツリーに追加
# Line 6288  begin Line 6288  begin
6288          GikoSys.Parse2chURL( URL, path, document, BBSID, BBSKey );          GikoSys.Parse2chURL( URL, path, document, BBSID, BBSKey );
6289    
6290          if (Length( Trim(BBSKey) ) > 0) and (Length( Trim(BBSID) ) > 0) then begin          if (Length( Trim(BBSKey) ) > 0) and (Length( Trim(BBSID) ) > 0) then begin
6291                  Board := BBSsFindBoardFromURL( GikoSys.Get2chThreadURL2BoardURL( URL ) );                  boardURL := GikoSys.Get2chThreadURL2BoardURL( URL );
6292                  if Board = nil then begin                  Board := BBSsFindBoardFromURL( boardURL );
6293                          GikoSys.OpenBrowser(URL, gbtAuto);                  if Board = nil then
6294                          Exit;                          Board := BBSsFindBoardFromBBSID( BBSID );
6295                  end;                  if Board = nil then
6296                            // ※作っても追加するところが無いので激しく保留
6297                            Board := TBoard.Create( nil, boardURL );
6298                  if not Board.IsThreadDatRead then                  if not Board.IsThreadDatRead then
6299                          GikoSys.ReadSubjectFile(Board);                          GikoSys.ReadSubjectFile(Board);
6300                  ThreadItem := Board.FindThreadFromURL( URL );                  ThreadItem := Board.FindThreadFromURL( URL );

Legend:
Removed from v.1.148  
changed lines
  Added in v.1.149

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