Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|