レス数が 1000 を超えています。残念ながらこのスレッドには書き込めません。

ギコナビ開発スレ

847 名前：test.lxc ◆11YHIPHm4M 投稿日：2003/12/11(木) 01:17 ID:tGoKHz4I

失礼します。OpenJaneの◆test.lxcです。

IEのスクロールについてですが、今まではスクロール対象anchorのoffsetTopを
bodyのscrollTopに代入する方法を使っていましたが、
( http://hogehoge2001.at.infoseek.co.jp/note-delphi.htmlの「スクロールさせるには」参照 )
アンカーの階層によっては問題が出るらしいことがわかり、次のように修正することにしました。
var
　top: integer;
　item: OleVariant;
(中略)
　top := 0;
　item := OleVariant(doc as IHTMLDocument2).anchors.item(IntToStr(num + 1));
　repeat
　　top := top + item.offsetTop;
　　item := item.offsetParent;
　until AnsiCompareText(item.tagName, 'body') = 0;
　OleVariant(doc as IHTMLDocument2).body.scrollTop := top - 10;

ギコナビでも問題になっているかはわからないのですが、
TGikoForm.BrowserMovementでは修正前のJaneと同じ形のようなので
一応報告させていただきます。