Ignore:
Timestamp:
Mar 31, 2009, 2:09:07 PM (15 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/SizeF.ab

    r473 r698  
    44Namespace Drawing
    55
    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 
    18     Sub SizeF(sz As SizeF)
    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 
    39     Function Operator +(sz As SizeF) As SizeF
    40         Return New SizeF(width + sz.width, height + sz.height)
    41     End Function
    42 
    43     Function Operator -(sz As SizeF) As SizeF
    44         Return New SizeF(width - sz.width, height - sz.height)
    45     End Function
    46 
    47     Function Operator ==(sz As SizeF) As Boolean
    48         Return Equals(sz)
    49     End Function
    50 
    51     Function Operator <>(sz As SizeF) As Boolean
    52         Return Not Equals(sz)
    53     End Function
    54 
    55     Function Equals(sz As SizeF) As Boolean
    56         Return width = sz.width And height = sz.height
    57     End Function
    58 
    59     Override Function GetHashCode() As Long
    60         Return GetDWord(VarPtr(width)) Xor _System_BSwap(GetDWord(VarPtr(height)))
    61     End Function
    62 
    63     Function IsEmpty() As Boolean
    64         Return width = 0 And height = 0
    65     End Function
    66 
    67     Function Add(sz As SizeF) As SizeF
    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
    80         Return New PointF(width, height)
    81     End Function
    82 Private
    83     width As Single
    84     height As Single
    85 End Class
     6Type SizeF
     7    Width As Single
     8    Height As Single
     9End Type
    8610
    8711End Namespace
Note: See TracChangeset for help on using the changeset viewer.