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.143 by yoffy, Tue Nov 25 14:05:15 2003 UTC revision 1.144 by h677, Tue Nov 25 15:18:04 2003 UTC
# Line 3859  begin Line 3859  begin
3859  //      OleVariant(Browser.Document).parentWindow.location.hash := AName;  //      OleVariant(Browser.Document).parentWindow.location.hash := AName;
3860          nm := AName;          nm := AName;
3861          try          try
3862                  OleVariant(Browser.Document as IHTMLDocument2).body.scrollTop :=          OleVariant(Browser.Document as IHTMLDocument2).body.scrollTop :=
3863                                  OleVariant(Browser.Document as IHTMLDocument2).anchors.item(nm).offsetTop;                          OleVariant(Browser.Document as IHTMLDocument2).anchors.item(nm).offsetTop;
3864          except          except
3865          end;          end;
3866  end;  end;
# Line 8734  begin Line 8734  begin
8734          end else if (TObject(FClickNode.Data) is TFavoriteBoardItem) then begin          end else if (TObject(FClickNode.Data) is TFavoriteBoardItem) then begin
8735    
8736                  boardItem := TFavoriteBoardItem( FClickNode.Data ).Item;                  boardItem := TFavoriteBoardItem( FClickNode.Data ).Item;
8737                  if threadItem = nil then                  if boardItem = nil then
8738                          Exit;                          Exit;
8739                  GikoSys.OpenBrowser( boardItem.URL, gbtAuto );                  GikoSys.OpenBrowser( boardItem.URL, gbtAuto );
8740    

Legend:
Removed from v.1.143  
changed lines
  Added in v.1.144

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