source: branch/egtra-gdiplus/Classes/System/Drawing/Point.ab@ 353

' Classes/System/Drawing/Point.ab

#ifndef __SYSTEM_DRAWING_POINT_AB__
#define __SYSTEM_DRAWING_POINT_AB__

#require <Classes/System/Drawing/PointF.ab>
#require <Classes/System/Drawing/Size.ab>
#require <Classes/System/Drawing/SizeF.ab>

Namespace System
Namespace Drawing

Class Point
Public
    Sub Point()
        x = 0
        y = 0
    End Sub

    Sub Point(initX As Long, initY As Long)
        x = initX
        y = initY
    End Sub

    Sub Point(sz As Size)
        x = sz.Width
        y = sz.Height
    End Sub

    Sub Point(dw As DWord)
        x = LOWORD(dw)
        y = HIWORD(dw)
    End Sub

    Function X() As Long
        Return x
    End Function

    Sub X(newX As Long)
        x = newX
    End Sub

    Function Y() As Long
        Return y
    End Function

    Sub Y(newY As Long)
        y = newY
    End Sub

    Function IsEmpty() As Boolean
        Return x = 0 And y = 0
    End Function

    Function Operator + (pt As Point) As Point
        Return Add(This, pt)
    End Function

    Function Operator + (sz As Size) As Point
        Return Add(This, sz)
    End Function

    Function Operator - (pt As Point) As Point
        Return Substract(This, pt)
    End Function

    Function Operator - (sz As Size) As Point
        Return Substract(This, sz)
    End Function

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

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

    Static Function Add(pt1 As Point, pt2 As Point) As Point
        Dim ret As Point(pt1.x + pt2.x, pt1.y + pt2.y)
        Return ret
    End Function

    Static Function Add(pt As Point, sz As Size) As Point
        Dim ret As Point(pt.x + sz.Width, pt.y + sz.Height)
        Return ret
    End Function

    Function Offset(pt As Point) As Point
        Dim ret As Point(x + pt.x, y + pt.y)
        Return ret
    End Function

    Sub Offset(dx As Long, dy As Long)
        x += dx
        y += dy
    End Sub

    Static Function Substract(pt1 As Point, pt2 As Point) As Point
        Dim ret As Point(pt1.x - pt2.x, pt1.y - pt2.y)
        Return ret
    End Function

    Static Function Substract(pt As Point, sz As Size) As Point
        Dim ret As Point(pt.x - sz.Width, pt.y - sz.Height)
        Return ret
    End Function

    Function Equals(pt As Point) As Boolean
        Return x = pt.x And y = pt.y
    End Function

    Override Function GetHashCode() As Long
        Return x Xor _System_BSwap(y As DWord)
    End Function

    Static Function Ceiling(ptf As PointF) As Point
        Dim pt As Size(Math.Ceiling(ptf.width), Math.Ceiling(ptf.height))
        Return pt
    End Function

    Static Function Round(ptf As PointF) As Point
        Dim pt As Point(Math.Round(ptf.width), Math.Round(ptf.height))
        Return pt
    End Function

    Static Function Truncate(ptf As PointF) As Point
        Dim pt As Point(Math.Truncate(ptf.width), Math.Truncate(ptf.height))
        Return pt
    End Function

    Function Operator () As PointF
        Return Return PointF(X, Y)
    End Function

Private
    x As Long
    y As Long
End Class

End Namespace 'Drawing
End Namespace 'System

#endif '__SYSTEM_DRAWING_POINT_AB__