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

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

File:

• trunk/Include/Classes/System/Drawing/SizeF.ab (modified) (5 diffs)

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

@@ -1 +1 @@
 ' Classes/System/Drawing/SizeF.ab
 
-#ifndef __SYSTEM_DRAWING_SIZEF_AB__
-#define __SYSTEM_DRAWING_SIZEF_AB__
-
-#include <Classes/System/Drawing/Size.ab>
-#include <Classes/System/Drawing/PointF.ab>
+Namespace System
+Namespace Drawing
 
 Class SizeF
@@ -41 +38 @@
 
     Function Operator +(sz As SizeF) As SizeF
-        Dim ret As SizeF(width + sz.width, height + sz.height)
-        Return ret
+        Return New SizeF(width + sz.width, height + sz.height)
     End Function
 
     Function Operator -(sz As SizeF) As SizeF
-        Dim ret As SizeF(width - sz.width, height - sz.height)
-        Return ret
+        Return New SizeF(width - sz.width, height - sz.height)
     End Function
 
@@ -57 +52 @@
         Return Not Equals(sz)
     End Function
-/*
-    Sub Operator =(ByRef sz As SizeF)
-        width = sz.width
-        height = sz.height
-    End Sub
-*/
+
     Function Equals(sz As SizeF) As Boolean
         Return width = sz.width And height = sz.height
@@ -88 +78 @@
 
     Function ToPointF() As PointF
-        Dim pt As PointF(width, height)
-        Return pt
+        Return New PointF(width, height)
     End Function
 Private
@@ -96 +85 @@
 End Class
 
-#endif '__SYSTEM_DRAWING_SIZEF_AB__
+End Namespace
+End Namespace