| 1413 |
KeepDefaultToolButton(StdToolBar, TmpToolBar); |
KeepDefaultToolButton(StdToolBar, TmpToolBar); |
| 1414 |
KeepDefaultToolButton(ListToolBar, TmpToolBar); |
KeepDefaultToolButton(ListToolBar, TmpToolBar); |
| 1415 |
KeepDefaultToolButton(BrowserToolBar, TmpToolBar); |
KeepDefaultToolButton(BrowserToolBar, TmpToolBar); |
| 1416 |
|
|
| 1417 |
MakeDefaultINIFile(); |
MakeDefaultINIFile(); |
| 1418 |
//ツールボタン読み込み |
//ツールボタン読み込み |
| 1419 |
ReadToolBarSetting(ActionList, StdToolBar); |
ReadToolBarSetting(ActionList, StdToolBar); |
| 1432 |
// スレッド絞込ボタンを隠す |
// スレッド絞込ボタンを隠す |
| 1433 |
ListToolBar.Controls[ i ].Visible := False; |
ListToolBar.Controls[ i ].Visible := False; |
| 1434 |
// スレッド絞込フィールドを挿入 |
// スレッド絞込フィールドを挿入 |
| 1435 |
|
SelectComboBox.Parent := ListToolBar; |
| 1436 |
SelectComboBox.Left := ListToolBar.Controls[ i ].Left; |
SelectComboBox.Left := ListToolBar.Controls[ i ].Left; |
| 1437 |
SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth; |
SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth; |
|
SelectComboBox.Parent := ListToolBar; |
|
| 1438 |
// スレッド絞込用独自セパレータを挿入 |
// スレッド絞込用独自セパレータを挿入 |
| 1439 |
|
SelectComboBoxSplitter.Parent := ListToolBar; |
| 1440 |
SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width; |
SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width; |
|
SelectComboBoxSplitter.Parent := ListToolBar; |
|
| 1441 |
|
|
| 1442 |
break; |
break; |
| 1443 |
end; |
end; |
| 1667 |
end; |
end; |
| 1668 |
// Application.OnDeactivate := nil; |
// Application.OnDeactivate := nil; |
| 1669 |
// Self.OnDeactivate := nil; |
// Self.OnDeactivate := nil; |
| 1670 |
|
try |
| 1671 |
//column幅 |
//column幅 |
| 1672 |
if GetActiveList is TBBS then begin |
if GetActiveList is TBBS then begin |
| 1673 |
for i := 0 to ListView.Columns.Count - 1 do |
for i := 0 to ListView.Columns.Count - 1 do |
| 1674 |
GikoSys.Setting.BBSColumnWidth[i] := ListView.Column[i].Width; |
GikoSys.Setting.BBSColumnWidth[i] := ListView.Column[i].Width; |
| 1675 |
end else if GetActiveList is TCategory then begin |
end else if GetActiveList is TCategory then begin |
| 1676 |
for i := 0 to ListView.Columns.Count - 1 do |
for i := 0 to ListView.Columns.Count - 1 do |
| 1677 |
GikoSys.Setting.CategoryColumnWidth[i] := ListView.Column[i].Width; |
GikoSys.Setting.CategoryColumnWidth[i] := ListView.Column[i].Width; |
| 1678 |
end else if GetActiveList is TBoard then begin |
end else if GetActiveList is TBoard then begin |
| 1679 |
for i := 0 to ListView.Columns.Count - 1 do |
for i := 0 to ListView.Columns.Count - 1 do |
| 1680 |
GikoSys.Setting.BoardColumnWidth[i] := ListView.Column[i].Width; |
GikoSys.Setting.BoardColumnWidth[i] := ListView.Column[i].Width; |
| 1681 |
|
end; |
| 1682 |
|
except |
| 1683 |
|
end; |
| 1684 |
|
try |
| 1685 |
|
//最大化・ウィンドウ位置保存 |
| 1686 |
|
wp.length := sizeof(wp); |
| 1687 |
|
GetWindowPlacement(Handle, @wp); |
| 1688 |
|
GikoSys.Setting.WindowTop := wp.rcNormalPosition.Top; |
| 1689 |
|
GikoSys.Setting.WindowLeft := wp.rcNormalPosition.Left; |
| 1690 |
|
GikoSys.Setting.WindowHeight := wp.rcNormalPosition.Bottom - wp.rcNormalPosition.Top; |
| 1691 |
|
GikoSys.Setting.WindowWidth := wp.rcNormalPosition.Right - wp.rcNormalPosition.Left; |
| 1692 |
|
GikoSys.Setting.WindowMax := WindowState = wsMaximized; |
| 1693 |
|
|
| 1694 |
|
GikoSys.Setting.ListStyle := ListView.ViewStyle; |
| 1695 |
|
GikoSys.Setting.CabinetVisible := CabinetVisibleAction.Checked; |
| 1696 |
|
GikoSys.Setting.CabinetWidth := CabinetPanel.Width; |
| 1697 |
|
GikoSys.Setting.ListHeight := FBrowserSizeHeight; |
| 1698 |
|
GikoSys.Setting.ListWidth := FBrowserSizeWidth; |
| 1699 |
|
if ArrangeAction.Checked then |
| 1700 |
|
GikoSys.Setting.ListOrientation := gloVertical |
| 1701 |
|
else |
| 1702 |
|
GikoSys.Setting.ListOrientation := gloHorizontal; |
| 1703 |
|
GikoSys.Setting.MessegeBarHeight := MessagePanel.Height; |
| 1704 |
|
except |
| 1705 |
end; |
end; |
| 1706 |
|
|
|
//最大化・ウィンドウ位置保存 |
|
|
wp.length := sizeof(wp); |
|
|
GetWindowPlacement(Handle, @wp); |
|
|
GikoSys.Setting.WindowTop := wp.rcNormalPosition.Top; |
|
|
GikoSys.Setting.WindowLeft := wp.rcNormalPosition.Left; |
|
|
GikoSys.Setting.WindowHeight := wp.rcNormalPosition.Bottom - wp.rcNormalPosition.Top; |
|
|
GikoSys.Setting.WindowWidth := wp.rcNormalPosition.Right - wp.rcNormalPosition.Left; |
|
|
GikoSys.Setting.WindowMax := WindowState = wsMaximized; |
|
|
|
|
|
GikoSys.Setting.ListStyle := ListView.ViewStyle; |
|
|
GikoSys.Setting.CabinetVisible := CabinetVisibleAction.Checked; |
|
|
GikoSys.Setting.CabinetWidth := CabinetPanel.Width; |
|
|
GikoSys.Setting.ListHeight := FBrowserSizeHeight; |
|
|
GikoSys.Setting.ListWidth := FBrowserSizeWidth; |
|
|
if ArrangeAction.Checked then |
|
|
GikoSys.Setting.ListOrientation := gloVertical |
|
|
else |
|
|
GikoSys.Setting.ListOrientation := gloHorizontal; |
|
|
GikoSys.Setting.MessegeBarHeight := MessagePanel.Height; |
|
|
|
|
| 1707 |
// リアルタイムに保存されるので、また、ウィンドウサイズが CoolBar より |
// リアルタイムに保存されるので、また、ウィンドウサイズが CoolBar より |
| 1708 |
// 小さくなっているときに保存すると値が上書きされてしまうのでここでは保存しない |
// 小さくなっているときに保存すると値が上書きされてしまうのでここでは保存しない |
| 1709 |
{ |
{ |
| 1710 |
// CoolBar 保存 |
// CoolBar 保存 |
| 1711 |
SaveCoolBarSettings; |
SaveCoolBarSettings; |
| 1712 |
} |
} |
| 1713 |
|
try |
| 1714 |
GikoSys.Setting.WriteWindowSettingFile; |
GikoSys.Setting.WriteWindowSettingFile; |
| 1715 |
GikoSys.Setting.WriteNameMailSettingFile; |
GikoSys.Setting.WriteNameMailSettingFile; |
| 1716 |
|
except |
| 1717 |
|
end; |
| 1718 |
|
|
| 1719 |
//お気に入り保存 |
//お気に入り保存 |
| 1720 |
try |
try |
| 1721 |
|
//FavoriteDMは自動生成フォームなので、解放は自動的にされる |
| 1722 |
FavoriteDM.WriteFavorite; |
FavoriteDM.WriteFavorite; |
| 1723 |
FavoriteDM.Clear; |
FavoriteDM.Clear; |
|
try |
|
|
// if FavoriteDM <> nil then |
|
|
// FavoriteDM.Free; |
|
|
// FavoriteDM := nil; |
|
|
except |
|
|
end; |
|
| 1724 |
except |
except |
| 1725 |
end; |
end; |
|
// Favorite.Free; |
|
| 1726 |
|
|
| 1727 |
try |
try |
| 1728 |
//タブクローズ |
//タブクローズ |
| 1729 |
NotSelectTabCloseAction.Execute; |
//NotSelectTabCloseAction.Execute; |
| 1730 |
if BrowserTab.Tabs.Count >= 1 then begin |
{if BrowserTab.Tabs.Count >= 1 then begin |
| 1731 |
DeleteTab(TThreadItem(BrowserTab.Tabs.Objects[0])); |
DeleteTab(TThreadItem(BrowserTab.Tabs.Objects[0])); |
| 1732 |
end; |
end; |
| 1733 |
|
} |
| 1734 |
except |
except |
| 1735 |
end; |
end; |
| 1736 |
|
|
| 1742 |
TreeView.Items.Clear; |
TreeView.Items.Clear; |
| 1743 |
TreeView.Items.EndUpdate; |
TreeView.Items.EndUpdate; |
| 1744 |
except |
except |
|
|
|
| 1745 |
end; |
end; |
| 1746 |
|
|
|
|
|
|
|
|
|
|
|
| 1747 |
//アドレス履歴保存 |
//アドレス履歴保存 |
| 1748 |
try |
try |
| 1749 |
|
//AddressHistoryDMは自動生成フォームなので、解放は自動的にされる。 |
| 1750 |
AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount); |
AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount); |
|
//if AddressHistoryDM <> nil then |
|
|
// AddressHistoryDM.Free; |
|
|
//AddressHistoryDM := nil; |
|
|
except |
|
|
end; |
|
|
|
|
|
|
|
|
|
|
|
// FDownload.Free; |
|
|
try |
|
|
//SetActiveList(nil); |
|
| 1751 |
except |
except |
| 1752 |
end; |
end; |
|
try |
|
|
//ClearLinkBar; |
|
|
except |
|
|
end; |
|
| 1753 |
|
|
|
//TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る) |
|
|
//Sleep(10); |
|
|
//Application.ProcessMessages; |
|
|
{ FavoriteDMの中でも解放してるからここではやらなくてよかった。 |
|
|
try |
|
|
FavoriteTreeView.Items.BeginUpdate; |
|
|
for i := FavoriteTreeView.Items.Count - 1 downto 0 do begin |
|
|
TObject(FavoriteTreeView.Items.Item[i].Data).Free; |
|
|
FavoriteTreeView.Items.Item[i].Free; |
|
|
end; |
|
|
FavoriteTreeView.Items.EndUpdate; |
|
|
FavoriteTreeView.Items.Clear; |
|
|
except |
|
|
end; |
|
|
} |
|
| 1754 |
//ヒストリリスト保存 |
//ヒストリリスト保存 |
| 1755 |
try |
try |
| 1756 |
SaveHistory; |
SaveHistory; |
|
ClearHistory; |
|
|
|
|
| 1757 |
except |
except |
| 1758 |
end; |
end; |
| 1759 |
|
try |
| 1760 |
|
ClearHistory; |
| 1761 |
|
except |
| 1762 |
|
end; |
| 1763 |
|
|
| 1764 |
//巡回リスト保存&破棄 |
//巡回リスト保存&破棄 |
| 1765 |
try |
try |
| 1766 |
RoundList.SaveRoundFile; |
RoundList.SaveRoundFile; |
| 1767 |
except |
except |
| 1768 |
end; |
end; |
| 1769 |
|
try |
| 1770 |
|
try |
| 1771 |
|
RoundList.Clear; |
| 1772 |
|
except |
| 1773 |
|
end; |
| 1774 |
|
finally |
| 1775 |
|
RoundList.Free; |
| 1776 |
|
end; |
| 1777 |
|
|
| 1778 |
try |
try |
| 1779 |
|
try |
| 1780 |
RoundList.Clear; |
FControlThread.Terminate; |
| 1781 |
except |
FControlThread.WaitFor; |
| 1782 |
end; |
except |
|
try |
|
|
RoundList.Free; |
|
|
except |
|
|
end; |
|
|
|
|
|
try |
|
|
{for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin |
|
|
if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin |
|
|
TBBSMenuItem(CabinetSelectPopupMenu.Items[ i ]).Free; |
|
|
CabinetMenu.Items[ i ].Free; |
|
|
end; |
|
| 1783 |
end; |
end; |
| 1784 |
} |
finally |
| 1785 |
except |
FControlThread.Free; |
| 1786 |
end; |
end; |
|
try |
|
|
FControlThread.Terminate; |
|
|
FControlThread.WaitFor; |
|
|
FControlThread.Free; |
|
|
except |
|
|
end; |
|
| 1787 |
|
|
| 1788 |
// TBBS は保持している TCategory, TBoard, TThreadItem すべてを開放する |
// TBBS は保持している TCategory, TBoard, TThreadItem すべてを開放する |
| 1789 |
// TBoard, TThreadItem のデストラクタはプラグインに破棄を伝えるので |
// TBoard, TThreadItem のデストラクタはプラグインに破棄を伝えるので |
| 1806 |
except |
except |
| 1807 |
end; |
end; |
| 1808 |
|
|
|
|
|
| 1809 |
try |
try |
| 1810 |
|
if FEvent <> nil then |
| 1811 |
|
FEvent.Free; |
| 1812 |
|
|
| 1813 |
//Hint破棄 |
//Hint破棄 |
| 1814 |
if FHint <> nil then begin |
if FHint <> nil then begin |
| 1815 |
FHint.ReleaseHandle; |
FHint.ReleaseHandle; |
| 1865 |
NotSelectTabCloseAction.Execute; |
NotSelectTabCloseAction.Execute; |
| 1866 |
if BrowserTab.Tabs.Count >= 1 then |
if BrowserTab.Tabs.Count >= 1 then |
| 1867 |
DeleteTab(TThreadItem(BrowserTab.Tabs.Objects[0])); |
DeleteTab(TThreadItem(BrowserTab.Tabs.Objects[0])); |
|
//ヒストリリスト |
|
|
//FHistoryList.Clear; |
|
| 1868 |
//TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る) |
//TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る) |
| 1869 |
TreeView.Items.Clear; |
TreeView.Items.Clear; |
| 1870 |
|
|
| 1913 |
|
|
| 1914 |
// 履歴読み込み |
// 履歴読み込み |
| 1915 |
SaveHistory; |
SaveHistory; |
|
{ |
|
|
try |
|
|
for i := FHistoryList.Count - 1 downto 0 do begin |
|
|
TFavoriteThreadItem( FHistoryList[ i ] ).Free; |
|
|
FHistoryList.Delete(i); |
|
|
end; |
|
|
|
|
|
except |
|
|
end; |
|
|
FHistoryList.Clear; |
|
|
FHistoryList.Capacity := FHistoryList.Count; |
|
|
} |
|
| 1916 |
ClearHistory; |
ClearHistory; |
| 1917 |
LoadHistory; |
LoadHistory; |
| 1918 |
|
|
| 1919 |
//お気に入り読み込み |
//お気に入り読み込み |
|
// FFavorite := TFavorite.Create(FavoriteTreeView); |
|
|
//FavoriteTreeView.Items.Clear; |
|
|
//FavoriteDM.DataModuleDestroy(Self); |
|
| 1920 |
FavoriteDM.Clear; |
FavoriteDM.Clear; |
|
//FavoriteDM.SetFavTreeView(FavoriteTreeView); |
|
| 1921 |
FavoriteDM.ReadFavorite; |
FavoriteDM.ReadFavorite; |
| 1922 |
SetLinkBar; |
SetLinkBar; |
| 1923 |
|
|
| 2182 |
if not TBoard(Node.Data).IsThreadDatRead then begin |
if not TBoard(Node.Data).IsThreadDatRead then begin |
| 2183 |
Screen.Cursor := crHourGlass; |
Screen.Cursor := crHourGlass; |
| 2184 |
try |
try |
| 2185 |
GikoSys.ReadSubjectFile(Node.Data); |
if not TBoard(Node.Data).IsThreadDatRead then |
| 2186 |
|
GikoSys.ReadSubjectFile(Node.Data); |
| 2187 |
finally |
finally |
| 2188 |
Screen.Cursor := crDefault; |
Screen.Cursor := crDefault; |
| 2189 |
end; |
end; |
| 3871 |
if not TBoard( Item ).IsThreadDatRead then begin |
if not TBoard( Item ).IsThreadDatRead then begin |
| 3872 |
Screen.Cursor := crHourGlass; |
Screen.Cursor := crHourGlass; |
| 3873 |
try |
try |
| 3874 |
GikoSys.ReadSubjectFile(TBoard( Item )); |
if not TBoard( Item ).IsThreadDatRead then |
| 3875 |
|
GikoSys.ReadSubjectFile(TBoard( Item )); |
| 3876 |
finally |
finally |
| 3877 |
Screen.Cursor := crDefault; |
Screen.Cursor := crDefault; |
| 3878 |
end; |
end; |