Changeset 473 for trunk/Include/Classes/System/Drawing/CharacterRange.ab

Timestamp:

Mar 12, 2008, 9:54:46 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

実験として書いていたControlクラスを追加（せめてコミット前に既存のContorolに混ぜようとしたがコンパイルできなかった）。
ほかForms, Drawing及びGDI+の修正。

File:

• trunk/Include/Classes/System/Drawing/CharacterRange.ab (modified) (3 diffs)

trunk/Include/Classes/System/Drawing/CharacterRange.ab

@@ -9 +9 @@
         first = f
         length = l
-    End Sub
-
-    Sub CharacterRange(ByRef c As CharacterRange)
-        first = c.first
-        length = c.length
     End Sub
 
@@ -30 +25 @@
 
     Function Length() As Long
-        Return l
+        Return length
     End Function
 
@@ -37 +32 @@
     End Sub
 
-    Sub Operator = (ByRef c As CharacterRange)
-        first  = c.first
-        length = c.length
-    End Sub
-
-    Function Operator ==(c As CharacterRange)
+    Function Operator ==(c As CharacterRange) As Boolean
         Return Equals(c)
     End Function
 
-    Function Operator <>(c As CharacterRange)
+    Function Operator <>(c As CharacterRange) As Boolean
         Return Not Equals(c)
     End Function
 
-    Function Equals(c As CharacterRange)
+    Function Equals(c As CharacterRange) As Boolean
         Return first = c.first And length = c.length
     End Function