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.219 by h677, Thu Mar 18 14:16:57 2004 UTC revision 1.220 by h677, Mon Mar 22 12:35:12 2004 UTC
# Line 1742  begin Line 1742  begin
1742          except          except
1743          end;          end;
1744    
     try  
         ClearLinkBar;  
     except  
     end;  
1745    
1746  //      FDownload.Free;  //      FDownload.Free;
1747          try          try
# Line 1761  begin Line 1757  begin
1757          except          except
1758          end;          end;
1759      try      try
1760            FavoriteTreeView.Items.BeginUpdate;
1761          for i := FavoriteTreeView.Items.Count - 1 downto 0 do begin          for i := FavoriteTreeView.Items.Count - 1 downto 0 do begin
1762                  TObject(FavoriteTreeView.Items.Item[i].Data).Free;                  TObject(FavoriteTreeView.Items.Item[i].Data).Free;
1763                  FavoriteTreeView.Items.Item[i].Free;                  FavoriteTreeView.Items.Item[i].Free;
1764          end;          end;
1765            FavoriteTreeView.Items.EndUpdate;
1766          FavoriteTreeView.Items.Clear;          FavoriteTreeView.Items.Clear;
1767      except      except
1768      end;      end;
1769    
1770    
1771    
1772          try          try
1773                  if FavoriteDM <> nil then                  if FavoriteDM <> nil then
1774                          FavoriteDM.Free;                          FavoriteDM.Free;
# Line 1778  begin Line 1778  begin
1778                  AddressHistoryDM := nil;                  AddressHistoryDM := nil;
1779          except          except
1780          end;          end;
1781        {
1782        try
1783            ClearLinkBar;
1784        except
1785        end;
1786        }
1787          //巡回リスト保存&破棄          //巡回リスト保存&破棄
1788          try          try
1789                  RoundList.SaveRoundFile;                  RoundList.SaveRoundFile;
# Line 1808  begin Line 1814  begin
1814          // TBoard, TThreadItem のデストラクタはプラグインに破棄を伝えるので          // TBoard, TThreadItem のデストラクタはプラグインに破棄を伝えるので
1815          // BoardPluteIns の開放より先に行うこと          // BoardPluteIns の開放より先に行うこと
1816          try          try
1817                  for i := 0 to Length( BBSs ) - 1 do begin                  for i := Length( BBSs ) - 1 downto 0 do begin
1818                          if BBSs[ i ] <> nil then                          if BBSs[ i ] <> nil then
1819                                  BBSs[ i ].Free;                                  BBSs[ i ].Free;
1820                          BBSs[ i ] := nil;                          BBSs[ i ] := nil;
# Line 1817  begin Line 1823  begin
1823          end;          end;
1824    
1825          try          try
1826                  for i := 0 to Length( BoardPlugIns ) - 1 do begin                  for i := Length( BoardPlugIns ) - 1 downto  0 do begin
1827                          if BoardPlugIns[ i ] <> nil then                          if BoardPlugIns[ i ] <> nil then
1828                                  BoardPlugIns[ i ].Free;                                  BoardPlugIns[ i ].Free;
1829                          BoardPlugIns[ i ] := nil;                          BoardPlugIns[ i ] := nil;
# Line 7165  begin Line 7171  begin
7171      finally      finally
7172                  MainCoolBar.Bands.EndUpdate;                  MainCoolBar.Bands.EndUpdate;
7173          end;          end;
7174    
7175  end;  end;
7176  procedure TGikoForm.FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);  procedure TGikoForm.FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
7177  var  var

Legend:
Removed from v.1.219  
changed lines
  Added in v.1.220

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