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.114 by yoffy, Wed Nov 19 20:17:45 2003 UTC revision 1.115 by yoffy, Thu Nov 20 06:19:25 2003 UTC
# Line 5952  var Line 5952  var
5952          BBSKey: string;          BBSKey: string;
5953          Board: TBoard;          Board: TBoard;
5954          ThreadItem: TThreadItem;          ThreadItem: TThreadItem;
5955          i, bi : Integer;          i, bi                                   : Integer;
5956          boardURL : string;          boardURL                        : string;
5957          tmpThread : TThreadItem;          tmpThread                       : TThreadItem;
5958            category                        : TCategory;
5959            categoryNode    : TTreeNode;
5960            boardNode                       : TTreeNode;
5961  begin  begin
5962    
5963          //===== プラグイン          //===== プラグイン
# Line 5967  begin Line 5970  begin
5970                                          boardURL                := tmpThread.BoardPlugIn.GetBoardURL( DWORD( tmpThread ) );                                          boardURL                := tmpThread.BoardPlugIn.GetBoardURL( DWORD( tmpThread ) );
5971                                          Board                           := BBS2ch.FindBoardFromURL( boardURL );                                          Board                           := BBS2ch.FindBoardFromURL( boardURL );
5972                                          if Board = nil then begin                                          if Board = nil then begin
5973                                                  Board := TBoard.Create( tmpThread.BoardPlugIn, boardURL );                                                  Board                                           := TBoard.Create( tmpThread.BoardPlugIn, boardURL );
5974                                                  // 以下やり方が分からないから保留                                                  category                                := TCategory.Create;
5975                                                  //Category.Add( Board );                                                  category.Title  := '(名称不明)';
5976                                                  //BBS2ch.Add( Category );                                                  category.Add( Board );
5977                                                    BBS2ch.Add( category );
5978    
5979                                                    if FTreeType = gtt2ch then begin
5980                                                            // 板リストに登録されていないのでツリーに追加
5981                                                            // SetBoardTreeNode; 1 行で済ませてもよし
5982                                                            categoryNode                                                            := TreeView.Items.AddChild(
5983                                                                    TreeView.Items.GetFirstNode, category.Title );
5984                                                            categoryNode.Data                                               := category;
5985                                                            categoryNode.ImageIndex                 := ITEM_ICON_CATEGORY1;
5986                                                            categoryNode.SelectedIndex      := ITEM_ICON_CATEGORY2;
5987    
5988                                                            Board.BeginUpdate;
5989                                                            boardNode                                                                               :=
5990                                                                    TreeView.Items.AddChild( categoryNode, Board.Title );
5991                                                            boardNode.Data                                                  := Board;
5992                                                            boardNode.ImageIndex                            := ITEM_ICON_BOARD1;
5993                                                            boardNode.SelectedIndex                 := ITEM_ICON_BOARD2;
5994                                                            Board.LoadSettings;
5995                                                            Board.EndUpdate;
5996                                                    end;
5997                                          end else begin                                          end else begin
5998                                                  if not Board.IsThreadDatRead then                                                  if not Board.IsThreadDatRead then
5999                                                          GikoSys.ReadSubjectFile( Board );                                                          GikoSys.ReadSubjectFile( Board );
# Line 5983  begin Line 6006  begin
6006                                                  if ActiveList is TBoard then begin                                                  if ActiveList is TBoard then begin
6007                                                          if TBoard(ActiveList) = Board then                                                          if TBoard(ActiveList) = Board then
6008                                                                  ListView.Items.Count := ListView.Items.Count + 1;                                                                  ListView.Items.Count := ListView.Items.Count + 1;
                                                         InsertBrowserTab(ThreadItem);  
                                                         DownloadContent(ThreadItem);  
6009                                                  end;                                                  end;
6010                                                    InsertBrowserTab( ThreadItem );
6011                                                    DownloadContent( ThreadItem );
6012                                          end else begin                                          end else begin
6013                                                  tmpThread.Free;                                                  tmpThread.Free;
6014                                                  InsertBrowserTab( ThreadItem );                                                  InsertBrowserTab( ThreadItem );
# Line 5993  begin Line 6016  begin
6016                                                          DownloadContent( ThreadItem );                                                          DownloadContent( ThreadItem );
6017                                          end;                                          end;
6018    
   
6019                                          Exit;                                          Exit;
6020                                  end;                                  end;
6021                          end;                          end;
# Line 6028  begin Line 6050  begin
6050                          if ActiveList is TBoard then begin                          if ActiveList is TBoard then begin
6051                                  if TBoard(ActiveList) = Board then                                  if TBoard(ActiveList) = Board then
6052                                          ListView.Items.Count := ListView.Items.Count + 1;                                          ListView.Items.Count := ListView.Items.Count + 1;
                                 InsertBrowserTab(ThreadItem);  
                                 DownloadContent(ThreadItem);  
6053                          end;                          end;
6054                            InsertBrowserTab(ThreadItem);
6055                            DownloadContent(ThreadItem);
6056                  end else begin                  end else begin
6057                          if ThreadItem.IsLogFile then                          if ThreadItem.IsLogFile then
6058                                  InsertBrowserTab(ThreadItem)                                  InsertBrowserTab(ThreadItem)

Legend:
Removed from v.1.114  
changed lines
  Added in v.1.115

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