Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.511.2.1 by h677, Wed May 4 06:25:59 2005 UTC revision 1.511.2.2 by h677, Sat May 14 16:11:26 2005 UTC
# Line 1539  begin Line 1539  begin
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    
# Line 1760  begin Line 1761  begin
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
# Line 2191  begin Line 2197  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
# Line 2298  begin Line 2308  begin
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 メニューの更新
# Line 7609  begin Line 7622  begin
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;
# Line 7667  begin Line 7683  begin
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

Legend:
Removed from v.1.511.2.1  
changed lines
  Added in v.1.511.2.2

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26