WinForms Data Grid - Use the Layout View as a master View in master-detail mode

C#
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using DevExpress.XtraGrid.Views.Grid.ViewInfo;


namespace WindowsApplication3 {
    public partial class Form1: Form {

        
        public Form1() {
            InitializeComponent();
        }

        MasterDetailHelper helper;

        private void Form1_Load(object sender, EventArgs e) {
            // TODO: This line of code loads data into the 'nwindDataSet.Orders' table. You can move, or remove it, as needed.
            this.ordersTableAdapter.Fill(this.nwindDataSet.Orders);
            // TODO: This line of code loads data into the 'nwindDataSet.Order_Details' table. You can move, or remove it, as needed.
            this.order_DetailsTableAdapter.Fill(this.nwindDataSet.Order_Details);

            gridControl1.ForceInitialize();
            helper = new MasterDetailHelper(layoutView1, ViewType.Grid);
            helper.CreateDetail();

            radioGroup1.Properties.Items.Add(new DevExpress.XtraEditors.Controls.RadioGroupItem(ViewType.Grid, "Grid"));
            radioGroup1.Properties.Items.Add(new DevExpress.XtraEditors.Controls.RadioGroupItem(ViewType.Layout, "Layout"));
            radioGroup1.Properties.Items.Add(new DevExpress.XtraEditors.Controls.RadioGroupItem(ViewType.Card, "Card"));
            radioGroup1.SelectedIndex = 0;
        }

        private void radioGroup1_SelectedIndexChanged(object sender, EventArgs e) {
            helper.ViewType = (ViewType)radioGroup1.EditValue;
        }

       
    }
}

Visual Basic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo


Namespace WindowsApplication3
    Partial Public Class Form1
        Inherits Form


        Public Sub New()
            InitializeComponent()
        End Sub

        Private helper As MasterDetailHelper

        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
            ' TODO: This line of code loads data into the 'nwindDataSet.Orders' table. You can move, or remove it, as needed.
            Me.ordersTableAdapter.Fill(Me.nwindDataSet.Orders)
            ' TODO: This line of code loads data into the 'nwindDataSet.Order_Details' table. You can move, or remove it, as needed.
            Me.order_DetailsTableAdapter.Fill(Me.nwindDataSet.Order_Details)

            gridControl1.ForceInitialize()
            helper = New MasterDetailHelper(layoutView1, ViewType.Grid)
            helper.CreateDetail()

            radioGroup1.Properties.Items.Add(New DevExpress.XtraEditors.Controls.RadioGroupItem(ViewType.Grid, "Grid"))
            radioGroup1.Properties.Items.Add(New DevExpress.XtraEditors.Controls.RadioGroupItem(ViewType.Layout, "Layout"))
            radioGroup1.Properties.Items.Add(New DevExpress.XtraEditors.Controls.RadioGroupItem(ViewType.Card, "Card"))
            radioGroup1.SelectedIndex = 0
        End Sub

        Private Sub radioGroup1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles radioGroup1.SelectedIndexChanged
            helper.ViewType = CType(radioGroup1.EditValue, ViewType)
        End Sub


    End Class
End Namespace

C#
using System;
using System.Collections.Generic;
using System.Text;
using DevExpress.XtraGrid.Views.Base;
using DevExpress.XtraGrid;
using DevExpress.XtraGrid.Columns;
using DevExpress.XtraEditors.Repository;
using DevExpress.XtraEditors;
using System.Collections;
using DevExpress.XtraGrid.Views.Card;
using DevExpress.XtraGrid.Views.Grid;
using DevExpress.XtraGrid.Views.Layout;
using DevExpress.XtraGrid.Views.Base.ViewInfo;
using System.Drawing;
using System.Windows.Forms;
using DevExpress.XtraGrid.Views.Grid.ViewInfo;
using DevExpress.Utils.Win;
using DevExpress.XtraEditors.Popup;

namespace WindowsApplication3 {
    public enum ViewType { Grid, Layout, Card }
    public class MasterDetailHelper {
        ColumnView view, detailView;
        ViewType viewType;
        GridControl detailGrid;

        public MasterDetailHelper(ColumnView view, ViewType viewType) {
            this.view = view;
            this.viewType = viewType;
        }


        public GridControl DetailGrid {
            get {
                if(detailGrid == null) {
                    detailGrid = CreateGrid();
                    detailGrid.MainView = DetailView;
                }
                return detailGrid;
            }
        }

