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.445 by yoffy, Wed Sep 29 14:03:29 2004 UTC revision 1.446 by h677, Wed Sep 29 14:22:11 2004 UTC
# Line 7524  begin Line 7524  begin
7524                                                  boardURL                := tmpThread.BoardPlugIn.GetBoardURL( DWORD( tmpThread ) );                                                  boardURL                := tmpThread.BoardPlugIn.GetBoardURL( DWORD( tmpThread ) );
7525                                                  Board                           := BBSsFindBoardFromURL( boardURL );                                                  Board                           := BBSsFindBoardFromURL( boardURL );
7526                                                  if Board = nil then begin                                                  if Board = nil then begin
7527                                //break;
7528                                                          // ※作っても追加するところが無いので激しく保留                                                          // ※作っても追加するところが無いので激しく保留
7529                                                          //GikoSys.OpenBrowser(inURL, gbtUserApp);                                                          //GikoSys.OpenBrowser(inURL, gbtUserApp);
7530                                                          //Exit;                                                          //Exit;
# Line 7537  begin Line 7538  begin
7538                                                                  GikoSys.ReadSubjectFile( Board );                                                                  GikoSys.ReadSubjectFile( Board );
7539                                                                  Exit;                                                                  Exit;
7540                                                          end;                                                          end;
7541                                                  end;                                                          ThreadItem := Board.FindThreadFromFileName( tmpThread.FileName );
7542                                                            if ThreadItem = nil then begin
7543                                                  ThreadItem := Board.FindThreadFromFileName( tmpThread.FileName );                                                                  ThreadItem := tmpThread;
7544                                                  if ThreadItem = nil then begin                                                                  Board.Insert( 0, ThreadItem );
7545                                                          ThreadItem := tmpThread;                                                                  if ActiveList is TBoard then begin
7546                                                          Board.Insert( 0, ThreadItem );                                                                          if TBoard(ActiveList) = Board then
7547                                                          if ActiveList is TBoard then begin                                                                                  ListView.Items.Count := ListView.Items.Count + 1;
7548                                                                  if TBoard(ActiveList) = Board then                                                                  end;
7549                                                                          ListView.Items.Count := ListView.Items.Count + 1;                                                                  GikoSys.GetPopupResNumber( inURL, stRes, edRes );
7550                                                          end;                                                                  browserRec := InsertBrowserTab( ThreadItem );
                                                         GikoSys.GetPopupResNumber( inURL, stRes, edRes );  
                                                         browserRec := InsertBrowserTab( ThreadItem );  
                                                         if (browserRec <> nil) and (stRes > 0) then  
                                                                 browserRec.Movement := IntToStr( stRes );  
                                                         DownloadContent( ThreadItem );  
                                                         Exit;  
                                                 end else begin  
                                                         tmpThread.Free;  
                                                         GikoSys.GetPopupResNumber( inURL, stRes, edRes );  
                                                         browserRec := InsertBrowserTab( ThreadItem );  
                                                         if ThreadItem.IsLogFile then begin  
                                                                 if (browserRec <> nil) and (stRes > 0) then  
                                                                         BrowserMovement( IntToStr( stRes ), browserRec );  
                                                         end else begin  
7551                                                                  if (browserRec <> nil) and (stRes > 0) then                                                                  if (browserRec <> nil) and (stRes > 0) then
7552                                                                          browserRec.Movement := IntToStr( stRes );                                                                          browserRec.Movement := IntToStr( stRes );
7553                                                                  DownloadContent( ThreadItem );                                                                  DownloadContent( ThreadItem );
7554                                                                    Exit;
7555                                                            end else begin
7556                                                                    tmpThread.Free;
7557                                                                    GikoSys.GetPopupResNumber( inURL, stRes, edRes );
7558                                                                    browserRec := InsertBrowserTab( ThreadItem );
7559                                                                    if ThreadItem.IsLogFile then begin
7560                                                                            if (browserRec <> nil) and (stRes > 0) then
7561                                                                                    BrowserMovement( IntToStr( stRes ), browserRec );
7562                                                                    end else begin
7563                                                                            if (browserRec <> nil) and (stRes > 0) then
7564                                                                                    browserRec.Movement := IntToStr( stRes );
7565                                                                            DownloadContent( ThreadItem );
7566                                                                    end;
7567                                                                    Exit;
7568                                                          end;                                                          end;
                                                         Exit;  
7569                                                  end;                                                  end;
   
                                                 //Exit;  
7570                                          end;                                          end;
7571    
7572                                  atBoard:                                  atBoard:

Legend:
Removed from v.1.445  
changed lines
  Added in v.1.446

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