過去
[C#][Silverlight]DataGrid上でのマウスホイールでスクロールさせる方法(挫折)
[C#][Silverlight]DataGridのマウスホイールでのスクロール その2
久しぶりのSilverlightネタです。
Silverlight2のScrollViewerやDataGridのホイールスクロールは標準では対応してない。
ということで、前の2回色々試行錯誤したけど、イマイチな結果に終わってしまった。
今回は、DataGridをちょっと拡張するだけで、スクロールが簡単に出来るようになることがわかったので書いてみます。
DataGridの拡張
DataGridを継承して、ScrollableDataGridを作成します。
using System.Windows.Automation.Provider;
using System.Windows.Controls;
namespace SilverlightApplication6
{
public class ScrollableDataGrid : DataGrid
{
public IScrollProvider GetScrollProvider()
{
return (IScrollProvider) OnCreateAutomationPeer();
}
}
}
GetScrollProviderメソッドが今回のポイントです。
OnCreateAutomationPeerメソッドからDataGridに紐づいたAutomationPeerを取得します。
DataGridAutomationPeerがDataGridに紐づいたAutomationPeerで、こいつはIScrollProviderインターフェースを実装しています。
public sealed class DataGridAutomationPeer : FrameworkElementAutomationPeer,
IScrollProvider, ISelectionProvider, ITableProvider, IGridProvider
このインターフェースを外部に公開すれば、スクロールを外部からAPI経由で制御することが出来るようになります。IScrollProviderインターフェースのScrollメソッドで、水平方向と垂直方向のスクロールを制御できます。
ということで、スクロールの処理を作りこみます。
using System;
using System.Collections.Generic;
using System.Linq;
using System.Net;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Documents;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Media.Animation;
using System.Windows.Shapes;
using System.Windows.Browser;
using System.Diagnostics;
using System.Reflection;
using System.Windows.Automation;
namespace SilverlightApplication6
{
public partial class Page : UserControl
{
private Point lastPoint;
public Page()
{
InitializeComponent();
// ポイント!
// スクロールイベントを登録
HtmlPage.Window.AttachEvent("DOMMouseScroll", OnMouseWheel);
HtmlPage.Document.AttachEvent("onmousewheel", OnMouseWheel);
HtmlPage.Window.AttachEvent("onmousewheel", OnMouseWheel);
// DataGrid上でマウスが動いたときの座標を取得
dg1.MouseMove += (sender, e) =>
{
lastPoint = e.GetPosition(null);
};
// ダミーデータ作成
DataContext = Enumerable.Range(1, 100).Select(i =>
new Employee { Name = "田中 太郎" + i, Address = "東京都のどこか" + i }).ToList();
}
private void OnMouseWheel(object sender, HtmlEventArgs e)
{
// 上方向のスクロールか下方向のスクロールか取得
var delta = GetDelta(e.EventObject);
// 現在のマウスカーソルの位置を取得
var pt = new Point(e.OffsetX, e.OffsetY);
if (pt == lastPoint)
{
// DataGridでマウスが動いたときの座標と現在の座標が同じ場合は
// DataGridがスクロール対象となる。
// IScrollProviderを使用して、垂直方向にスクロールさせる。
dg1.GetScrollProvider().Scroll(
ScrollAmount.NoAmount,
delta < 0 ?
ScrollAmount.SmallIncrement :
ScrollAmount.SmallDecrement);
}
}
/// <summary>
/// OnMouseWheelのイベントから、deltaを取得する。
/// </summary>
/// <param name="scriptObject"></param>
/// <returns>delta</returns>
private double GetDelta(ScriptObject scriptObject)
{
if (scriptObject.GetProperty("wheelDelta") != null)
{
// ie and opera
var delta = (double)scriptObject.GetProperty("wheelDelta") / 120;
if (HtmlPage.Window.GetProperty("opera") != null)
{
// opera
delta = -delta;
}
return delta;
}
if (scriptObject.GetProperty("detail") != null)
{
// firefox
return (double)scriptObject.GetProperty("detail") / 3;
}
return 0.0;
}
}
}
これで実行すると、DataGrid上にカーソルがある状態で、ホイールをクルクルまわすと、スクロールします。
めでたしめでたし。
非常にわかりにくいが、ボタン上でホイールをまわしてもスクロールしない。
DataGrid上で、ホイールスクロールすると、普通にスクロールする。
結構いいかも。