Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.145 by yoffy, Tue Nov 25 15:32:39 2003 UTC revision 1.146 by yoffy, Tue Nov 25 16:03:40 2003 UTC
# Line 1870  begin Line 1870  begin
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;
# Line 1884  begin Line 1887  begin
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          //お気に入り読み込み          //お気に入り読み込み
# Line 3863  begin Line 3873  begin
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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26