Ignore:
Timestamp:
Mar 31, 2009, 2:09:07 PM (16 years ago)
Author:
イグトランス (egtra)
Message:

GDI+をコンパイルできるように修正。FontFamily, Penの追加。サンプルとして、Step 32のGDI+版を制作。
(#56)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ab5.0/ablib/src/Classes/System/Drawing/CharacterRange.ab

    r635 r698  
    44Namespace Drawing
    55
    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
     6Type CharacterRange
     7    First As Long
     8    Length As Long
     9End Type
    5410
    5511End Namespace
Note: See TracChangeset for help on using the changeset viewer.