Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 10526 |
Self.FEvent.Free; |
Self.FEvent.Free; |
| 10527 |
if Self.FBrowser <> nil then begin |
if Self.FBrowser <> nil then begin |
| 10528 |
if Self.Thread <> nil then begin |
if Self.Thread <> nil then begin |
| 10529 |
doc := Idispatch( olevariant(Self.FBrowser.ControlInterface).Document) as IHTMLDocument2; |
//タブの復元で復元されたスレは、描画されていないときがあるので |
| 10530 |
Self.Thread.ScrollTop := doc.Body.ScrollTop; |
//そのときのスクロール量を保存してしまうとトップに戻ってしまう。 |
| 10531 |
|
if Self.FBrowser.OleObject.Document.documentElement.innerText <> '' then begin |
| 10532 |
|
doc := Idispatch( olevariant(Self.FBrowser.ControlInterface).Document) as IHTMLDocument2; |
| 10533 |
|
Self.Thread.ScrollTop := doc.Body.ScrollTop; |
| 10534 |
|
end; |
| 10535 |
end; |
end; |
| 10536 |
//TOleControl(Self.FBrowser).Visible := false; |
//TOleControl(Self.FBrowser).Visible := false; |
| 10537 |
ShowWindow(Self.FBrowser.Handle, SW_HIDE); |
ShowWindow(Self.FBrowser.Handle, SW_HIDE); |
|
|
Legend:
| Removed from v.1.402 |
|
| changed lines |
| |
Added in v.1.403 |
|
|
|