.Net 4.8, Spire PDF, PDF Kopmrimieren

Aviso/Anhänge/usrCntlSendungAnhangElement.vb

@@ -16,6 +16,7 @@ Public Class usrCntlSendungAnhangElement
 
     Public Event ME_CLICK(STRG_PRESSED)
     Public Event ME_DELETE(FILE_DOCID, FILE_ANHID)
+    Public Event ME_COMPRESS(FILE_DOCID, FILE_ANHID)
 
 
     'Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
@@ -24,6 +25,7 @@ Public Class usrCntlSendungAnhangElement
     '    RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
     'End Sub
 
+
     Private ACTIVE_Value As Boolean = False
     Public Property ACTIVE As Boolean
         Get
@@ -87,6 +89,23 @@ Public Class usrCntlSendungAnhangElement
         End Set
 
     End Property
+
+
+    Private FILE_SIZE_Value As String = False
+    Public Property FILE_SIZE As String
+        Get
+            Return Me.FILE_SIZE_Value
+        End Get
+
+        Set(ByVal value As String)
+            If Not (value = FILE_SIZE) Then
+                Me.FILE_SIZE_Value = value
+                Me.lblSize.Text = value
+                ' NotifyPropertyChanged("FILE_NAME")
+            End If
+        End Set
+    End Property
+
     'Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, lbl.Click, Me.Click
     '    RaiseEvent ME_CLICK(My.Computer.Keyboard.CtrlKeyDown)
     'End Sub
@@ -165,4 +184,14 @@ Public Class usrCntlSendungAnhangElement
             MsgBox(ex.Message & ex.StackTrace)
         End Try
     End Sub
+
+    Private Sub usrCntlSendungAnhangElement_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
+            KomprimierenToolStripMenuItem.Visible = True
+        End If
+    End Sub
+
+    Private Sub KomprimierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KomprimierenToolStripMenuItem.Click
+        RaiseEvent ME_COMPRESS(FILE_DOCID, FILE_ANHID)
+    End Sub
 End Class