How to: Determine the PDF Content Type Corresponding to a Specific Point in a Document

• Nov 13, 2018

This example illustrates how to determine the type of the PDF content corresponding to the point that is being clicked.

Note

A complete sample project is available at https://github.com/DevExpress-Examples/how-to-determine-the-pdf-content-type-corresponding-to-a-specific-document-point-t128105

Form1.cs

using System;
using System.Windows.Forms;
using DevExpress.Pdf;
// ...
        private void Form1_Load(object sender, EventArgs e) {
            this.pdfViewer.LoadDocument(@"..\..\Demo.pdf");
            this.pdfViewer.ZoomMode = DevExpress.XtraPdfViewer.PdfZoomMode.FitToWidth;
        }

        private void pdfViewer_MouseMove(object sender, MouseEventArgs e) {
            PdfDocumentContent content = pdfViewer.GetContentInfo(e.Location);
            if(content != null) {
                string contentTypeText = content.IsSelected ? "Selected " : "Unselected ";
                switch(content.ContentType) {
                    case PdfDocumentContentType.Text:
                        contentTypeText = contentTypeText + "text";
                        break;
                    case PdfDocumentContentType.Image:
                        contentTypeText = contentTypeText + "image";
                        break;
                    default:
                        contentTypeText = "The content is empty";
                        break;
                }
                bsiContentType.Caption = contentTypeText;
            }
        }

Form1.vb

Imports System
Imports System.Windows.Forms
Imports DevExpress.Pdf
' ...
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    Me.pdfViewer.LoadDocument("..\..\Demo.pdf")
    Me.pdfViewer.ZoomMode = DevExpress.XtraPdfViewer.PdfZoomMode.FitToWidth
End Sub

Private Sub pdfViewer_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles pdfViewer.MouseMove
    Dim content As PdfDocumentContent = pdfViewer.GetContentInfo(e.Location)
    If content IsNot Nothing Then
        Dim contentTypeText As String = If(content.IsSelected, "Selected ", "Unselected ")
        Select Case content.ContentType
            Case PdfDocumentContentType.Text
                contentTypeText = contentTypeText & "text"
            Case PdfDocumentContentType.Image
                contentTypeText = contentTypeText & "image"
            Case Else
                contentTypeText = "The content is empty"
        End Select
        bsiContentType.Caption = contentTypeText
    End If
End Sub