        public ColumnView DetailView {
            get {
                if(detailView == null)
                    detailView = CreateView();
                return detailView;
            }
        }

        public ViewType ViewType {
            get { return viewType; }
            set {
                if(viewType != value) {
                    viewType = value;
                    detailView = null;
                    DetailGrid.MainView = DetailView;
                }
            }
        }

        public void CreateDetail() {
            SetColumnEdit(CreateColumn());
        }

        private GridControl CreateGrid() {
            GridControl grid = new GridControl();
            grid.Dock = System.Windows.Forms.DockStyle.Fill;
            return grid;
        }

        private ColumnView CreateView() {
            if(viewType == ViewType.Card)
                detailView = new CardView(DetailGrid);
            else if(viewType == ViewType.Grid) {
                detailView = new GridView(DetailGrid);
                ((GridView)detailView).OptionsView.ShowGroupPanel = false;
            }
            else
                detailView = new LayoutView(DetailGrid);
            return detailView;
        }

        private GridColumn CreateColumn() {
            GridColumn column = view.Columns.AddField("Detail");
            column.Visible = true;
            column.VisibleIndex = view.Columns.Count;
            return column;
        }

        private void SetColumnEdit(GridColumn column) {
            column.ColumnEdit = CreateItem();
        }

        private RepositoryItemPopupContainerEdit CreateItem() {
            RepositoryItemPopupContainerEdit item = new RepositoryItemPopupContainerEdit();
            item.PopupControl = CreatePopupControl();
            item.ShowPopupCloseButton = item.ShowPopupShadow = false;
            item.PopupSizeable = false;
            item.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.HideTextEditor;
            item.QueryPopUp += OnPopup;
            item.CloseUp += OnCloseUp;
            view.GridControl.RepositoryItems.Add(item);
            return item;
        }
       
        private PopupContainerControl CreatePopupControl() {
            PopupContainerControl popupControl = new PopupContainerControl();
            popupControl.Controls.Add(DetailGrid);
            return popupControl;
        }
       

        void OnPopup(object sender, EventArgs e) {
            DetailGrid.BeginUpdate();
            try {
                DetailGrid.DataSource = null;
                DetailGrid.DataSource = GetDetailData();
            }
            finally {
                DetailGrid.EndUpdate();
            }
            PopupContainerEdit edit = sender as PopupContainerEdit;
            if(edit.Properties.PopupControl.Parent == null)
                edit.Properties.PopupControl.Parent = edit.FindForm();
            DetailGrid.ForceInitialize();
            edit.Properties.PopupFormSize = CalcDetailViewSize();
        }

        private IList GetDetailData() {
            return view.DataController.GetDetailList(view.FocusedRowHandle, 0);
        }

        private System.Drawing.Size CalcDetailViewSize() {
            ColumnViewInfo viewInfo = DetailView.GetViewInfo() as ColumnViewInfo;
            Rectangle rect = new Rectangle(0, 0, view.GridControl.ClientSize.Width, DetailView.DetailHeight);
            rect.Height = viewInfo.CalcRealViewHeight(rect, true) + 5;
            return rect.Size;
        }

        void OnCloseUp(object sender, DevExpress.XtraEditors.Controls.CloseUpEventArgs e) {
            DetailView.PostEditor();
            detailView.UpdateCurrentRow();
        }
    }
}

Visual Basic
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraEditors
Imports System.Collections
Imports DevExpress.XtraGrid.Views.Card
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Layout
Imports DevExpress.XtraGrid.Views.Base.ViewInfo
Imports System.Drawing
Imports System.Windows.Forms
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Imports DevExpress.Utils.Win
Imports DevExpress.XtraEditors.Popup

Namespace WindowsApplication3
    Public Enum ViewType
        Grid
        Layout
        Card
    End Enum
    Public Class MasterDetailHelper
'INSTANT VB NOTE: The variable detailView was renamed since Visual Basic does not allow variables and other class members to have the same name:
        Private view, detailView_Renamed As ColumnView
'INSTANT VB NOTE: The variable viewType was renamed since Visual Basic does not allow variables and other class members to have the same name:
        Private viewType_Renamed As ViewType
