| 1742 |
except |
except |
| 1743 |
end; |
end; |
| 1744 |
|
|
|
try |
|
|
ClearLinkBar; |
|
|
except |
|
|
end; |
|
| 1745 |
|
|
| 1746 |
// FDownload.Free; |
// FDownload.Free; |
| 1747 |
try |
try |
| 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; |
| 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; |
| 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; |
| 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; |
| 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 |