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

Timestamp:

Aug 24, 2008, 5:28:59 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

サブクラス化機構(Control.Attach)の整備

File:

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

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

@@ -21 +21 @@
         lp = lParam
         lr = 0
+        handled = True
     End Sub
 
@@ -45 +46 @@
     Sub LResult(lResult As LRESULT)
         lr = lResult
+    End Sub
+
+    Const Function Handled() As Boolean
+        Handled = handled
+    End Function
+
+    Sub Handled(h As Boolean)
+        handled = h
     End Sub
 Private
@@ -52 +61 @@
     lp As LPARAM
     lr As LRESULT
+    handled As Boolean
 End Class
 
@@ -550 +560 @@
     Sub PaintBackgroundArgs(hdc As HDC)
         This.hdc = hdc
+        This.painted = True
     End Sub
 
@@ -559 +570 @@
         Handle = hdc
     End Function
+
+    Const Function Painted() As Boolean
+        Painted = painted
+    End Function
+
+    Sub Painted(p As Boolean)
+        painted = p
+    End Sub
 Private
     hdc As HDC
+    painted As Boolean
 End Class