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.223 by h677, Tue Mar 23 15:27:56 2004 UTC revision 1.224 by h677, Wed Mar 24 15:20:19 2004 UTC
# Line 1718  begin Line 1718  begin
1718          except          except
1719          end;          end;
1720    
         //ヒストリリスト保存  
1721          try          try
1722                  SaveHistory;          TreeView.Items.BeginUpdate;
1723            for i := TreeView.Items.Count - 1 downto 0 do begin
1724                    TreeView.Items[i].Free;
1725            end;
1726                    TreeView.Items.Clear;
1727            TreeView.Items.EndUpdate;
1728          except          except
         end;  
1729    
1730          //ヒストリリスト          end;
1731            //ヒストリリスト保存
1732          try          try
1733      //  ClearHistory;                  SaveHistory;
1734                  FHistoryList.Free;          ClearHistory;
1735          except          except
1736          end;          end;
1737    
1738    
1739          //アドレス履歴保存          //アドレス履歴保存
1740          try          try
1741                  AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);                  AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
# Line 1756  begin Line 1761  begin
1761          //TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る)          //TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る)
1762          //Sleep(10);          //Sleep(10);
1763      //Application.ProcessMessages;      //Application.ProcessMessages;
1764          try  {   FavoriteDMの中でも解放してるからここではやらなくてよかった。
                 TreeView.Items.Clear;  
         except  
         end;  
1765      try      try
1766          FavoriteTreeView.Items.BeginUpdate;          FavoriteTreeView.Items.BeginUpdate;
1767          for i := FavoriteTreeView.Items.Count - 1 downto 0 do begin          for i := FavoriteTreeView.Items.Count - 1 downto 0 do begin
# Line 1770  begin Line 1772  begin
1772          FavoriteTreeView.Items.Clear;          FavoriteTreeView.Items.Clear;
1773      except      except
1774      end;      end;
1775    }
   
   
1776          try          try
1777                  if FavoriteDM <> nil then                  if FavoriteDM <> nil then
1778                          FavoriteDM.Free;                          FavoriteDM.Free;
# Line 1847  begin Line 1847  begin
1847          except          except
1848          end;          end;
1849    
1850        Application.Terminate;
1851  end;  end;
1852    
1853  procedure TGikoForm.FormDestroy(Sender: TObject);  procedure TGikoForm.FormDestroy(Sender: TObject);
# Line 1861  begin Line 1861  begin
1861  //    ListCoolBar.WindowProc := nil;  //    ListCoolBar.WindowProc := nil;
1862  //    BrowserCoolBar.WindowProc := nil;  //    BrowserCoolBar.WindowProc := nil;
1863  //    MainCoolBar.WindowProc := nil;  //    MainCoolBar.WindowProc := nil;
1864          Application.Terminate;  //      Application.Terminate;
1865          Action := caFree;  //      Action := caFree;
1866  //      Application.UnhookMainWindow(Hook);  //      Application.UnhookMainWindow(Hook);
1867  end;  end;
1868    
# Line 1949  begin Line 1949  begin
1949    
1950          //お気に入り読み込み          //お気に入り読み込み
1951  //      FFavorite := TFavorite.Create(FavoriteTreeView);  //      FFavorite := TFavorite.Create(FavoriteTreeView);
1952          FavoriteTreeView.Items.Clear;          //FavoriteTreeView.Items.Clear;
1953        FavoriteDM.DataModuleDestroy(Self);
1954          FavoriteDM.SetFavTreeView(FavoriteTreeView);          FavoriteDM.SetFavTreeView(FavoriteTreeView);
1955          FavoriteDM.ReadFavorite;          FavoriteDM.ReadFavorite;
1956          SetLinkBar;          SetLinkBar;
# Line 2804  end; Line 2805  end;
2805    
2806  procedure TGikoForm.AppFormDeactivate(Sender: TObject);  procedure TGikoForm.AppFormDeactivate(Sender: TObject);
2807  begin  begin
2808        Application.ProcessMessages;
2809          if Application.Terminated then          if Application.Terminated then
2810                  Exit;                  Exit;
2811          if PreviewTimer.Enabled then          if PreviewTimer.Enabled then

Legend:
Removed from v.1.223  
changed lines
  Added in v.1.224

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