Imports MicroFour.StrataFrame.UI.Windows.Forms
Imports System.ComponentModel
Imports System.Drawing
Imports System.Drawing.Design

Namespace Windows.Forms

    Public Class ActionLinkMenuItem
        Inherits ThemedLinkMenuItem
        Implements IComponent ', IExtenderProvider


        'Implements IExtenderProvider


        'Dim toolTips1 As New System.Windows.Forms.ToolTip


#Region " Constructors "


        ''' <summary>
        ''' Initializes a new instance of the ActionLinkMenuItem class.
        ''' </summary>
        ''' <remarks></remarks>
        Public Sub New()
        End Sub

        ''' <summary>
        ''' Initializes a new instance of the ActionLinkMenuItem class.
        ''' </summary>
        ''' <param name="Title"></param>
        ''' <param name="Key"></param>
        ''' <param name="Icon"></param>
        ''' <remarks></remarks>
        Public Sub New(ByVal Title As String, ByVal Key As String, ByVal Icon As Image, _
            ByVal Handler As ClickHandler, ByVal Visible As Boolean)

            MyBase.New()
            Me.Title = Title
            Me.Key = Key
            Me.ItemImage = Icon
            Me._Handler = Handler
            Me.Visible = Visible

            'toolTips1.SetToolTip(Me, Title)

        End Sub

        ' 

#End Region

#Region " Private Fields "

        Private _Handler As ClickHandler
        Private _Enabled As Boolean = True


#End Region

#Region " Events "

        ''' <summary>
        ''' Occurs when this action is clicked.
        ''' </summary>
        ''' <remarks></remarks>
        Public Custom Event Click As ClickHandler
            AddHandler(ByVal value As ClickHandler)
                Me._Handler = DirectCast([Delegate].Combine(Me._Handler, value), ClickHandler)
            End AddHandler
            RemoveHandler(ByVal value As ClickHandler)
                Me._Handler = DirectCast([Delegate].Remove(Me._Handler, value), ClickHandler)
            End RemoveHandler
            RaiseEvent()
                If Me._Handler IsNot Nothing Then
                    Me._Handler()
                End If
            End RaiseEvent
        End Event

        ''' <summary>
        ''' Occurs when this object is disposed.
        ''' </summary>
        ''' <remarks></remarks>
        Public Event Disposed As EventHandler Implements IComponent.Disposed

#End Region

#Region " Public Properties "

        ''' <summary>
        ''' Gets or sets the permission key used to determine whether the current user has permission
        ''' to delete records through this child ListViews DeleteObject reference.
        ''' </summary>
        <Category("+Progytech: Security"), _
        DefaultValue(""), _
        Description("The permission key used to determine whether the current user has permission to action assigned to this menu."), _
        Editor(MicroFour.StrataFrame.Extensibility.Constants.TE_SecurityKeyTypeEditor, GetType(UITypeEditor))> _
        Public Property SecurityKey() As String = ""

        ''' <summary>
        ''' Gets or sets the site for this component.
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        <Browsable(False)> _
        Public Property Site() As System.ComponentModel.ISite Implements System.ComponentModel.IComponent.Site


        ''' <summary>
        ''' The image that will be rendered on the item
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        <Category("+Progytech: Security"),
         Description("The image that will be rendered on the item.")>
        Public Property ItemImageDisabled() As Image = Nothing


        ''' <summary>
        ''' The image that will be rendered on the item
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        <Category("+Progytech: Security"),
         Description("The image that will be rendered on the item.")>
        Public Property ItemImageEnabled() As Image = ItemImage


        ''' <summary>
        ''' The enabled state of the menu item
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        <Category("+Progytech: Security"),
         Description("The enabled state of the menu item."),
         DefaultValue(True)>
        Public Overloads Property Enabled() As Boolean
            Get
                Return _Enabled
            End Get
            Set(ByVal value As Boolean)

                '-- Make sure the default icons are assigned if none has been
                '   assigned previously.
                Select Case Me.Key
                    Case "Home"
                        If ItemImageEnabled Is Nothing Then
                            ItemImageEnabled = My.Resources.Home_16x16
                        End If
                        If ItemImageDisabled Is Nothing Then
                            ItemImageDisabled = My.Resources.Home_16x16_Disabled
                        End If

                    Case "Search"
                        If ItemImageEnabled Is Nothing Then
                            ItemImageEnabled = My.Resources.Find_16x16
                        End If
                        If ItemImageDisabled Is Nothing Then
                            ItemImageDisabled = My.Resources.Find_16x16_Disabled
                        End If

                    Case "Add"
                        If ItemImageEnabled Is Nothing Then
                            ItemImageEnabled = My.Resources.Add_16x16
                        End If
                        If ItemImageDisabled Is Nothing Then
                            ItemImageDisabled = My.Resources.Add_16x16_Disabled
                        End If

                    Case "Edit"
                        If ItemImageEnabled Is Nothing Then
                            ItemImageEnabled = My.Resources.Edit_16x16
                        End If
                        If ItemImageDisabled Is Nothing Then
                            ItemImageDisabled = My.Resources.Edit_16x16_Disabled
                        End If

                    Case "Delete"
                        If ItemImageEnabled Is Nothing Then
                            ItemImageEnabled = My.Resources.Delete_16x16
                        End If
                        If ItemImageDisabled Is Nothing Then
                            ItemImageDisabled = My.Resources.Delete_16x16_Disabled
                        End If

                    Case "Print"
                        If ItemImageEnabled Is Nothing Then
                            ItemImageEnabled = My.Resources.Print_16x16
                        End If
                        If ItemImageDisabled Is Nothing Then
                            ItemImageDisabled = My.Resources.Print_16x16_Disabled
                        End If

                    Case "Close"
                        If ItemImageEnabled Is Nothing Then
                            ItemImageEnabled = My.Resources.Close_16x16
                        End If
                        If ItemImageDisabled Is Nothing Then
                            ItemImageDisabled = My.Resources.Close_16x16_Disabled
                        End If
                End Select


                _Enabled = value
                If Not value Then
                    State = LinkMenuItemState.Disabled
                    If ItemImageDisabled IsNot Nothing Then
                        ItemImage = ItemImageDisabled
                    Else
                        If ItemImageEnabled IsNot Nothing Then
                            ItemImage = ItemImageEnabled
                        End If
                    End If
                Else
                    If State = LinkMenuItemState.Disabled Then
                        State = LinkMenuItemState.Normal
                        If ItemImageEnabled IsNot Nothing Then
                            ItemImage = ItemImageEnabled
                        End If
                    End If
                End If

                '-- Redraw the parent control
                If Parent IsNot Nothing Then
                    Parent.Invalidate()
                End If
            End Set
        End Property


#End Region

#Region " Public Methods "

        Public Sub Dispose() Implements IDisposable.Dispose

        End Sub

        ''' <summary>
        ''' Calls the internal click handler for the link menu.
        ''' </summary>
        ''' <remarks></remarks>
        Public Sub OnClick()
            '-- Call the internal handler
            RaiseEvent Click()
        End Sub

#End Region

#Region " Nested Types "

        ''' <summary>
        ''' Describes a method that will be called when the link item is clicked.
        ''' </summary>
        ''' <remarks></remarks>
        Public Delegate Sub ClickHandler()



#End Region

        'Public Function CanExtend(extendee As Object) As Boolean Implements IExtenderProvider.CanExtend
        '    'If TypeOf extendee Is ActionLinkMenuItem Then
        '    '    Return True
        '    'End If
        '    Return True
        'End Function

    End Class

End Namespace