Changeset 473 for trunk/Include/Classes/System/Drawing/RectangleF.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/RectangleF.ab (modified) (9 diffs)

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

@@ -1 +1 @@
 ' Classes/System/Drawing/RectangleF.ab
 
-#ifndef __SYSTEM_DRAWING_RECTANGLEF_AB__
-#define __SYSTEM_DRAWING_RECTANGLEF_AB__
-
-'#include <Classes/System/Math.ab>
-#include <Classes/System/Drawing/PointF.ab>
-#include <Classes/System/Drawing/SizeF.ab>
+Namespace System
+Namespace Drawing
 
 Class RectangleF
@@ -39 +35 @@
 
     Function Location() As PointF
-        Dim pt As PointF(x, y)
-        Return pt
+        Location = New PointF(x, y)
     End Function
 
@@ -49 +44 @@
 
     Function Size() As SizeF
-        Dim size As SizeF(width, height)
+        Size = New SizeF(width, height)
     End Function
 
@@ -58 +53 @@
 
     Function X() As Single
-        Return x
+        X = x
     End Function
 
@@ -66 +61 @@
 
     Function Y() As Single
-        Return y
+        Y = y
     End Function
 
@@ -74 +69 @@
 
     Function Width() As Single
-        Return width
+        Width = width
     End Function
 
@@ -82 +77 @@
 
     Function Height() As Single
-        Return height
+        Height = height
     End Function
 
@@ -90 +85 @@
 
     Function Left() As Single
-        Return X
+        Left = X
     End Function
 
     Function Top() As Single
-        Return Y
+        Top = Y
     End Function
 
     Function Right() As Single
-        Return X + Width
+        Right = X + Width
     End Function
 
     Function Bottom() As Single
-        Return Y + Height
+        Bottom = Y + Height
     End Function
 
@@ -210 +205 @@
 End Class
 
-#endif '__SYSTEM_DRAWING_RECTFANGLE_AB__
+End Namespace
+End Namespace