Changeset 212 for Include/Classes/System/Drawing/Font.ab

Timestamp:

Apr 13, 2007, 5:12:31 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

Object.ReferenceEqualsを追加

File:

• Include/Classes/System/Drawing/Font.ab (modified) (9 diffs)

Include/Classes/System/Drawing/Font.ab

@@ -46 +46 @@
     End Sub
 
-    Sub Font(/*IN const*/ ByRef family As FontFamily, /*IN*/ emSize As Single)
+    Sub Font(/*IN const*/ family As FontFamily, /*IN*/ emSize As Single)
         Font(family, emSize, FontStyleRegular, UnitPoint)
     End Sub
 
-    Sub Font(/*IN const*/ ByRef family As FontFamily,
+    Sub Font(/*IN const*/ family As FontFamily,
         /*IN*/ emSize As Single, /*IN*/ style As Long)
 
@@ -56 +56 @@
     End Sub
 
-    Sub Font(/*IN const*/ ByRef family As FontFamily, /*IN*/ emSize As Single,
+    Sub Font(/*IN const*/ family As FontFamily, /*IN*/ emSize As Single,
         /*IN*/ style As Long, /*IN*/ unit As GraphicsUnit)
 
@@ -129 +129 @@
     Sub Font(/*IN const*/ familyName As String, /*IN*/ emSize As Single,
         /*IN*/ style As Long, /*IN*/ unit As GraphicsUnit,
-        /*IN const*/ ByRef fontCollection As FontCollection)
+        /*IN const*/ fontCollection As FontCollection)
 #ifdef __STRING_IS_NOT_UNICODE
         Dim oldAlloc = _System_AllocForConvertedString
@@ -142 +142 @@
     End Sub
 
-    Const Function GetLogFontA(/*IN const*/ ByRef g As Graphics, /*OUT*/ ByRef lf As LOGFONTA) As Status
+    Const Function GetLogFontA(/*IN const*/ g As Graphics, /*OUT*/ ByRef lf As LOGFONTA) As Status
         Dim nativeGraphics As *GpGraphics
         If VarPtr(g) <> 0 Then
@@ -150 +150 @@
     End Function
 
-    Const Function GetLogFontW(/*IN const*/ ByRef g As Graphics, /*OUT*/ ByRef lf As LOGFONTW) As Status
+    Const Function GetLogFontW(/*IN const*/ g As Graphics, /*OUT*/ ByRef lf As LOGFONTW) As Status
         Dim nativeGraphics As *GpGraphics
         If VarPtr(g) <> 0 Then
@@ -158 +158 @@
     End Function
 
-    Const Function GetLogFont(/*IN const*/ ByRef g As Graphics, /*OUT*/ ByRef lf As LOGFONTA) As Status
+    Const Function GetLogFont(/*IN const*/ g As Graphics, /*OUT*/ ByRef lf As LOGFONT) As Status
         Dim nativeGraphics As *GpGraphics
         If VarPtr(g) <> 0 Then
@@ -170 +170 @@
     End Function
 
-    Const Function Clone() As *Font
+    Const Function Clone() As Font
         Dim cloneFont = 0 As *GpFont
         SetStatus(GdipCloneFont(nativeFont, cloneFont))
@@ -210 +210 @@
     End Function
 
-    Const Function GetHeight(/*IN const*/ ByRef g As Graphics) As Single
+    Const Function GetHeight(/*IN const*/ g As Graphics) As Single
         Dim nativeGraphics As *GpGraphics
         If VarPtr(g) <> 0 Then
@@ -311 +311 @@
     End Sub
 
-    Const Sub ToLogFont(ByRef lf As LOGFONT, ByRef g As Graphics)
+    Const Sub ToLogFont(ByRef lf As LOGFONT, g As Graphics)
         GetLogFont(g, lf)
     End Sub
-
 
 Private
 '   Sub Font(ByRef f As Font)
-    Sub Operator =(ByRef f As Font)
-        Debug
-    End Sub
 
 Protected