[1] | 1 | ' Classes/System/Drawing/SizeF.ab
|
---|
| 2 |
|
---|
| 3 | #ifndef __SYSTEM_DRAWING_SIZEF_AB__
|
---|
| 4 | #define __SYSTEM_DRAWING_SIZEF_AB__
|
---|
| 5 |
|
---|
[241] | 6 | #require <Classes/System/Drawing/Size.ab>
|
---|
| 7 | #require <Classes/System/Drawing/PointF.ab>
|
---|
[1] | 8 |
|
---|
[241] | 9 | Namespace System
|
---|
| 10 | Namespace Drawing
|
---|
| 11 |
|
---|
[1] | 12 | Class SizeF
|
---|
| 13 | Public
|
---|
| 14 | Sub SizeF()
|
---|
| 15 | width = 0
|
---|
| 16 | height = 0
|
---|
| 17 | End Sub
|
---|
| 18 |
|
---|
| 19 | Sub SizeF(initWidth As Single, initHeight As Single)
|
---|
| 20 | width = initWidth
|
---|
| 21 | height = initHeight
|
---|
| 22 | End Sub
|
---|
| 23 |
|
---|
[212] | 24 | Sub SizeF(sz As SizeF)
|
---|
[1] | 25 | width = sz.width
|
---|
| 26 | height = sz.height
|
---|
| 27 | End Sub
|
---|
| 28 |
|
---|
| 29 | Function Width() As Single
|
---|
| 30 | Return width
|
---|
| 31 | End Function
|
---|
| 32 |
|
---|
| 33 | Sub Width(w As Single)
|
---|
| 34 | width = w
|
---|
| 35 | End Sub
|
---|
| 36 |
|
---|
| 37 | Function Height() As Single
|
---|
| 38 | Return height
|
---|
| 39 | End Function
|
---|
| 40 |
|
---|
| 41 | Sub Height(h As Single)
|
---|
| 42 | height = h
|
---|
| 43 | End Sub
|
---|
| 44 |
|
---|
[166] | 45 | Function Operator +(sz As SizeF) As SizeF
|
---|
[1] | 46 | Dim ret As SizeF(width + sz.width, height + sz.height)
|
---|
| 47 | Return ret
|
---|
| 48 | End Function
|
---|
| 49 |
|
---|
[166] | 50 | Function Operator -(sz As SizeF) As SizeF
|
---|
[1] | 51 | Dim ret As SizeF(width - sz.width, height - sz.height)
|
---|
| 52 | Return ret
|
---|
| 53 | End Function
|
---|
| 54 |
|
---|
[166] | 55 | Function Operator ==(sz As SizeF) As Boolean
|
---|
[1] | 56 | Return Equals(sz)
|
---|
| 57 | End Function
|
---|
| 58 |
|
---|
[166] | 59 | Function Operator <>(sz As SizeF) As Boolean
|
---|
[1] | 60 | Return Not Equals(sz)
|
---|
| 61 | End Function
|
---|
[241] | 62 |
|
---|
[104] | 63 | Function Equals(sz As SizeF) As Boolean
|
---|
[223] | 64 | Return width = sz.width And height = sz.height
|
---|
[1] | 65 | End Function
|
---|
| 66 |
|
---|
[166] | 67 | Override Function GetHashCode() As Long
|
---|
| 68 | Return VarPtr(GetDWord(width)) Xor _System_BSwap(VarPtr(GetDWord(height)))
|
---|
[223] | 69 | End Function
|
---|
[166] | 70 |
|
---|
[104] | 71 | Function IsEmpty() As Boolean
|
---|
[223] | 72 | Return width = 0 And height = 0
|
---|
[1] | 73 | End Function
|
---|
| 74 |
|
---|
| 75 | Function Add(sz As Size) As Size
|
---|
| 76 | Return This + sz
|
---|
| 77 | End Function
|
---|
| 78 |
|
---|
| 79 | Function Subtract(sz As SizeF) As SizeF
|
---|
| 80 | Return This - sz
|
---|
| 81 | End Function
|
---|
| 82 |
|
---|
| 83 | Function ToSize() As Size
|
---|
| 84 | Return Size.Round(This)
|
---|
| 85 | End Function
|
---|
| 86 |
|
---|
| 87 | Function ToPointF() As PointF
|
---|
| 88 | Dim pt As PointF(width, height)
|
---|
| 89 | Return pt
|
---|
| 90 | End Function
|
---|
[241] | 91 |
|
---|
[1] | 92 | Private
|
---|
| 93 | width As Single
|
---|
| 94 | height As Single
|
---|
| 95 | End Class
|
---|
| 96 |
|
---|
[241] | 97 | End Namespace 'Drawing
|
---|
| 98 | End Namespace 'System
|
---|
| 99 |
|
---|
[1] | 100 | #endif '__SYSTEM_DRAWING_SIZEF_AB__
|
---|