Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Favorite.pas

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

revision 1.46 by h677, Tue Sep 28 11:59:38 2004 UTC revision 1.46.4.1 by h677, Wed May 4 06:26:03 2005 UTC
# Line 136  begin Line 136  begin
136                                                  case BoardPlugIns[ i ].AcceptURL( URL ) of                                                  case BoardPlugIns[ i ].AcceptURL( URL ) of
137                                                  atThread:                                                  atThread:
138                                                          begin                                                          begin
139                                                                  tmpThread               := TThreadItem.Create( BoardPlugIns[ i ], URL );                                  FItem                   := BBSsFindBoardFromURL(BoardPlugIns[ i ].ExtractBoardURL(URL));
140                                                                  boardURL                := tmpThread.BoardPlugIn.GetBoardURL( DWORD( tmpThread ) );                                                                  //tmpThread             := TThreadItem.Create( BoardPlugIns[ i ], FItem, URL );
141                                                                  FItem                           := BBSsFindBoardFromURL( boardURL );                                                                  //boardURL              := tmpThread.BoardPlugIn.GetBoardURL( DWORD( tmpThread ) );
142                                                                    //FItem                         := BBSsFindBoardFromURL( boardURL );
143                                                                  URL := FItem.URL;                                                                  URL := FItem.URL;
144                                                                  tmpThread.Free;                                                                  //tmpThread.Free;
145                                                                  break;                                                                  break;
146                                                          end;                                                          end;
147                                                  atBoard:                                                  atBoard:
148                                                          begin                                                          begin
149                                                                  tmpBoard := TBoard.Create(BoardPlugIns[ i ], URL);                                                                  //tmpBoard := TBoard.Create(BoardPlugIns[ i ], URL);
150                                                                  FItem := BBSsFindBoardFromURL( tmpBoard.URL );                                                                  FItem := BBSsFindBoardFromURL( BoardPlugIns[ i ].ExtractBoardURL(URL) );
151                                                                  tmpBoard.Free;                                                                  //tmpBoard.Free;
152                                                                  if FItem <> nil then begin                                                                  if FItem <> nil then begin
153                                                                          URL := FItem.URL;                                                                          URL := FItem.URL;
154                                                                  end;                                                                  end;
# Line 256  begin Line 257  begin
257                  end;                  end;
258    
259                  if FItem = nil then begin                  if FItem = nil then begin
260                          FItem := TThreadItem.Create( board.BoardPlugIn, browsableURL );                          FItem := TThreadItem.Create( board.BoardPlugIn, board, browsableURL );
261    
262                          FItem.Title := Title;                          FItem.Title := Title;
263                          board.Add( FItem );                          board.Add( FItem );
# Line 435  begin Line 436  begin
436                                                  if threadItem = nil then begin                                                  if threadItem = nil then begin
437                                                          threadItem := TThreadItem.Create(                                                          threadItem := TThreadItem.Create(
438                                                                  board.BoardPlugIn,                                                                  board.BoardPlugIn,
439                                    board,
440                                                                  GikoSys.Get2chBoard2ThreadURL( board, ChangeFileExt( Node.Attributes[ 'thread' ], '' ) ) );                                                                  GikoSys.Get2chBoard2ThreadURL( board, ChangeFileExt( Node.Attributes[ 'thread' ], '' ) ) );
441                                                          threadItem.Title := Node.Attributes[ 'title' ];                                                          threadItem.Title := Node.Attributes[ 'title' ];
442                                                          board.Add( threadItem );                                                          board.Add( threadItem );

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.46.4.1

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