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.123 by yoffy, Fri Nov 21 17:24:50 2003 UTC revision 1.124 by yoffy, Sat Nov 22 04:57:17 2003 UTC
# Line 1109  begin Line 1109  begin
1109  //      SetBoardTreeNode;                                                                               //ツリーにボード追加  //      SetBoardTreeNode;                                                                               //ツリーにボード追加
1110          // メニューに追加          // メニューに追加
1111          for i := Length( BBSs ) - 1 downto 0 do begin          for i := Length( BBSs ) - 1 downto 0 do begin
1112                  item                                    := TBBSMenuItem.Create( PopupMenu );          try
1113                  item.Caption    := BBSs[ i ].Title;        item                                      := TBBSMenuItem.Create( PopupMenu );
1114                  item.Data                       := BBSs[ i ];        item.Caption      := BBSs[ i ].Title;
1115                  item.OnClick    := BBSMenuItemOnClick;        item.Data                 := BBSs[ i ];
1116                  CabinetSelectPopupMenu.Items.Insert( 0, item );        item.OnClick      := BBSMenuItemOnClick;
1117          CabinetSelectPopupMenu.Items.Insert( 0, item );
1118        except
1119        end;
1120          end;          end;
1121    
1122          //お気に入り読み込み          //お気に入り読み込み
# Line 1688  begin Line 1691  begin
1691                  RoundList.SaveRoundFile;                  RoundList.SaveRoundFile;
1692          except          except
1693          end;          end;
1694      {
1695          try          try
1696                  RoundList.Clear;                  RoundList.Clear;
1697          except          except
# Line 1702  begin Line 1706  begin
1706                  FHistoryList.Free;                  FHistoryList.Free;
1707          except          except
1708          end;          end;
1709      }
1710          //アドレス履歴保存          //アドレス履歴保存
1711          try          try
1712                  AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);                  AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
# Line 1714  begin Line 1718  begin
1718          except          except
1719          end;          end;
1720    
1721      {
1722  //      FDownload.Free;  //      FDownload.Free;
1723          try          try
1724                  SetActiveList(nil);                  SetActiveList(nil);
1725          except          except
1726          end;          end;
1727    
1728          //TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る)          //TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る)
1729          Sleep(10);          Sleep(10);
1730          try          try
1731                  TreeView.Items.Clear;                  TreeView.Items.Clear;
1732          except          except
1733          end;          end;
1734            }
1735          try          try
1736                  if FavoriteDM <> nil then                  if FavoriteDM <> nil then
1737                          FavoriteDM.Free;                          FavoriteDM.Free;
# Line 1735  begin Line 1741  begin
1741                  AddressHistoryDM := nil;                  AddressHistoryDM := nil;
1742          except          except
1743          end;          end;
1744            {
1745      try
1746            for i := 0 to Length( BoardPlugIns ) - 1 do begin
1747            if BoardPlugIns[ i ] <> nil then
1748            BoardPlugIns[ i ].Free;
1749          BoardPlugIns[ i ] := nil;
1750        end;
1751      except
1752      end;
1753    
1754          try          try
1755                  for i := 0 to Length( BBSs ) - 1 do begin                  for i := 0 to Length( BBSs ) - 1 do begin
1756                          if BBSs[ i ] <> nil then                          if BBSs[ i ] <> nil then
# Line 1744  begin Line 1760  begin
1760          except          except
1761          end;          end;
1762    
1763      try
1764            for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin
1765            if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin
1766            //CabinetSelectPopupMenu.Items[ i ].Free;
1767            CabinetSelectPopupMenu.Items.Delete( i );
1768          end;
1769        end;
1770      except
1771      end;
1772    
1773          try          try
1774                  //Hint破棄                  //Hint破棄
1775                  if FHint <> nil then begin                  if FHint <> nil then begin
# Line 1758  begin Line 1784  begin
1784                  end;                  end;
1785          except          except
1786          end;          end;
1787      }
1788  end;  end;
1789    
1790  procedure TGikoForm.FormDestroy(Sender: TObject);  procedure TGikoForm.FormDestroy(Sender: TObject);
# Line 1815  begin Line 1842  begin
1842          TreeView.Items.Clear;          TreeView.Items.Clear;
1843    
1844          //BBS破棄          //BBS破棄
1845          for i := 0 to Length( BBSs ) - 1 do begin    for i := 0 to Length( BBSs ) - 1 do begin
1846                  BBSs[ i ].Free;      if BBSs[ i ] <> nil then
1847                  BBSs[ i ] := nil;        BBSs[ i ].Free;
1848          end;      BBSs[ i ] := nil;
1849      end;
1850    
1851          ActiveList := nil;          ActiveList := nil;
1852    
# Line 1827  begin Line 1855  begin
1855          GikoSys.ReadBoardFile;          //ボードファイル読込          GikoSys.ReadBoardFile;          //ボードファイル読込
1856          // メニューを削除          // メニューを削除
1857          for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin          for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin
1858                  if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin          try
1859                          CabinetSelectPopupMenu.Items[ i ].Free;        if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin
1860                          CabinetSelectPopupMenu.Items.Delete( i );          CabinetSelectPopupMenu.Items[ i ].Free;
1861                  end;          CabinetSelectPopupMenu.Items.Delete( i );
1862          end;
1863                    except
1864        end;
1865          end;          end;
1866          // メニューに追加          // メニューに追加
1867          for i := Length( BBSs ) - 1 downto 0 do begin          for i := Length( BBSs ) - 1 downto 0 do begin
1868                  item                                    := TBBSMenuItem.Create( PopupMenu );          try
1869                  item.Caption    := BBSs[ i ].Title;        item                                      := TBBSMenuItem.Create( PopupMenu );
1870                  item.Data                       := BBSs[ i ];        item.Caption      := BBSs[ i ].Title;
1871                  item.OnClick    := BBSMenuItemOnClick;        item.Data                 := BBSs[ i ];
1872                  CabinetSelectPopupMenu.Items.Insert( 0, item );        item.OnClick      := BBSMenuItemOnClick;
1873          CabinetSelectPopupMenu.Items.Insert( 0, item );
1874                    except
1875        end;
1876          end;          end;
1877          ShowBBSTree( BBSs[ 0 ] );          ShowBBSTree( BBSs[ 0 ] );
1878  end;  end;

Legend:
Removed from v.1.123  
changed lines
  Added in v.1.124

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