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

Timestamp:

Jul 22, 2008, 1:12:35 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

MouseLeave, MouseHoverが動作するようにした。

File:

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

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

@@ -545 +545 @@
 Delegate Sub ResizeHandler(sender As Object, e As ResizeArgs)
 
+Class PaintBackgroundArgs
+    Inherits Args
+Public
+    Sub PaintBackgroundArgs(hdc As HDC)
+        This.hdc = hdc
+    End Sub
+
+    Sub PaintBackgroundArgs(wp As WPARAM, lp As LPARAM)
+        This.hdc = wp As HDC
+    End Sub
+
+    Const Function Handle() As HDC
+        Handle = hdc
+    End Function
+Private
+    hdc As HDC
+End Class
+
+Delegate Sub PaintBackgroundHandler(sender As Object, e As PaintBackgroundArgs)
+
 End Namespace 'UI
 End Namespace 'Widnows