| 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 |
//===== プラグイン |
//===== プラグイン |
| 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 ); |
| 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 ); |
| 6016 |
DownloadContent( ThreadItem ); |
DownloadContent( ThreadItem ); |
| 6017 |
end; |
end; |
| 6018 |
|
|
|
|
|
| 6019 |
Exit; |
Exit; |
| 6020 |
end; |
end; |
| 6021 |
end; |
end; |
| 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) |