source: branch/egtra-gdiplus/Classes/System/Drawing/Size.ab

' Classes/System/Drawing/Size.ab

#ifndef __SYSTEM_DRAWING_SIZE_AB__
#define __SYSTEM_DRAWING_SIZE_AB__

#require <Classes/System/Math.ab>
#require <Classes/System/Drawing/SizeF.ab>

Namespace System
Namespace Drawing

Class Size
Public
    Sub Size()
        width = 0
        height = 0
    End Sub

    Sub Size(initWidth As Long, initHeight As Long)
        width = initWidth
        height = initHeight
    End Sub

    Sub Size(sz As Size)
        width = sz.width
        height = sz.height
    End Sub

    Function Width() As Long
        Return width
    End Function

    Sub Width(w As Long)
        width = w
    End Sub

    Function Height() As Long
        Return height
    End Function

    Sub Height(h As Long)
        height = h
    End Sub

    Function Operator +(sz As Size) As Size
        Dim ret As Size(width + sz.width, height + sz.height)
        Return ret
    End Function

    Function Operator -(sz As Size) As Size
        Dim ret As Size(width - sz.width, height - sz.height)
        Return ret
    End Function

    Function Operator () As SizeF
        Dim szf As SizeF(width, height)
        Return szf
    End Function

    Function Operator ==(sz As Size) As Boolean
        Return Equals(sz)
    End Function

    Function Operator <>(sz As Size) As Boolean
        Return Not Equals(sz)
    End Function

    Function Equals(sz As Size) As Boolean
        If width = sz.width And height = sz.height Then
            Equals = _System_TRUE
        Else
            Equals = _System_FALSE
        End If
    End Function

    Override Function GetHashCode() As Long
        Return width As DWord Xor _System_BSwap(height As DWord)
    End Function

    Function IsEmpty() As Boolean
        Return width = 0 And height = 0
    End Function

    Function Add(sz As Size) As Size
        Return This + sz
    End Function

    Function Subtract(sz As Size) As Size
        Return This - sz
    End Function

    Static Function Ceiling(szf As SizeF) As Size
        Dim sz As Size(Math.Ceiling(szf.width), Math.Ceiling(szf.height))
        Return sz
    End Function

    Static Function Round(szf As SizeF) As Size
        Dim sz As Size(Math.Round(szf.width), Math.Round(szf.height))
        Return sz
    End Function

    Static Function Truncate(szf As SizeF) As Size
        Dim sz As Size(Math.Truncate(szf.width), Math.Truncate(szf.height))
        Return sz
    End Function

Private
    width As Long
    height As Long
End Class

End Namespace 'Drawing
End Namespace 'System

#endif '__SYSTEM_DRAWING_SIZE_AB__