Last change
on this file since 473 was 473, checked in by イグトランス (egtra), 16 years ago |
実験として書いていたControlクラスを追加(せめてコミット前に既存のContorolに混ぜようとしたがコンパイルできなかった)。
ほかForms, Drawing及びGDI+の修正。
|
File size:
1.7 KB
|
Rev | Line | |
---|
[1] | 1 | ' Classes/System/Drawing/SizeF.ab
|
---|
| 2 |
|
---|
[473] | 3 | Namespace System
|
---|
| 4 | Namespace Drawing
|
---|
[1] | 5 |
|
---|
| 6 | Class SizeF
|
---|
| 7 | Public
|
---|
| 8 | Sub SizeF()
|
---|
| 9 | width = 0
|
---|
| 10 | height = 0
|
---|
| 11 | End Sub
|
---|
| 12 |
|
---|
| 13 | Sub SizeF(initWidth As Single, initHeight As Single)
|
---|
| 14 | width = initWidth
|
---|
| 15 | height = initHeight
|
---|
| 16 | End Sub
|
---|
| 17 |
|
---|
[212] | 18 | Sub SizeF(sz As SizeF)
|
---|
[1] | 19 | width = sz.width
|
---|
| 20 | height = sz.height
|
---|
| 21 | End Sub
|
---|
| 22 |
|
---|
| 23 | Function Width() As Single
|
---|
| 24 | Return width
|
---|
| 25 | End Function
|
---|
| 26 |
|
---|
| 27 | Sub Width(w As Single)
|
---|
| 28 | width = w
|
---|
| 29 | End Sub
|
---|
| 30 |
|
---|
| 31 | Function Height() As Single
|
---|
| 32 | Return height
|
---|
| 33 | End Function
|
---|
| 34 |
|
---|
| 35 | Sub Height(h As Single)
|
---|
| 36 | height = h
|
---|
| 37 | End Sub
|
---|
| 38 |
|
---|
[166] | 39 | Function Operator +(sz As SizeF) As SizeF
|
---|
[473] | 40 | Return New SizeF(width + sz.width, height + sz.height)
|
---|
[1] | 41 | End Function
|
---|
| 42 |
|
---|
[166] | 43 | Function Operator -(sz As SizeF) As SizeF
|
---|
[473] | 44 | Return New SizeF(width - sz.width, height - sz.height)
|
---|
[1] | 45 | End Function
|
---|
| 46 |
|
---|
[166] | 47 | Function Operator ==(sz As SizeF) As Boolean
|
---|
[1] | 48 | Return Equals(sz)
|
---|
| 49 | End Function
|
---|
| 50 |
|
---|
[166] | 51 | Function Operator <>(sz As SizeF) As Boolean
|
---|
[1] | 52 | Return Not Equals(sz)
|
---|
| 53 | End Function
|
---|
[473] | 54 |
|
---|
[104] | 55 | Function Equals(sz As SizeF) As Boolean
|
---|
[223] | 56 | Return width = sz.width And height = sz.height
|
---|
[1] | 57 | End Function
|
---|
| 58 |
|
---|
[166] | 59 | Override Function GetHashCode() As Long
|
---|
[303] | 60 | Return GetDWord(VarPtr(width)) Xor _System_BSwap(GetDWord(VarPtr(height)))
|
---|
[223] | 61 | End Function
|
---|
[166] | 62 |
|
---|
[104] | 63 | Function IsEmpty() As Boolean
|
---|
[223] | 64 | Return width = 0 And height = 0
|
---|
[1] | 65 | End Function
|
---|
| 66 |
|
---|
[303] | 67 | Function Add(sz As SizeF) As SizeF
|
---|
[1] | 68 | Return This + sz
|
---|
| 69 | End Function
|
---|
| 70 |
|
---|
| 71 | Function Subtract(sz As SizeF) As SizeF
|
---|
| 72 | Return This - sz
|
---|
| 73 | End Function
|
---|
| 74 |
|
---|
| 75 | Function ToSize() As Size
|
---|
| 76 | Return Size.Round(This)
|
---|
| 77 | End Function
|
---|
| 78 |
|
---|
| 79 | Function ToPointF() As PointF
|
---|
[473] | 80 | Return New PointF(width, height)
|
---|
[1] | 81 | End Function
|
---|
| 82 | Private
|
---|
| 83 | width As Single
|
---|
| 84 | height As Single
|
---|
| 85 | End Class
|
---|
| 86 |
|
---|
[473] | 87 | End Namespace
|
---|
| 88 | End Namespace
|
---|
Note:
See
TracBrowser
for help on using the repository browser.