Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 1870 |
TreeView.Items.Clear; |
TreeView.Items.Clear; |
| 1871 |
|
|
| 1872 |
//BBS破棄 |
//BBS破棄 |
| 1873 |
for i := 0 to Length( BBSs ) - 1 do begin |
try |
| 1874 |
if BBSs[ i ] <> nil then |
for i := Length( BBSs ) - 1 downto 0 do begin |
| 1875 |
BBSs[ i ].Free; |
if BBSs[ i ] <> nil then |
| 1876 |
BBSs[ i ] := nil; |
BBSs[ i ].Free; |
| 1877 |
|
BBSs[ i ] := nil; |
| 1878 |
|
end; |
| 1879 |
|
except |
| 1880 |
end; |
end; |
| 1881 |
|
|
| 1882 |
ActiveList := nil; |
ActiveList := nil; |
| 1887 |
ShowBBSTree( BBSs[ 0 ] ); |
ShowBBSTree( BBSs[ 0 ] ); |
| 1888 |
|
|
| 1889 |
// 履歴読み込み |
// 履歴読み込み |
| 1890 |
|
SaveHistory; |
| 1891 |
|
try |
| 1892 |
|
for i := FHistoryList.Count - 1 downto 0 do |
| 1893 |
|
TFavoriteThreadItem( FHistoryList[ i ] ).Free; |
| 1894 |
|
except |
| 1895 |
|
end; |
| 1896 |
|
FHistoryList.Clear; |
| 1897 |
LoadHistory; |
LoadHistory; |
| 1898 |
|
|
| 1899 |
//お気に入り読み込み |
//お気に入り読み込み |
| 3873 |
// OleVariant(Browser.Document).parentWindow.location.hash := AName; |
// OleVariant(Browser.Document).parentWindow.location.hash := AName; |
| 3874 |
nm := AName; |
nm := AName; |
| 3875 |
try |
try |
| 3876 |
OleVariant(Browser.Document as IHTMLDocument2).body.scrollTop := |
OleVariant(Browser.Document as IHTMLDocument2).body.scrollTop := |
| 3877 |
OleVariant(Browser.Document as IHTMLDocument2).anchors.item(nm).offsetTop; |
OleVariant(Browser.Document as IHTMLDocument2).anchors.item(nm).offsetTop; |
| 3878 |
except |
except |
| 3879 |
end; |
end; |
| 3880 |
end; |
end; |
|
|
Legend:
| Removed from v.1.145 |
|
| changed lines |
| |
Added in v.1.146 |
|
|
|