'INSTANT VB NOTE: The variable detailGrid was renamed since Visual Basic does not allow variables and other class members to have the same name:
        Private detailGrid_Renamed As GridControl

        Public Sub New(ByVal view As ColumnView, ByVal viewType As ViewType)
            Me.view = view
            Me.viewType_Renamed = viewType
        End Sub


        Public ReadOnly Property DetailGrid() As GridControl
            Get
                If detailGrid_Renamed Is Nothing Then
                    detailGrid_Renamed = CreateGrid()
                    detailGrid_Renamed.MainView = DetailView
                End If
                Return detailGrid_Renamed
            End Get
        End Property

        Public ReadOnly Property DetailView() As ColumnView
            Get
                If detailView_Renamed Is Nothing Then
                    detailView_Renamed = CreateView()
                End If
                Return detailView_Renamed
            End Get
        End Property

        Public Property ViewType() As ViewType
            Get
                Return viewType_Renamed
            End Get
            Set(ByVal value As ViewType)
                If viewType_Renamed <> value Then
                    viewType_Renamed = value
                    detailView_Renamed = Nothing
                    DetailGrid.MainView = DetailView
                End If
            End Set
        End Property

        Public Sub CreateDetail()
            SetColumnEdit(CreateColumn())
        End Sub

        Private Function CreateGrid() As GridControl
            Dim grid As New GridControl()
            grid.Dock = System.Windows.Forms.DockStyle.Fill
            Return grid
        End Function

        Private Function CreateView() As ColumnView
            If viewType_Renamed = WindowsApplication3.ViewType.Card Then
                detailView_Renamed = New CardView(DetailGrid)
            ElseIf viewType_Renamed = WindowsApplication3.ViewType.Grid Then
                detailView_Renamed = New GridView(DetailGrid)
                CType(detailView_Renamed, GridView).OptionsView.ShowGroupPanel = False
            Else
                detailView_Renamed = New LayoutView(DetailGrid)
            End If
            Return detailView_Renamed
        End Function

        Private Function CreateColumn() As GridColumn
            Dim column As GridColumn = view.Columns.AddField("Detail")
            column.Visible = True
            column.VisibleIndex = view.Columns.Count
            Return column
        End Function

        Private Sub SetColumnEdit(ByVal column As GridColumn)
            column.ColumnEdit = CreateItem()
        End Sub

        Private Function CreateItem() As RepositoryItemPopupContainerEdit
            Dim item As New RepositoryItemPopupContainerEdit()
            item.PopupControl = CreatePopupControl()
            item.ShowPopupShadow = False
            item.ShowPopupCloseButton = item.ShowPopupShadow
            item.PopupSizeable = False
            item.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.HideTextEditor
            AddHandler item.QueryPopUp, AddressOf OnPopup
            AddHandler item.CloseUp, AddressOf OnCloseUp
            view.GridControl.RepositoryItems.Add(item)
            Return item
        End Function

        Private Function CreatePopupControl() As PopupContainerControl
            Dim popupControl As New PopupContainerControl()
            popupControl.Controls.Add(DetailGrid)
            Return popupControl
        End Function


        Private Sub OnPopup(ByVal sender As Object, ByVal e As EventArgs)
            DetailGrid.BeginUpdate()
            Try
                DetailGrid.DataSource = Nothing
                DetailGrid.DataSource = GetDetailData()
            Finally
                DetailGrid.EndUpdate()
            End Try
            Dim edit As PopupContainerEdit = TryCast(sender, PopupContainerEdit)
            If edit.Properties.PopupControl.Parent Is Nothing Then
                edit.Properties.PopupControl.Parent = edit.FindForm()
            End If
            DetailGrid.ForceInitialize()
            edit.Properties.PopupFormSize = CalcDetailViewSize()
        End Sub

        Private Function GetDetailData() As IList
            Return view.DataController.GetDetailList(view.FocusedRowHandle, 0)
        End Function

        Private Function CalcDetailViewSize() As System.Drawing.Size
            Dim viewInfo As ColumnViewInfo = TryCast(DetailView.GetViewInfo(), ColumnViewInfo)
            Dim rect As New Rectangle(0, 0, view.GridControl.ClientSize.Width, DetailView.DetailHeight)
            rect.Height = viewInfo.CalcRealViewHeight(rect, True) + 5
            Return rect.Size
        End Function

        Private Sub OnCloseUp(ByVal sender As Object, ByVal e As DevExpress.XtraEditors.Controls.CloseUpEventArgs)
            DetailView.PostEditor()
            detailView_Renamed.UpdateCurrentRow()
        End Sub
    End Class
End Namespace