Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Favorite.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 105 |
end; |
end; |
| 106 |
|
|
| 107 |
function TFavoriteBoardItem.GetItem : TBoard; |
function TFavoriteBoardItem.GetItem : TBoard; |
| 108 |
|
var |
| 109 |
|
category : TCategory; |
| 110 |
begin |
begin |
| 111 |
|
|
| 112 |
if FItem = nil then begin |
if FItem = nil then begin |
| 113 |
FItem := BBSsFindBoardFromURL( URL ); |
FItem := BBSsFindBoardFromURL( URL ); |
| 114 |
// 旧式のお気に入りとの互換性のため |
{ |
| 115 |
if FItem = nil then |
if FItem = nil then begin |
| 116 |
// ※作っても、追加するカテゴリが無いので激しく保留 |
// ※作っても、追加するカテゴリが無いので激しく保留 |
| 117 |
FItem := TBoard.Create( nil, URL ); |
FItem := GikoSys.GetUnknownBoard( nil, URL ); |
| 118 |
|
FItem.Title := Title; |
| 119 |
|
end; |
| 120 |
|
} |
| 121 |
end; |
end; |
| 122 |
|
|
| 123 |
Result := FItem; |
Result := FItem; |
| 159 |
board := BBSsFindBoardFromURL( boardURL ); |
board := BBSsFindBoardFromURL( boardURL ); |
| 160 |
|
|
| 161 |
if board = nil then |
if board = nil then |
| 162 |
|
Exit |
| 163 |
// ※作っても、追加するカテゴリが無いので激しく保留 |
// ※作っても、追加するカテゴリが無いので激しく保留 |
| 164 |
board := TBoard.Create( nil, boardURL ) |
//board := GikoSys.GetUnknownBoard( nil, boardURL ) |
| 165 |
else |
else |
| 166 |
FItem := board.FindThreadFromURL( URL ); |
FItem := board.FindThreadFromURL( URL ); |
| 167 |
|
|
|
|
Legend:
| Removed from v.1.15 |
|
| changed lines |
| |
Added in v.1.16 |
|
|
|