Changeset 564 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/ControlEvent.sbp

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/ControlEvent.sbp (modified) (5 diffs)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/ControlEvent.sbp

@@ -176 +176 @@
 
 Public
-    Sub AddMouseLeave(h As MouseHandler)
+    Sub AddMouseLeave(h As Handler)
         If IsNothing(mouseLeave) Then
             mouseLeave = h
@@ -183 +183 @@
         End If
     End Sub
-    Sub RemoveMouseLeave(h As MouseHandler)
+    Sub RemoveMouseLeave(h As Handler)
         If Not IsNothing(mouseLeave) Then
             mouseLeave -= h
@@ -189 +189 @@
     End Sub
 Protected
-    Sub OnMouseLeave(e As MouseArgs)
+    Sub OnMouseLeave(e As Args)
         If Not IsNothing(mouseLeave) Then
             mouseLeave(This, e)
@@ -195 +195 @@
     End Sub
 Private
-    mouseLeave As MouseHandler
+    mouseLeave As Handler
 
 Public
@@ -395 +395 @@
     destroy As Handler
 
+Public
+    Sub AddPaintBackground(h As PaintBackgroundHandler)
+        If IsNothing(paintBackground) Then
+            paintBackground = h
+        Else
+            paintBackground += h
+        End If
+    End Sub
+    Sub RemovePaintBackground(h As PaintBackgroundHandler)
+        If Not IsNothing(paintBackground) Then
+            paintBackground -= h
+        End If
+    End Sub
+Protected
+    Sub OnPaintBackground(e As PaintBackgroundArgs)
+        If Not IsNothing(paintBackground) Then
+            paintBackground(This, e)
+        End If
+    End Sub
+Private
+    paintBackground As PaintBackgroundHandler
+