API-Einstellungen, etc.

UID/usrCntlDatenarchiv.vb

@@ -147,7 +147,7 @@ Public Class usrCntlDatenarchiv
 
                     Dim c As New DataGridViewImageColumn
                     c.Name = "open" : c.HeaderText = "open"
-                    c.Image = My.Resources.wait : c.ImageLayout = DataGridViewImageCellLayout.Zoom
+                    c.Image = New Bitmap(1, 1)
                     c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
                     c.DefaultCellStyle.Tag = "open"
                     .Columns.Add(c)
@@ -157,9 +157,8 @@ Public Class usrCntlDatenarchiv
                 For Each r As DataGridViewRow In .Rows
 
                     If r.Cells("Param_value").Value IsNot DBNull.Value AndAlso r.Cells("Param_value").Value.ToString.StartsWith("\\") Then
-                        DirectCast(r.Cells("open"), DataGridViewImageCell).Value = My.Resources.stift
-                    Else
-                        DirectCast(r.Cells("open"), DataGridViewImageCell).Value = My.Resources.del
+                        DirectCast(r.Cells("open"), DataGridViewImageCell).Value = My.Resources.search
+
                     End If
                 Next