view/ShogiNextMove/MoveKomaInfo.vb

Imports System
Imports System.Drawing
Imports ShogiNextMove.Board

Namespace Control.Board

    Public Class MoveKomaInfo
        Public Property IsNowMove() As Boolean

        Public Property IsNowDrag() As Boolean

        Public Property IsMouseDown() As Boolean

        Public Property IsValidPosition() As Boolean

        Public Property IsMovingInvalidate() As Boolean

        Public Property MouseDownPt() As Point

        Public Property From As KomaLocation

        Public Property MovingKoma() As Byte

        Public Property MovingKomaPrevRect() As Rectangle

        Public Property MovingKomaRect() As Rectangle

        Public Property InvalidRect() As Rectangle

        Public Sub New()
            Me.IsNowMove = False
            Me.IsNowDrag = False
            Me.IsMouseDown = False
            Me.IsValidPosition = False
            Me.IsMovingInvalidate = False
        End Sub
    End Class


End Namespace