digital hole

Sleipnir (2.8.2限定) で、検索ボックスでのホイール動作を無効化するアプリを作ってみました（ホントはプラグインとかで実現できればよかったんですけど、Sleipnirのプラグイン仕様を調べるよりも、Win32で直接アプリ組むほうが楽だったので、ただのEXE式となっています）。
http://mofmof.nsf.tc/soft/archives/SleipnirWheel.zip

メカニズム

まず、フック開始部分。ここは定番。

HANDLE hHook=SetWindowsHookEx(WH_GETMESSAGE, GetMsgProc, g_hDll, 0);

フックした場所でやること。WM_MOUSEWHEEL メッセージを書き換える。MSG構造体を直接書き換えちゃうのは、ややトリッキーかもしれない。私はフックの定石を知りません。

LRESULT CALLBACK GetMsgProc(int nCode,WPARAM wparam,LPARAM lparam)
{
	if(nCode>=0 && wparam==PM_REMOVE){
		MSG* msg=(MSG*)lparam;
		if(msg->message==WM_MOUSEWHEEL){
			//検索ボックスでのホイールイベントを…
			if(IsSleipnirSearchBox(msg->hwnd)){
				HWND hwndFrame = ::GetAncestor(msg->hwnd, GA_ROOT);
				HWND hwndTab = ::FindWindowEx(hwndFrame, NULL, L"Afx:00400000:0", NULL);
				HWND hwndPage = ::FindWindowEx(hwndTab, NULL, L"IEBrowserFrame", NULL);
				//ページウィンドウでのホイールイベントとして差し替える
				msg->hwnd = hwndPage;
			}
		}
	}
	return CallNextHookEx(hHook,nCode,wparam,lparam);
}

ホイールの発生したウィンドウが検索ボックスであるかどうかの判定。

bool IsSleipnirSearchBox(HWND hwnd)
{
	wchar_t szName[256];

	//Sleipnirであることを確認 -> 異なる場合はfalseを返す
	HWND hwndFrame = ::GetAncestor(hwnd,GA_ROOT);
	if(!::GetWindowText(hwndFrame, szName, _countof(szName)))return false;
	if(wcsstr(szName, L"Sleipnir")==NULL)return false;

	//検索ボックスであることを確認 -> 異なる場合はfalseを返す
	while(1){
		if(!::GetClassName(hwnd, szName, _countof(szName)))break;

		if(wcsicmp(szName, L"Edit")==0)goto next;
		else if(wcsicmp(szName, L"FenrirComboBoxCtrl")==0)return true;
		else if(wcsicmp(szName, L"FenrirSearchWindow")==0)return true;
		else return false;

next:
		hwnd = ::GetParent(hwnd);
	}
	return false;
}

メカニズムの前提条件

Sleipnir 2.8.2 のウィンドウ構造が以下のようになっていることを利用しています(これはSpy++で調べました)。

SleipnirMainWindow
├MDIClient
│└Afx:00400000:0
│　└IEBrowserFrame (ページ表示部分)
└Afx:～
　└FenrirSearchWindow
　　└FenrirComboBoxCtrl
　　　└Edit (検索ボックス)

展望

ホイールイベントが発生する度に文字列判定その他の処理が発生するので、負荷を考えると、あんまりよろしくない気分。Sleipnirプロセスのみに限定してフックを行えるなら、ちょっとは気が晴れるんですが。

理想としては、こんなフックアプリケーション作らなくてもいいように、Sleipnir自身に、検索ボックスでのホイール無効にできる機能が付いてほしい。

参考：

ここのフックの解説は、なんというか、妥協無く検証している感があって、なんか好き。
http://park15.wakwak.com/~opapa/cpp/Hook.htm

IEから移行したときに違和感を感じる所や、その他かゆい所。

お気に入りを開くときに新しいタブが作られてしまう

・[ツール] - [Sleipnirオプション] - [ユーザー インターフェース] - [お気に入りメニュー] - [お気に入りメニューは新しいウィンドウで開く] をOFF
・[ツール] - [Sleipnirオプション] - [パネル] - [お気に入りパネル] - [お気に入りは新規ウィンドウで開く] をOFF

検索ボックスでのホイール動作をOFFにしたい

検索ボックスにフォーカスがあると、ページ部分にマウスカーソルを合わせて（ページをスクロールするつもりで）マウスホイールをクリクリしたのに、「次を検索」「前を検索」の機能が働いてしまう。これがめっぽうウザったい。これをOFFにしたいんだけど、オプションが見つからんなぁ。。

ボタンのテキスト非表示

resources/languages/sleipnir/japanese/ToolBar.xml を編集。
→テキスト非表示にしたいところの「visible=”true”」を「visible=”false”」に変更。

この手間はちょっとばかしイラっとくるぜー。。

アクティブタブを強調表示

アクティブタブと非アクティブタブの区別が付きにくい。おんなじような色を使ってるから。おしゃれ気取ってユーザビリティ落とすんじゃねぇっ！！少なくとも default は使い勝手を優先してデザインされるべきだろう。

[ツール] - [Sleipnirオプション] - [Dock] - [タブ拡張] - [アクティブタブをボールド表示する] を ON 。
まぁマシになる程度。

スキン取替え
http://www.fenrir.co.jp/sleipnir/skins/
acrylic plus がかっちょいいかな。(と、結局かっちょいい系になびくのですが)

参考

Sleipnir の wiki
http://www.sleipnir-wiki.jp/