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.177 by h677, Wed Dec 10 13:54:50 2003 UTC revision 1.178 by h677, Wed Dec 10 16:53:17 2003 UTC
# Line 3829  end; Line 3829  end;
3829    
3830  procedure TGikoForm.BrowserMovement(AName: string);  procedure TGikoForm.BrowserMovement(AName: string);
3831  var  var
3832        top: Integer;
3833        item: OleVariant;
3834          nm: OleVariant;          nm: OleVariant;
3835  begin  begin
3836  //      OleVariant(Browser.Document).parentWindow.location.hash := AName;  //      OleVariant(Browser.Document).parentWindow.location.hash := AName;
         nm := AName;  
3837          try          try
3838                  OleVariant(Browser.Document as IHTMLDocument2).body.scrollTop :=              top := 0;
3839                          OleVariant(Browser.Document as IHTMLDocument2).anchors.item(nm).offsetTop;          nm := AName;
3840          except          item := OleVariant( Browser.Document as IHTMLDocument2).anchors.item(nm);
3841          end;          repeat
3842                    top := top + item.offsetTop;
3843                item := item.offsetParent;
3844            until AnsiCompareText(item.tagName, 'body' ) = 0;
3845    
3846            OleVariant(Browser.Document as IHTMLDocument2).body.scrollTop := top - 10;
3847    
3848        except
3849        end;
3850  end;  end;
3851    
3852  procedure TGikoForm.TreeViewCollapsed(Sender: TObject; Node: TTreeNode);  procedure TGikoForm.TreeViewCollapsed(Sender: TObject; Node: TTreeNode);

Legend:
Removed from v.1.177  
changed lines
  Added in v.1.178

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