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

• Nov 28, 2023

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

Form1.cs

using System;
using System.Windows.Forms;
using DevExpress.Pdf;
using DevExpress.XtraPdfViewer;
// ...
private void Form1_Load(object sender, EventArgs e) {
    this.pdfViewer.LoadDocument(@"..\..\Demo.pdf");
    this.pdfViewer.ZoomMode = 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