| 1858 |
procedure TGikoForm.ReloadBBS; |
procedure TGikoForm.ReloadBBS; |
| 1859 |
var |
var |
| 1860 |
i : Integer; |
i : Integer; |
| 1861 |
item : TBBSMenuItem; |
item : TBBSMenuItem; |
| 1862 |
begin |
begin |
| 1863 |
//タブクローズ |
//タブクローズ |
| 1864 |
NotSelectTabCloseAction.Execute; |
NotSelectTabCloseAction.Execute; |
| 6223 |
category.Title := '(名称不明)'; |
category.Title := '(名称不明)'; |
| 6224 |
category.Add( Board ); |
category.Add( Board ); |
| 6225 |
// ※激しく保留中 |
// ※激しく保留中 |
| 6226 |
//BBS2ch.Add( category ); |
BBSs[ 0 ].Add( category ); |
| 6227 |
|
|
| 6228 |
if FTreeType = gtt2ch then begin |
if FTreeType = gtt2ch then begin |
| 6229 |
// 板リストに登録されていないのでツリーに追加 |
// 板リストに登録されていないのでツリーに追加 |
| 6288 |
GikoSys.Parse2chURL( URL, path, document, BBSID, BBSKey ); |
GikoSys.Parse2chURL( URL, path, document, BBSID, BBSKey ); |
| 6289 |
|
|
| 6290 |
if (Length( Trim(BBSKey) ) > 0) and (Length( Trim(BBSID) ) > 0) then begin |
if (Length( Trim(BBSKey) ) > 0) and (Length( Trim(BBSID) ) > 0) then begin |
| 6291 |
Board := BBSsFindBoardFromURL( GikoSys.Get2chThreadURL2BoardURL( URL ) ); |
boardURL := GikoSys.Get2chThreadURL2BoardURL( URL ); |
| 6292 |
if Board = nil then begin |
Board := BBSsFindBoardFromURL( boardURL ); |
| 6293 |
GikoSys.OpenBrowser(URL, gbtAuto); |
if Board = nil then |
| 6294 |
Exit; |
Board := BBSsFindBoardFromBBSID( BBSID ); |
| 6295 |
end; |
if Board = nil then |
| 6296 |
|
// ※作っても追加するところが無いので激しく保留 |
| 6297 |
|
Board := TBoard.Create( nil, boardURL ); |
| 6298 |
if not Board.IsThreadDatRead then |
if not Board.IsThreadDatRead then |
| 6299 |
GikoSys.ReadSubjectFile(Board); |
GikoSys.ReadSubjectFile(Board); |
| 6300 |
ThreadItem := Board.FindThreadFromURL( URL ); |
ThreadItem := Board.FindThreadFromURL( URL ); |