| 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 |
//お気に入り読み込み |
//お気に入り読み込み |
| 1691 |
RoundList.SaveRoundFile; |
RoundList.SaveRoundFile; |
| 1692 |
except |
except |
| 1693 |
end; |
end; |
| 1694 |
|
{ |
| 1695 |
try |
try |
| 1696 |
RoundList.Clear; |
RoundList.Clear; |
| 1697 |
except |
except |
| 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); |
| 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; |
| 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 |
| 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 |
| 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); |
| 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 |
|
|
| 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; |