Option Strict On
Option Explicit On

Imports System
Imports System.Collections.Generic
Imports System.Collections.ObjectModel
Imports System.Globalization
Imports System.Windows.Forms
Imports Nexamas.UI.Architecture
Imports Nexamas.UI.Composition
Imports Nexamas.UI.Controls
Imports Nexamas.UI.General
Imports Nexamas.UI.Layout
Imports Nexamas.UI.Rendering
Imports Nexamas.UI.TextRendering
Imports Nexamas.UI.Theming
Imports Nexamas.UI.Values
Imports SkiaSharp

Namespace Nexamas.UI.Components

    Partial Public NotInheritable Class MASAgendaView

#Region "Item Model"

        Private NotInheritable Class AgendaEventState
            Friend Sub New(key As String,
                           title As String,
                           detail As String,
                           eventDay As Date,
                           startMinute As Integer,
                           endMinute As Integer)
                Me.Key = key
                Me.Title = title
                Me.Detail = detail
                Me.EventDay = MASAgendaViewPolicy.NormalizeDay(eventDay)
                Me.StartMinute = startMinute
                Me.EndMinute = endMinute
            End Sub

            Friend ReadOnly Property Key As String
            Friend Property Title As String
            Friend Property Detail As String
            Friend Property EventDay As Date
            Friend Property StartMinute As Integer
            Friend Property EndMinute As Integer
        End Class

        Private NotInheritable Class AgendaEventHit
            Friend Sub New(eventIndex As Integer,
                           rect As SKRect)
                Me.EventIndex = eventIndex
                Me.Rect = rect
            End Sub

            Friend ReadOnly Property EventIndex As Integer
            Friend ReadOnly Property Rect As SKRect
        End Class

#End Region

    End Class

End Namespace