Imports System.ComponentModel

Public Class usrCntlSendungAnhangElement
    ' Implements INotifyPropertyChanged



    ' Property FILE_NAME = ""
    Property FILE_PATH
    Property FILE_TYPE

    Property FILE_PAGES
    Property FILE_DOCID
    Property FILE_ANHID


    Public Event ME_CLICK()


    'Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

    'Private Sub NotifyPropertyChanged(ByVal info As String)
    '    RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
    'End Sub

    Private ACTIVE_Value As Boolean = False
    Public Property ACTIVE As Boolean
        Get
            Return Me.ACTIVE_Value
        End Get

        Set(ByVal value As Boolean)
            If Not (value = ACTIVE) Then
                Me.ACTIVE_Value = value
                ' NotifyPropertyChanged("ACTIVE")
            End If

            If value Then
                Me.BackColor = Color.FromArgb(0, 54, 128)
                Me.lbl.ForeColor = Color.White
            Else
                Me.BackColor = Color.White
                Me.lbl.ForeColor = Color.Black
            End If
        End Set
    End Property


    Private FILE_NAME_Value As String = False
    Public Property FILE_NAME As String
        Get
            Return Me.FILE_NAME_Value
        End Get

        Set(ByVal value As String)
            If Not (value = FILE_NAME) Then
                Me.FILE_NAME_Value = value
                Me.lbl.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()
    End Sub
    Public Sub CLICK_Me()
        RaiseEvent ME_CLICK()
    End Sub

    Private Sub pic_doubleClick(sender As Object, e As EventArgs) Handles pic.DoubleClick, lbl.DoubleClick, Me.DoubleClick
        Process.Start(Me.FILE_PATH)
    End Sub
End Class