How to: Filter Columns that Display RTF Data

The complete sample project is available in the DevExpress Code Central database at http://www.devexpress.com/example=E2907. Depending on the target platform type (ASP.NET, WinForms, etc), you can either run this example online or download an auto-executable sample.

C#:Form1.cs

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;

 

namespace E2907 {

    public partial class Form1 : Form {

        public Form1() {

            InitializeComponent();

        }

 

        private void Form1_Load(object sender, EventArgs e) {

            InitData();

        }

 

        void InitData() {

            string[] descriptions = new string[] {"General description",

                @"{\rtf1\deff0{\fonttbl{\f0 Times New Roman;}{\f1 Arial;}}{\colortbl\red0\green0\blue0;\red49\green105\blue198;\red255\green0\blue0;}{\*\listoverridetable}{\stylesheet {\ql\cf0 Normal;}{\*\cs1\cf0 Default Paragraph Font;}}{\sectd\pard\plain\ql{\b\f1\fs16\cf0 BOLD }{\f1\fs16\cf0 description}\par}}",

                @"{\rtf1\deff0{\fonttbl{\f0 Times New Roman;}{\f1 Arial;}}{\colortbl\red0\green0\blue0;\red49\green105\blue198;\red255\green0\blue0;}{\*\listoverridetable}{\stylesheet {\ql\cf0 Normal;}{\*\cs1\cf0 Default Paragraph Font;}}{\sectd\pard\plain\ql{\f1\fs16\cf0 Description with }{\ul\f1\fs16\cf0 UNDERLINE }{\f1\fs16\cf0 text}\par}}",

                @"{\rtf1\deff0{\fonttbl{\f0 Times New Roman;}{\f1 Arial;}}{\colortbl\red0\green0\blue0;\red49\green105\blue198;\red255\green0\blue0;}{\*\listoverridetable}{\stylesheet {\ql\cf0 Normal;}{\*\cs1\cf0 Default Paragraph Font;}}{\sectd\pard\plain\ql{\i\f1\fs16\cf0 ITALIC }{\f1\fs16\cf0 description}\par}}"};

            DataTable tbl = new DataTable();

            tbl.Columns.Add("ID", typeof(int));

            tbl.Columns.Add("Name", typeof(string));

            tbl.Columns.Add("Description", typeof(string));

            for(int i = 1; i < 10; i++)

                tbl.Rows.Add(i, string.Format("Item{0}", i), descriptions[i%4]);

            gridControl1.DataSource = tbl;

        }

 

        private void gridView1_CustomUnboundColumnData(object sender, DevExpress.XtraGrid.Views.Base.CustomColumnDataEventArgs e) {

            if(e.Column.FieldName == "SimpleText" && e.IsGetData) {

                object value = ((GridView)sender).GetListSourceRowCellValue(e.ListSourceRowIndex, colDescription);

                e.Value = repositoryItemRichTextEdit1.ConvertEditValueToPlainText(value);

            }

        }

    }

}

 

C#:Program.cs

using System;

using System.Collections.Generic;

using System.Windows.Forms;

namespace E2907 {

    static class Program {

        /// <summary>

        /// The main entry point for the application.

        /// </summary>

        [STAThread]

        static void Main() {

            Application.EnableVisualStyles();

            Application.SetCompatibleTextRenderingDefault(false);

            Application.Run(new Form1());

        }

    }

}

 

VB:Form1.vb

Imports Microsoft.VisualBasic

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

Namespace E2907

    Partial Public Class Form1

        Inherits Form

        Public Sub New()

            InitializeComponent()

        End Sub

        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

            InitData()

        End Sub

        Private Sub InitData()

            Dim descriptions() As String = {"General description", "{\rtf1\deff0{\fonttbl{\f0 Times New Roman;}{\f1 Arial;}}{\colortbl\red0\green0\blue0;\red49\green105\blue198;\red255\green0\blue0;}{\*\listoverridetable}{\stylesheet {\ql\cf0 Normal;}{\*\cs1\cf0 Default Paragraph Font;}}{\sectd\pard\plain\ql{\b\f1\fs16\cf0 BOLD }{\f1\fs16\cf0 description}\par}}", "{\rtf1\deff0{\fonttbl{\f0 Times New Roman;}{\f1 Arial;}}{\colortbl\red0\green0\blue0;\red49\green105\blue198;\red255\green0\blue0;}{\*\listoverridetable}{\stylesheet {\ql\cf0 Normal;}{\*\cs1\cf0 Default Paragraph Font;}}{\sectd\pard\plain\ql{\f1\fs16\cf0 Description with }{\ul\f1\fs16\cf0 UNDERLINE }{\f1\fs16\cf0 text}\par}}", "{\rtf1\deff0{\fonttbl{\f0 Times New Roman;}{\f1 Arial;}}{\colortbl\red0\green0\blue0;\red49\green105\blue198;\red255\green0\blue0;}{\*\listoverridetable}{\stylesheet {\ql\cf0 Normal;}{\*\cs1\cf0 Default Paragraph Font;}}{\sectd\pard\plain\ql{\i\f1\fs16\cf0 ITALIC }{\f1\fs16\cf0 description}\par}}"}

            Dim tbl As New DataTable()

            tbl.Columns.Add("ID", GetType(Integer))

            tbl.Columns.Add("Name", GetType(String))

            tbl.Columns.Add("Description", GetType(String))

            For i As Integer = 1 To 9

                tbl.Rows.Add(i, String.Format("Item{0}", i), descriptions(i Mod 4))

            Next i

            gridControl1.DataSource = tbl

        End Sub

        Private Sub gridView1_CustomUnboundColumnData(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Base.CustomColumnDataEventArgs) Handles gridView1.CustomUnboundColumnData

            If e.Column.FieldName = "SimpleText" AndAlso e.IsGetData Then

                Dim value As Object = (CType(sender, GridView)).GetListSourceRowCellValue(e.ListSourceRowIndex, colDescription)

                e.Value = repositoryItemRichTextEdit1.ConvertEditValueToPlainText(value)

            End If

        End Sub

    End Class

End Namespace

 

VB:Program.vb

Imports Microsoft.VisualBasic

Imports System

Imports System.Collections.Generic

Imports System.Windows.Forms

Namespace E2907

    Friend NotInheritable Class Program

        ''' <summary>

        ''' The main entry point for the application.

        ''' </summary>

        Private Sub New()

        End Sub

        <STAThread> _

        Shared Sub Main()

            Application.EnableVisualStyles()

            Application.SetCompatibleTextRenderingDefault(False)

            Application.Run(New Form1())

        End Sub

    End Class

End Namespace