|
Last change
on this file since 473 was 473, checked in by イグトランス (egtra), 16 years ago |
|
実験として書いていたControlクラスを追加（せめてコミット前に既存のContorolに混ぜようとしたがコンパイルできなかった）。
ほかForms, Drawing及びGDI+の修正。
|
|
File size:
1.0 KB
|
| Line | |
|---|
| 1 | ' Classes/System/Drawing/CharacterRange.ab
|
|---|
| 2 |
|
|---|
| 3 | #ifndef __SYSTEM_DRAWING_CHARACTERRANGE_AB__
|
|---|
| 4 | #define __SYSTEM_DRAWING_CHARACTERRANGE_AB__
|
|---|
| 5 |
|
|---|
| 6 | Class CharacterRange
|
|---|
| 7 | Public
|
|---|
| 8 | Sub CharacterRange(f As Long, l As Long)
|
|---|
| 9 | first = f
|
|---|
| 10 | length = l
|
|---|
| 11 | End Sub
|
|---|
| 12 |
|
|---|
| 13 | Sub CharacterRange()
|
|---|
| 14 | First = 0
|
|---|
| 15 | Length = 0
|
|---|
| 16 | End Sub
|
|---|
| 17 |
|
|---|
| 18 | Function First() As Long
|
|---|
| 19 | Return first
|
|---|
| 20 | End Function
|
|---|
| 21 |
|
|---|
| 22 | Sub First(f As Long)
|
|---|
| 23 | first = f
|
|---|
| 24 | End Sub
|
|---|
| 25 |
|
|---|
| 26 | Function Length() As Long
|
|---|
| 27 | Return length
|
|---|
| 28 | End Function
|
|---|
| 29 |
|
|---|
| 30 | Sub Length(l As Long)
|
|---|
| 31 | length = l
|
|---|
| 32 | End Sub
|
|---|
| 33 |
|
|---|
| 34 | Function Operator ==(c As CharacterRange) As Boolean
|
|---|
| 35 | Return Equals(c)
|
|---|
| 36 | End Function
|
|---|
| 37 |
|
|---|
| 38 | Function Operator <>(c As CharacterRange) As Boolean
|
|---|
| 39 | Return Not Equals(c)
|
|---|
| 40 | End Function
|
|---|
| 41 |
|
|---|
| 42 | Function Equals(c As CharacterRange) As Boolean
|
|---|
| 43 | Return first = c.first And length = c.length
|
|---|
| 44 | End Function
|
|---|
| 45 |
|
|---|
| 46 | Override Function GetHashCode() As Long
|
|---|
| 47 | Return first Xor length
|
|---|
| 48 | End Function
|
|---|
| 49 |
|
|---|
| 50 | Private
|
|---|
| 51 | first As Long
|
|---|
| 52 | length As Long
|
|---|
| 53 | End Class
|
|---|
| 54 |
|
|---|
| 55 | #endif '__SYSTEM_DRAWING_CHARACTERRANGE_AB__
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
