WinGrid Draw フィルタ実装内の WinChart

Imports System
Imports System.Drawing
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Imports Infragistics.Win.UltraWinChart
Public Class ChartInsideGridCellDrawFilter
	Implements IUIElementDrawFilter

using System;
using System.Drawing;
using Infragistics.Win;
using Infragistics.Win.UltraWinGrid;
using Infragistics.Win.UltraWinChart;
public class ChartInsideGridCellDrawFilter : IUIElementDrawFilter

#Region "Members"
	'グラフへの参照
        Private _theChart As UltraChart
        'グリッドへの参照
	Private _theGrid As UltraGrid
	Public Delegate Sub ChartInfoRequestedDelegate(ByVal Sender As Object, ByVal e As ChartInfoEventArgs)
	Public Event ChartInfoRequested As ChartInfoRequestedDelegate
#End Region

#region Members
       //グラフへの参照
         UltraChart _theChart;
       //グリッドへの参照
         private   UltraGrid _theGrid;
         public delegate void ChartInfoRequestedDelegate(object Sender, ChartInfoEventArgs e);
         public event ChartInfoRequestedDelegate ChartInfoRequested;
#endregion

#Region "Constructor"
	Public Sub New(ByVal theGrid As UltraGrid)
		_theGrid = theGrid
		_theChart = New UltraChart()
		theGrid.FindForm().Controls.Add(_theChart)
		AddHandler _theGrid.MouseEnterElement, AddressOf _theGrid_MouseEnterElement
		AddHandler _theChart.MouseLeave, AddressOf _theChart_MouseLeave
	End Sub
#End Region

#region Constructor
public ChartInsideGridCellDrawFilter(UltraGrid theGrid)
{
	_theGrid = theGrid;
	_theChart = new UltraChart();
	theGrid.FindForm().Controls.Add(_theChart);
	_theGrid.MouseEnterElement += new UIElementEventHandler(_theGrid_MouseEnterElement);
	_theChart.MouseLeave += new EventHandler(_theChart_MouseLeave);
}
#endregion

#Region "Props"
	Private _currentCell As UltraGridCell = Nothing
	Public Property CurrentCell() As UltraGridCell
		'現在の WinGrid セルへの参照：
		Get
			Return _currentCell
		End Get
		Set(ByVal value As UltraGridCell)
			_currentCell = value
		End Set
	End Property
	Public ReadOnly Property Chart() As UltraChart
		'グラフへの参照
		Get
			Return _theChart
		End Get
	End Property
#End Region

#region Props
//現在の WinGrid セルへの参照：
private UltraGridCell _currentCell = null;
public UltraGridCell CurrentCell
{
	get { return _currentCell; }
	set { _currentCell = value; }
}
//グラフへの参照
public UltraChart Chart
{
	get { return _theChart; }
}
#endregion

#Region "Grid Events"
	Private Sub _theGrid_MouseEnterElement(ByVal sender As Object, ByVal e As Infragistics.Win.UIElementEventArgs)
		Me.ShowChartInCell(e.Element, _theGrid)
	End Sub
#End Region

#region Grid Events
private void _theGrid_MouseEnterElement(object sender,
	Infragistics.Win.UIElementEventArgs e)
{
	this.ShowChartInCell(e.Element, _theGrid);
}
#endregion

#Region "Chart Events"
	Private Sub _theChart_MouseLeave(ByVal sender As Object, ByVal e As EventArgs)
		Me.CurrentCell.Tag = HelperFunctions.ChartToLayout(Me.Chart)
		Me.Chart.Visible = False
	End Sub
#End Region

#region Chart Events
private void _theChart_MouseLeave(object sender, EventArgs e)
{
	this.CurrentCell.Tag = HelperFunctions.ChartToLayout(this.Chart);
	this.Chart.Visible = false;
}
#endregion

