| 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); |
| 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 |
| 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; |
| 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); |
| 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 |
|
|
| 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; |
| 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 |