Changeset 698 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/EventArgs.ab

Timestamp:

Mar 31, 2009, 2:09:07 PM (15 years ago)

Author:

イグトランス (egtra)

Message:

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

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/EventArgs.ab (modified) (3 diffs)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/EventArgs.ab

@@ -128 +128 @@
         This.button = button
         This.clicks = clicks
-        This.pt = New System.Drawing.Point(x, y)
+        This.pt.X = x
+        This.pt.Y = y
         This.delta = delta
     End Sub
@@ -145 +146 @@
 
     Const Function Locale() As System.Drawing.Point
-        Locale = New System.Drawing.Point(pt.X, pt.Y)
+        Locale = pt
     End Function
 
@@ -495 +496 @@
         CreateStruct = pcs
     End Function
+
+    Const Function Cancel() As Boolean
+        Cancel = cancel
+    End Function
+
+    Sub Cancel(c As Boolean)
+        cancel = c
+    End Sub
 Private
     pcs As *CREATESTRUCT
+    cancel As Boolean
 End Class