Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Include/Classes/System/Drawing/PointF.ab

    r27 r1  
    5858    End Sub
    5959
    60     Function Operator () As PointF
    61         Dim ptf As PointF(X, Y)
    62         Return ptf
    63     End Function
    64 
    6560    Function Operator + (pt As PointF) As PointF
    66         Return Add(This, pt)
     61        Return Add(pt)
    6762    End Function
    6863
    6964    Function Operator + (sz As Size) As PointF
    70         Return Add(This, sz)
     65        Return Add(sz)
    7166    End Function
    7267
    7368    Function Operator + (sz As SizeF) As PointF
    74         Return Add(This, sz)
     69        Return Add(sz)
    7570    End Function
    7671
    7772    Function Operator - (pt As PointF) As PointF
    78         Return Substract(This, pt)
     73        Return Substract(pt)
    7974    End Function
    8075
    8176    Function Operator - (sz As Size) As PointF
    82         Return Substract(This, sz)
     77        Return Substract(sz)
    8378    End Function
    8479
    8580    Function Operator - (sz As SizeF) As PointF
    86         Return Substract(This, sz)
     81        Return Substract(sz)
    8782    End Function
    8883
    … …  
    9590    End Function
    9691
    97     Static Function Add(pt1 As PointF, pt2 As PointF) As PointF
    98         Dim ret As PointF(pt1.x + pt2.x, pt1.y + pt2.y)
     92    Function Add(pt As PointF) As PointF
     93        Dim ret As PointF(x + pt.x, y + pt.y)
    9994        Return ret
    10095    End Function
    10196
    102     Static Function Add(pt As PointF, sz As Size) As PointF
    103         Dim ret As PointF(pt.x + sz.Width, pt.y + sz.Height)
     97    Function Add(sz As Size) As PointF
     98        Dim ret As PointF(x + sz.width, y + sz.height)
    10499        Return ret
    105100    End Function
    106101
    107     Static Function Add(pt As PointF, sz As SizeF) As PointF
    108         Dim ret As PointF(pt.x + sz.Width, pt.y + sz.Height)
     102    Function Add(sz As SizeF) As PointF
     103        Dim ret As PointF(x + sz.width, y + sz.height)
    109104        Return ret
    110105    End Function
    111106
    112     Static Function Substract((pt1 As PointF, pt2 As PointF) As PointF
    113         Dim ret As PointF(pt1.x - pt2.x, pt1.y - pt2.y)
     107    Function Substract(pt As PointF) As PointF
     108        Dim ret As PointF(x - pt.x, y - pt.y)
    114109        Return ret
    115110    End Function
    116111
    117     Static Function Substract(pt As PointF, sz As Size) As PointF
    118         Dim ret As PointF(pt.x - sz.Width, pt.y - sz.Height)
     112    Function Substract(sz As Size) As PointF
     113        Dim ret As PointF(x - sz.width, y - sz.height)
    119114        Return ret
    120115    End Function
    121116
    122     Static Function Substract(pt As PointF, sz As SizeF) As PointF
    123         Dim ret As PointF(pt.x - sz.Width, pt.y - sz.Height)
     117    Function Substract(sz As SizeF) As PointF
     118        Dim ret As PointF(x - sz.width, y - sz.height)
    124119        Return ret
    125120    End Function
Note: See TracChangeset for help on using the changeset viewer.