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.515.2.3 by h677, Sun Jun 26 14:59:59 2005 UTC revision 1.515.2.4 by h677, Sun Jun 26 15:33:01 2005 UTC
# Line 2114  begin Line 2114  begin
2114          // TBoard, TThreadItem のデストラクタはプラグインに破棄を伝えるので          // TBoard, TThreadItem のデストラクタはプラグインに破棄を伝えるので
2115          // BoardPluteIns の開放より先に行うこと          // BoardPluteIns の開放より先に行うこと
2116      for i := Length(BoardGroups) - 1 downto 0 do begin      for i := Length(BoardGroups) - 1 downto 0 do begin
2117          BoardGroups[i].Clear;                  //BoardGroups[i].Clear;
2118                    BoardGroups[i].Free;
2119      end;      end;
2120    
2121          try          try
# Line 2211  var Line 2212  var
2212          i                       : Integer;          i                       : Integer;
2213          tmpBool: Boolean;          tmpBool: Boolean;
2214  begin  begin
2215        LockWindowUpdate(Self.Handle);
2216    
2217          //タブクローズ          //タブクローズ
2218          tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;          tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
2219          GikoSys.Setting.ShowDialogForAllTabClose := false;          GikoSys.Setting.ShowDialogForAllTabClose := false;
# Line 2233  begin Line 2236  begin
2236          end;          end;
2237    
2238          //履歴の保存と破棄          //履歴の保存と破棄
2239          SaveHistory;          try
2240          ClearHistory;                  SaveHistory;
2241                    ClearHistory;
2242            except
2243            end;
2244    
2245          //お気に入りの保存と破棄          //お気に入りの保存と破棄
2246          FavoriteDM.WriteFavorite;          try
2247          FavoriteDM.Clear;                  FavoriteDM.WriteFavorite;
2248                    FavoriteDM.Clear;
2249            except
2250            end;
2251    
2252          //板・スレ・PLUGINの破棄          //板・スレ・PLUGINの破棄
2253          for i := Length(BoardGroups) - 1 downto 0 do begin          for i := Length(BoardGroups) - 1 downto 0 do begin
2254                  BoardGroups[i].Clear;                  try
2255                            BoardGroups[i].Free;
2256                    except
2257                    end;
2258          end;          end;
2259          //BBS破棄          //BBS破棄
2260          try          try
# Line 2257  begin Line 2269  begin
2269          ActiveList := nil;          ActiveList := nil;
2270    
2271          FTreeType := gttNone;          FTreeType := gttNone;
         //GikoSys.FBoardURLList.Clear;  
2272    
2273          //============ここから下で、再生================================//          //============ここから下で、再生================================//
2274    
# Line 2289  begin Line 2300  begin
2300          RoundList.LoadRoundBoardFile;          RoundList.LoadRoundBoardFile;
2301          RoundList.LoadRoundThreadFile;          RoundList.LoadRoundThreadFile;
2302    
2303            LockWindowUpdate(0);
2304          //          //
2305          TabsOpenAction.Execute;          TabsOpenAction.Execute;
2306  end;  end;

Legend:
Removed from v.1.515.2.3  
changed lines
  Added in v.1.515.2.4

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