#Region "Methods"
Private Sub ShowChartInCell(ByVal theUIElement As UIElement, ByVal theGrid As UltraGrid)
	'以下のエレメント タイプだけを対象にします：
	If TypeOf theUIElement Is EditorWithTextDisplayTextUIElement Then
		'この UIElement に関連付けられた WinGrid セルを取得します
		Dim theCell As UltraGridCell = TryCast(theUIElement.GetContext(GetType(UltraGridCell)), UltraGridCell)
		'グラフ コンポーネントを受け取る "CHART" セル
		'であることを確認します：
		If theCell IsNot Nothing AndAlso theCell.Column.Key = "CHART" AndAlso theCell.Tag IsNot Nothing Then
			Me.CurrentCell = theCell
			Dim r As Rectangle = theUIElement.Rect
			'クリップされた四角形が使用されているかどうかを決定します
			If theUIElement.ClipRect.Width < theUIElement.Rect.Width Then
				r = theUIElement.ClipRect
			End If
			'現在のセルを参照します
			'グラフの SetBounds メソッドを使用して
			'現在のセルを表す UIElement の上で直接
			'配置およびサイズ設定します
			Me.Chart.SetBounds(r.Location.X + theGrid.Location.X, r.Location.Y + theGrid.Location.Y, r.Width, r.Height)
			'CurrentCell のタグ内に保存される
			'ChartLayout オブジェクトを取得して、そのプロパティ値を
			'グラフに適用します
			HelperFunctions.LayoutToChart(TryCast(Me.CurrentCell.Tag, ChartLayout), Me.Chart)
			'グラフを表示して、フォントに持っていきます：
			Me.Chart.Visible = True
			Me.Chart.BringToFront()
			Me.Chart.Focus()
			Me.Chart.Refresh()
		End If
	End If
End Sub

#region Methods
private void ShowChartInCell(
	UIElement theUIElement, UltraGrid theGrid)
{
	//以下のエレメント タイプだけを対象にします：
	if (theUIElement is EditorWithTextDisplayTextUIElement)
	{
		//この UIElement に関連付けられた WinGrid セルを取得します
		UltraGridCell theCell =theUIElement.GetContext(typeof(UltraGridCell)) as UltraGridCell;
		//グラフ コンポーネントを受け取る "CHART" セル
		//であることを確認します：
		if (theCell != null &&
			theCell.Column.Key == "CHART" &&
			theCell.Tag != null)
		{
			this.CurrentCell = theCell; //現在のセルを参照します
			Rectangle r = theUIElement.Rect;
			//クリップされた四角形が使用されているかどうかを決定します
			if (theUIElement.ClipRect.Width < theUIElement.Rect.Width)
			{
				r = theUIElement.ClipRect;
			}
			//グラフの SetBounds メソッドを使用して
			//現在のセルを表す UIElement の上で直接
			//配置およびサイズ設定します
			this.Chart.SetBounds(
				r.Location.X + theGrid.Location.X,
				r.Location.Y + theGrid.Location.Y,
				r.Width,
				r.Height);
			//CurrentCell のタグ内に保存される
			//ChartLayout オブジェクトを取得して、そのプロパティ値を
			//グラフに適用します
			HelperFunctions.LayoutToChart(
				this.CurrentCell.Tag as ChartLayout,
				this.Chart);
			//グラフを表示して、フォントに持っていきます：
			this.Chart.Visible = true;
			this.Chart.BringToFront();
			this.Chart.Focus();
			this.Chart.Refresh();
		}
	}
}

Protected Sub onChartInfoRequested(ByVal e As ChartInfoEventArgs)
	RaiseEvent ChartInfoRequested(Me, e)
End Sub

protected void onChartInfoRequested(ChartInfoEventArgs e)
{
	if (ChartInfoRequested != null)
	{
		ChartInfoRequested(this, e);
	}
	else
	{
		throw new ApplicationException(
			"The ChartInfoRequested event must be handled otherwise the Chart will not render");
	}
}
#endregion

#Region "IUIElementDrawFilter Members"
Public Function GetPhasesToFilter(ByRef drawParams As UIElementDrawParams) As Infragistics.Win.DrawPhase Implements IUIElementDrawFilter.GetPhasesToFilter
	Return DrawPhase.BeforeDrawBackColor
	'エレメントの backColor を描画するための時間で発生する
	'段階を使用したい希望があります。
End Function

#region IUIElementDrawFilter Members
public Infragistics.Win.DrawPhase GetPhasesToFilter(
	ref UIElementDrawParams drawParams)
{
	return DrawPhase.BeforeDrawBackColor; //エレメントの backColor を描画するための時間で発生する
	//段階を使用したい希望があります。
}

