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

Timestamp:

Jul 13, 2008, 11:54:55 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

Applicationクラスの追加

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

@@ -8 +8 @@
 Namespace UI
 
-TypeDef EventArgs = System.EventArgs
-TypeDef EventHandler = System.EventHandler
+'TypeDef EventArgs = System.EventArgs
+'TypeDef EventHandler = System.EventHandler
+Class EventArgs
+Public
+    Static Empty = Nothing As EventArgs
+End Class
+Delegate Sub EventHandler(sender As Object, e As EventArgs)
 
 Class MessageEventArgs
@@ -118 +123 @@
         This.clicks = clicks
         This.pt = New System.Drawing.Point(x, y)
+        OutputDebugString(ToTCStr(Hex$(y) + " " + Hex$(pt.Y) + " " +  Ex" mea\r\n"))
         This.delta = delta
     End Sub
@@ -445 +451 @@
     'Menu: pcs->hMenu
 
-    Const Function Parent() As Control
-        'Parent = Control.FromHandle(pcs->hwndParent)
-    End Function
+'   Const Function Parent() As Control
+'       Parent = Control.FromHandle(pcs->hwndParent)
+'   End Function
 
     Const Function Height() As Long