' *
' * The project site is at: http://sourceforge.jp/projects/fishbornas/
' *
' * First author tiritomato 2012.
' *
' * Distributed under the FishbornArchiveShelf License (See
' *  file "Licenses/License.txt" contained in a project, or the following link.
' *  http://sourceforge.jp/projects/fishbornas/scm/svn/blobs/head/trunk/Licenses/License.txt)
' *
' * 2012.06.07 Initial Revision (tiritomato)
' *

Partial Public Class AppBase

    Public Class ArchiveItemImageLoadArgs
        Public ArchivePath As String
        Public EntryPath As String
        Public SamplingProgressCount As Integer
        Public SamplingProgressCountMax As Integer
        Public StreamedImage As Logic.Graphics.StreamedImage
        Public Class Echoes
            Inherits Logic.Echoes(Of ArchiveItemImageLoadArgs)
            Public Shadows Sub Echo(ByVal ArchivePath As String, ByVal EntryPath As String, ByVal Image As Logic.Graphics.StreamedImage, ByVal SamplingProgressCount As Integer, ByVal SamplingProgressCountMax As Integer)
                Dim e As New ArchiveItemImageLoadArgs
                e.ArchivePath = ArchivePath
                e.EntryPath = EntryPath
                e.SamplingProgressCount = SamplingProgressCount
                e.SamplingProgressCountMax = SamplingProgressCountMax
                e.StreamedImage = Image
                MyBase.Echo(e)
            End Sub
        End Class
    End Class

End Class