Public Function DrawElement(ByVal drawPhase As Infragistics.Win.DrawPhase, ByRef drawParams As UIElementDrawParams) As Boolean Implements IUIElementDrawFilter.DrawElement
	'TRUE:自分で描画を処理します
	'FALSE:コントロールにエレメントを描画させます
	Dim retVal As Boolean = False
	'以下のエレメント タイプだけを対象にします：
	If TypeOf drawParams.Element Is EditorWithTextDisplayTextUIElement Then
		Dim g As Graphics = drawParams.Graphics
		'この UIElement に関連付けられた WinGrid セルを取得します
		Dim theGridCell As UltraGridCell = TryCast(drawParams.Element.GetContext(GetType(UltraGridCell)), UltraGridCell)
		'CHART セル/列にあることを確認します
		If theGridCell IsNot Nothing AndAlso theGridCell.Column.Key = "CHART" Then
			Dim theChartLayout As ChartLayout = TryCast(theGridCell.Tag, ChartLayout)
			'存在する場合はグラフ画像に対してセルのタグを調べます
			If theChartLayout Is Nothing Then
				' 新しい EventArg を作成します
				Dim e As New ChartInfoEventArgs(_theChart, theGridCell.Row)
				'Chart Info Requested イベントを発生させ、
				'開発者にグラフと現在のグリッド行を
				'公開します
				Me.onChartInfoRequested(e)
				'グラフが表示する場所を配置および設定します
				'これは現在のセルの UIElement 四角形と同じ
				'場所である必要があります
				_theChart.SetBounds(drawParams.Element.Rect.X, drawParams.Element.Rect.Y, drawParams.Element.Rect.Width, drawParams.Element.Rect.Height)
				_theChart.Data.DataBind()
				'グラフのプロパティを Layout オブジェクトにコピーするので
				'グラフをこれらの設定に後で
				'リストアすることができます
				theChartLayout = HelperFunctions.ChartToLayout(_theChart)
				'セルの Tag にレイアウトを保存します
				theGridCell.Tag = theChartLayout
			End If
                  'System.Diagnostics.Debug.WriteLine("DrawFilter: " + theGridCell.Row.Cells["CustomerID"].Value.ToString() );
			'いずれかの方法で実際のグラフ画像を取得し、
			'現在の UIElement の四角形を使用し、
			'画像を四角形に描画します
			g.DrawImage(theChartLayout.Image, drawParams.Element.Rect)
			retVal = True
		End If
	End If
	Return retVal
End Function
#End Region

public bool DrawElement(Infragistics.Win.DrawPhase drawPhase,
	ref UIElementDrawParams drawParams)
{
	//TRUE:自分で描画を処理します
	//FALSE:コントロールにエレメントを描画させます
	bool retVal = false;
	//以下のエレメント タイプだけを対象にします：
	if (drawParams.Element is EditorWithTextDisplayTextUIElement)
	{
		Graphics g = drawParams.Graphics;
		//この UIElement に関連付けられた WinGrid セルを取得します
		UltraGridCell theGridCell =
			drawParams.Element.GetContext(typeof(UltraGridCell)) as UltraGridCell;
		//CHART セル/列にあることを確認します
		if (theGridCell != null && theGridCell.Column.Key == "CHART")
		{
			ChartLayout theChartLayout = theGridCell.Tag as ChartLayout;
			Rectangle r = drawParams.Element.Rect;
			//存在する場合はグラフ画像に対してセルのタグを調べます
			if (theChartLayout == null)
			{
				//新しい EventArg を作成します
				ChartInfoEventArgs e =
					new ChartInfoEventArgs(_theChart, theGridCell.Row);
				//Chart Info Requested イベントを発生させ、
				//開発者にグラフと現在のグリッド行を
				//公開します
				this.onChartInfoRequested(e);
				//クリップされた四角形が使用されているかどうかを決定します
				if (drawParams.Element.ClipRect.Width < drawParams.Element.Rect.Width)
				{
					r = drawParams.Element.ClipRect;
				}
				else
				{
					r = drawParams.Element.Rect;
				}
				//グラフが表示する場所を配置および設定します
				//これは現在のセルの UIElement 四角形と同じ
				//場所である必要があります
				_theChart.SetBounds(r.X,
					r.Y,
					r.Width,
					r.Height);
				_theChart.Data.DataBind();
				//グラフのプロパティを Layout オブジェクトにコピーするので
				//グラフをこれらの設定に後で
				//リストアすることができます
				theChartLayout = HelperFunctions.ChartToLayout(_theChart);
				//セルの Tag にレイアウトを保存します
				theGridCell.Tag = theChartLayout;
			}
			//System.Diagnostics.Debug.WriteLine("DrawFilter: " + theGridCell.Row.Cells["CustomerID"].Value.ToString() );
			//いずれかの方法で実際のグラフ画像を取得し、
			//現在の UIElement の四角形を使用し、
			//画像を四角形に描画します
			g.DrawImage(theChartLayout.Image, r);
			retVal = true;
		}
	}
	return retVal;
}
#endregion