Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Favorite.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 150 |
|
|
| 151 |
function TFavoriteThreadItem.GetItem : TThreadItem; |
function TFavoriteThreadItem.GetItem : TThreadItem; |
| 152 |
var |
var |
| 153 |
board : TBoard; |
board : TBoard; |
| 154 |
boardURL : string; |
boardURL : string; |
| 155 |
|
browsableURL : string; |
| 156 |
begin |
begin |
| 157 |
|
|
| 158 |
if FItem = nil then begin |
if FItem = nil then begin |
| 159 |
boardURL := GikoSys.GetThreadURL2BoardURL( URL ); |
browsableURL := GikoSys.GetBrowsableThreadURL( URL ); |
| 160 |
|
boardURL := GikoSys.GetThreadURL2BoardURL( browsableURL ); |
| 161 |
board := BBSsFindBoardFromURL( boardURL ); |
board := BBSsFindBoardFromURL( boardURL ); |
| 162 |
|
|
| 163 |
if board = nil then |
if board = nil then |
| 165 |
// ※作っても、追加するカテゴリが無いので激しく保留 |
// ※作っても、追加するカテゴリが無いので激しく保留 |
| 166 |
//board := GikoSys.GetUnknownBoard( nil, boardURL ) |
//board := GikoSys.GetUnknownBoard( nil, boardURL ) |
| 167 |
else |
else |
| 168 |
FItem := board.FindThreadFromURL( URL ); |
FItem := board.FindThreadFromURL( browsableURL ); |
| 169 |
|
|
| 170 |
if FItem = nil then begin |
if FItem = nil then begin |
| 171 |
FItem := TThreadItem.Create( board.BoardPlugIn, URL ); |
FItem := TThreadItem.Create( board.BoardPlugIn, browsableURL ); |
| 172 |
|
|
| 173 |
FItem.Title := Title; |
FItem.Title := Title; |
| 174 |
board.Add( FItem ); |
board.Add( FItem ); |
|
|
Legend:
| Removed from v.1.16 |
|
| changed lines |
| |
Added in v.1.17 |
|
|
|