JaneNida　Part18 - 暇つぶし2ch

JaneNida　Part18 ..

72:名無しさん＠お腹いっぱい。
09/03/04 09:40:24 fQIDftfU0
Vistaかつ、64bitにする男の人って・・・。
大抵のフリーソフトは64bitお断りな感じがする。

NidaにはVista関係のホイール修正が入ってるけど、
修正が足りないんだそうな。

97 名前：Jane使いの名無しさん[sage] 投稿日：2008/08/25(月) 23:36:36 ID:F2ZgKTrX0
(略)
koreawatcherさんの方法だと回転数がWHEEL_DELTAまで累積しないとスクロールして
くれません。
回転数が (WHEEL_DELTA / FVScrollLines) に達するたびに1行スクロールするように
していただけると、チルトホイールの環境では細かく操作ができてとてもうれしいです。
同様の対応をしたFirefoxのパッチが参考になると思います。
URLﾘﾝｸ(bugzilla.mozilla.gr.jp)

235 名前：◆Style/kK.s [sage] 投稿日：2008/08/30(土) 09:00:09 ID:ygcIg17H0
>>233
対応できててよかったです。
無駄な分岐があったので次版では下のコードを利用するようにします。

procedure THogeTextView.ON_WM_MOUSEWHEEL(var msg: TMessage);
begin
Inc(FDeltaSum, SmallInt(HIWORD(msg.wParam))); //THogeTextView.FDeltaSum: Integer
if Abs(FDeltaSum) < (WHEEL_DELTA div FVScrollLines) then
begin
msg.Result := 1;
exit;
end;
ScrollLine(-FDeltaSum div (WHEEL_DELTA div FVScrollLines));
FDeltaSum := FDeltaSum mod (WHEEL_DELTA div FVScrollLines);
msg.Result := 1;
end;

次ページ