| 1539 |
if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then |
if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then |
| 1540 |
GikoSys.ListBoardFile; |
GikoSys.ListBoardFile; |
| 1541 |
|
|
| 1542 |
|
|
| 1543 |
// メニューに追加 |
// メニューに追加 |
| 1544 |
SetBBSMenu; |
SetBBSMenu; |
| 1545 |
|
|
| 1761 |
// 起動時に保存されてしまう対策 3 |
// 起動時に保存されてしまう対策 3 |
| 1762 |
FIsIgnoreResize := rtResizing; |
FIsIgnoreResize := rtResizing; |
| 1763 |
|
|
| 1764 |
|
// すべてのBBSを読み込んでおく |
| 1765 |
|
for i := Length(BBSs) - 1 downto 0 do begin |
| 1766 |
|
if not BBSs[i].IsBoardFileRead then |
| 1767 |
|
GikoSys.ReadBoardFile(BBSs[i]); |
| 1768 |
|
end; |
| 1769 |
|
|
| 1770 |
//引数があったらスレを開く(未取得ならダウンロード) |
//引数があったらスレを開く(未取得ならダウンロード) |
| 1771 |
for i := 1 to ParamCount do begin |
for i := 1 to ParamCount do begin |
| 2197 |
except |
except |
| 2198 |
end; |
end; |
| 2199 |
|
|
| 2200 |
|
for i := Length(BoardGroups) - 1 downto 0 do begin |
| 2201 |
|
BoardGroups[i].Clear; |
| 2202 |
|
end; |
| 2203 |
|
|
| 2204 |
try |
try |
| 2205 |
for i := Length( BoardPlugIns ) - 1 downto 0 do begin |
for i := Length( BoardPlugIns ) - 1 downto 0 do begin |
| 2206 |
if BoardPlugIns[ i ] <> nil then |
if BoardPlugIns[ i ] <> nil then |
| 2308 |
ActiveList := nil; |
ActiveList := nil; |
| 2309 |
|
|
| 2310 |
FTreeType := gttNone; |
FTreeType := gttNone; |
| 2311 |
GikoSys.FBoardURLList.Clear; |
//GikoSys.FBoardURLList.Clear; |
| 2312 |
|
for i := Length(BoardGroups) - 1 downto 0 do begin |
| 2313 |
|
BoardGroups[i].Clear; |
| 2314 |
|
end; |
| 2315 |
GikoSys.ListBoardFile; //ボードファイル読込 |
GikoSys.ListBoardFile; //ボードファイル読込 |
| 2316 |
|
|
| 2317 |
// BBS メニューの更新 |
// BBS メニューの更新 |
| 7622 |
//===== プラグイン |
//===== プラグイン |
| 7623 |
try |
try |
| 7624 |
//作業中// |
//作業中// |
| 7625 |
bi := High( BoardPlugIns ); |
//bi := High( BoardPlugIns ); |
| 7626 |
for i := Low( BoardPlugIns ) to bi do begin |
bi := Length(BoardGroups) - 1; |
| 7627 |
if Assigned( Pointer( BoardPlugIns[ i ].Module ) ) then begin |
//for i := Low( BoardPlugIns ) to bi do begin |
| 7628 |
case BoardPlugIns[ i ].AcceptURL( inURL ) of |
for i := 1 to bi do begin |
| 7629 |
|
//if Assigned( Pointer( BoardPlugIns[ i ].Module ) ) then begin |
| 7630 |
|
if (BoardGroups[i].BoardPlugIn <> nil) and (Assigned(Pointer(BoardGroups[i].BoardPlugIn.Module))) then begin |
| 7631 |
|
case BoardGroups[i].BoardPlugIn.AcceptURL( inURL ) of |
| 7632 |
atThread: |
atThread: |
| 7633 |
begin |
begin |
| 7634 |
boardURL := BoardPlugIns[ i ].ExtractBoardURL( inURL ); |
boardURL := BoardGroups[i].BoardPlugIn.ExtractBoardURL( inURL ); |
| 7635 |
Board := BBSsFindBoardFromURL( boardURL ); |
Board := BBSsFindBoardFromURL( boardURL ); |
| 7636 |
tmpThread := TThreadItem.Create( BoardPlugIns[ i ], Board, inURL ); |
tmpThread := TThreadItem.Create( BoardGroups[i].BoardPlugIn, Board, inURL ); |
| 7637 |
|
|
| 7638 |
if Board = nil then begin |
if Board = nil then begin |
| 7639 |
//break; |
//break; |
| 7683 |
|
|
| 7684 |
atBoard: |
atBoard: |
| 7685 |
begin |
begin |
| 7686 |
tmpBoard := TBoard.Create(BoardPlugIns[ i ], inURL); |
tmpBoard := TBoard.Create(BoardGroups[i].BoardPlugIn, inURL); |
| 7687 |
Board := BBSsFindBoardFromURL( tmpBoard.URL ); |
Board := BBSsFindBoardFromURL( tmpBoard.URL ); |
| 7688 |
tmpBoard.Free; |
tmpBoard.Free; |
| 7689 |
if Board <> nil then begin |
if Board <> nil then begin |