source: Include/Classes/System/Drawing/Rectangle.ab@ 164

' Classes/System/Drawing/Rectangle.ab

#ifndef __SYSTEM_DRAWING_RECTANGLE_AB__
#define __SYSTEM_DRAWING_RECTANGLE_AB__

#include <Classes/System/Math.ab>
#include <Classes/System/Drawing/RectangleF.ab>
#include <Classes/System/Drawing/Point.ab>
#include <Classes/System/Drawing/Size.ab>

Class Rectangle
Public
    Sub Rectangle()
        x = 0
        y = 0
        width = 0
        height = 0
    End Sub

    Sub Rectangle(x As Long, y As Long, width As Long, height As Long)
        x = x
        y = y
        width = width
        height = height
    End Sub

    Sub Rectangle(l As Point, s As Size)
        x = l.X
        y = l.Y
        width = s.Height
        height = s.Height
    End Sub

    Sub Rectangle(ByRef r As Rectangle)
        x = r.x
        y = r.y
        width = r.width
        height = r.height
    End Sub

    Sub Rectangle(ByRef r As RECT)
        This = FromLTRB(r.left, r.top, r.right, r.bottom)
    End Sub

    Function Location() As Point
        Dim pt As Point(x, y)
        Return pt
    End Function

    Sub Location(ByRef point As Point)
        x = point.X
        y = point.Y
    End Sub

    Function Size() As Size
        Dim size As Size(width, height)
    End Function

    Sub Size(ByRef size As Size)
        width = size.Width
        height = size.Height
    End Sub

    Function X() As Long
        Return x
    End Function

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

    Function Y() As Long
        Return y
    End Function

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

    Function Width() As Long
        Return width
    End Function

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

    Function Height() As Long
        Return height
    End Function

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

    Function Left() As Long
        Return X
    End Function

    Function Top() As Long
        Return Y
    End Function

    Function Right() As Long
        Return X + Width
    End Function

    Function Bottom() As Long
        Return Y + Height
    End Function

    Function IsEmpty() As Boolean
        If Width <= 0 Or Height <= 0 Then
            IsEmpty = _System_TRUE
        Else
            IsEmpty = _System_FALSE
        End If
    End Function

    Function Operator = (ByRef rc As Rectangle)
        With rc
            x = .x
            y = .y
            width = .width
            height = .height
        End With
    End Function

    Function Operator == (ByRef rc As Rectangle)
        Return Equals(rc)
    End Function

    Function Operator <> (ByRef rc As Rectangle)
        Return Not Equals(rc)
    End Function

    Function Operator () As RectangleF
        Dim r As RectangleF(x, y, width, height)
        Return r
    End Function

    Function Equals(ByRef rc As Rectangle) As Boolean
        If X = rc.X And Y = rc.Y And Width = rc.Width And Height = rc.Height Then
            Equals = _System_TRUE
        Else
            Equals = _System_FALSE
        End If
    End Function

    Static Function FromLTRB(l As Long, t As Long, r As Long, b As Long) As Rectangle
        Dim rect As Rectangle(l, t, r - l, r - b)
        return rect
    End Function

    Function Contains(x As Long, y As Long) As Boolean
        If x >= X And x < X + Width And y >= Y And y < Y + Height Then
            Contains = _System_TRUE
        Else
            Contains = _System_FALSE
        End If
    End Function

    Function Contains(ByRef pt As Point) As Boolean
        ContainsPTF = Contains(pt.X, pt.Y)
    End Function

    Function Contains(ByRef rc As Rectangle) As Boolean
        If X <= rc.X And rc.Right <= Right And Y <= rc.Y And rc.Bottom <= Bottom Then
            ContainsRCF = _System_TRUE
        Else
            ContainsRCF = _System_FALSE
        End If
    End Function

    Sub Inflate(dx As Long, dy As Long)
        X -= dx
        Y -= dy
        Width += dx + dx
        Height += dy + dy
    End Sub

    Sub Inflate(sz As Size)
        Inflate(sz.Width, sz.Height)
    End Sub

    Static Function Inflate(ByRef rc As Rectangle, x As Long, y As Long) As Rectangle
        Inflate = rc
        Inflate.Inflate(x, y)
    End Function

    Sub Intersect(ByRef rect As Rectangle)
        This = Rectangle.Intersect(This, rect)
    End Sub

    Static Function Intersect(ByRef a As Rectangle, ByRef b As Rectangle) As Rectangle
        Dim right As Long, bottom As Long, left As Long, top As Long
        right = Math.Min(a.Right, b.Right)
        bottom = Math.Min(a.Bottom, b.Bottom)
        left = Math.Min(a.Left, b.Left)
        top = Math.Min(a.Top, b.Top)
        Return Rectangle.FromLTRB(left, top, right, bottom)
    End Function

    Function IntersectsWith(ByRef rc As Rectangle) As Boolean
        If Left < rc.Right And _
            Top < rc.Bottom And _
            Right > rc.Left And _
            Bottom > rc.Top Then
            IntersectsWith = _System_TRUE
        Else
            IntersectsWith = _System_FALSE
        End If
    End Function

    Static Function Union(ByRef a As Rectangle, ByRef b As Rectangle) As Rectangle
        Dim right As Long, bottom As Long, left As Long, top As Long
        right = Math.Max(a.Right(), b.Right())
        bottom = Math.Max(a.Bottom(), b.Bottom())
        left = Math.Max(a.Left(), b.Left())
        top = Math.Max(a.Top(), b.Top())
        Return FromLTRB(left, top, right, bottom)
    End Function

    Sub Offset(pt As Point)
        Offset(pt.X, pt.Y)
    End Sub

    Sub Offset(dx As Long, dy As Long)
        X += dx
        Y += dy
    End Sub

    Static Function Ceiling(rcf As RectangleF) As Rectangle
        Dim r As Rectangle(
            Math.Ceiling(rcf.X),
            Math.Ceiling(rcf.Y),
            Math.Ceiling(rcf.Width),
            Math.Ceiling(rcf.Height))
        Return r
    End Function

    Static Function Round(rcf As RectangleF) As Rectangle
        Dim r As Rectangle(
            Math.Round(rcf.X),
            Math.Round(rcf.Y),
            Math.Round(rcf.Width),
            Math.Round(rcf.Height))
        Return r
    End Function

    Static Function Truncate(rcf As RectangleF) As Rectangle
        Dim r As Rectangle(
            Math.Truncate(rcf.X),
            Math.Truncate(rcf.Y),
            Math.Truncate(rcf.Width),
            Math.Truncate(rcf.Height))
        Return r
    End Function

    Function ToRECT() As RECT
        With ToRECT
            .left = x
            .top = y
            .right = x + width
            .bottom = y + height
        End With
    End Function

Public
    x As Long
    y As Long
    width As Long
    height As Long
End Class

#endif '__SYSTEM_DRAWING_RECTFANGLE_AB__