Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Favorite.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 129 |
if GikoSys.Is2chHost( host ) then begin |
if GikoSys.Is2chHost( host ) then begin |
| 130 |
GikoSys.Parse2chURL( tmpURL, path, document, BBSID, BBSKey ); |
GikoSys.Parse2chURL( tmpURL, path, document, BBSID, BBSKey ); |
| 131 |
FItem := BBSs[ 0 ].FindBBSID( BBSID ); |
FItem := BBSs[ 0 ].FindBBSID( BBSID ); |
| 132 |
|
if FItem <> nil then |
| 133 |
|
URL := FItem.URL; |
| 134 |
end; |
end; |
| 135 |
{ |
{ |
| 136 |
// ※作っても、追加するカテゴリが無いので激しく保留 |
// ※作っても、追加するカテゴリが無いので激しく保留 |
| 208 |
FItem := board.FindThreadFromURL( browsableURL ); |
FItem := board.FindThreadFromURL( browsableURL ); |
| 209 |
|
|
| 210 |
if FItem = nil then begin |
if FItem = nil then begin |
| 211 |
|
tmpURL := URL; |
| 212 |
|
GikoSys.ParseURI( tmpURL, protocol, host, path, document, port, bookmark ); |
| 213 |
|
if GikoSys.Is2chHost( host ) then begin |
| 214 |
|
GikoSys.Parse2chURL( tmpURL, path, document, BBSID, BBSKey ); |
| 215 |
|
FItem := BBSs[ 0 ].FindThreadItem( BBSID, BBSKey + '.dat' ); |
| 216 |
|
if FItem <> nil then |
| 217 |
|
URL := FItem.URL; |
| 218 |
|
end; |
| 219 |
|
end; |
| 220 |
|
|
| 221 |
|
if FItem = nil then begin |
| 222 |
FItem := TThreadItem.Create( board.BoardPlugIn, browsableURL ); |
FItem := TThreadItem.Create( board.BoardPlugIn, browsableURL ); |
| 223 |
|
|
| 224 |
FItem.Title := Title; |
FItem.Title := Title; |
|
|
Legend:
| Removed from v.1.30 |
|
| changed lines |
| |
Added in v.1.31 |
|
|
| |