From ec06fd5e7c82fdd78a8521024c60e6f3ee9688aa Mon Sep 17 00:00:00 2001
From: PaulDudaRESPEC <paul.duda@respec.com>
Date: Fri, 6 Sep 2024 15:24:10 -0400
Subject: [PATCH] frmDownload.vb -- small change for compatibility with
 DotSpatial Grids

---
 D4EMDownloadData/frmDownload.vb | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/D4EMDownloadData/frmDownload.vb b/D4EMDownloadData/frmDownload.vb
index 23c1b1b70..f148b605b 100644
--- a/D4EMDownloadData/frmDownload.vb
+++ b/D4EMDownloadData/frmDownload.vb
@@ -629,8 +629,12 @@ Public Class frmDownload
             Dim lFilename As String = ""
             Dim lSelectedCount As Integer = 0
             If lLayer IsNot Nothing Then
-                lFilename = IO.Path.GetFileNameWithoutExtension(lLayer.DataSet.Filename).ToLower
-                lSelectedCount = CType(lLayer, IMapFeatureLayer).Selection().Count
+                If lLayer.GetType.Name = "MapRasterLayer" Then
+                    lFilename = ""
+                Else
+                    lFilename = IO.Path.GetFileNameWithoutExtension(lLayer.DataSet.Filename).ToLower
+                    lSelectedCount = CType(lLayer, IMapFeatureLayer).Selection().Count
+                End If
             Else
                 lFilename = ""
             End If