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

Timestamp:

Jul 13, 2008, 2:29:17 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

Controlをデリゲートベースにした。DictionaryのContainsKeyとTryGetValueを実装。デリゲートの追加・削除の右辺にNothingを指定可能にした。

File:

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

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

@@ -11 +11 @@
 TypeDef EventArgs = System.EventArgs
 TypeDef EventHandler = System.EventHandler
+
+Class MessageEventArgs
+    Inherits EventArgs
+Public
+    Sub MessageEventArgs(hwndSrc As HWND, message As DWord, wParam As WPARAM, lParam As LPARAM)
+        msg = message
+'       hwnd = hwndSrc
+        wp = wParam
+        lp = lParam
+        lr = 0
+    End Sub
+
+    Function Msg() As DWord
+        Msg = msg
+    End Function
+
+'   Function HWnd() As HWND
+'       HWnd = hwnd
+'   End Function
+
+    Function WParam() As WPARAM
+        WParam = wp
+    End Function
+
+    Function LParam() As LPARAM
+        LParam = lp
+    End Function
+
+    Function LResult() As LRESULT
+        LResult = lr
+    End Function
+
+    Sub LResult(lResult As LRESULT)
+        lr = lResult
+    End Sub
+Private
+    msg As DWord
+'   hwnd As HWND
+    wp As WPARAM
+    lp As LPARAM
+    lr As LRESULT
+End Class
+
+Delegate Sub MessageEventHandler(sender As Object, e As MessageEventArgs)
 
 Class PaintDCEventArgs
@@ -63 +107 @@
     XButton1 = MK_XBUTTON1
     XButton2 = MK_XBUTTON2
+
+    Shift = MK_SHIFT
+    Control = MK_CONTROL
 End Enum
 
@@ -352 +399 @@
 
     Function KeyCode() As Keys
-        KeyCode = key And Keys.KeyCode
+        Dim k = key As DWord
+        Dim mask = Keys.KeyCode As DWord
+        KeyCode = (k And mask) As Keys
     End Function
 
@@ -360 +409 @@
 
     Function Modifiers() As Keys
-        Modifiers = key And Keys.Modifiers
+        Dim k = key As DWord
+        Dim mask = Keys.Modifiers As DWord
+        Modifiers = (k And mask) As Keys
     End Function
 
@@ -381 +432 @@
 
 Delegate Sub KeyEventHandler(sender As Object, e As KeyEventArgs)
+
+Class CreateEventArgs
+    Inherits EventArgs
+Public
+    Sub CreateEventArgs(pCreateStruct As *CREATESTRUCT)
+        pcs = pCreateStruct
+    End Sub
+
+    Const Function HInstance() As HINSTANCE
+        HInstance = pcs->hInstance
+    End Function
+
+    'Menu: pcs->hMenu
+
+    Const Function Parent() As Control
+        'Parent = Control.FromHandle(pcs->hwndParent)
+    End Function
+
+    Const Function Height() As Long
+        Height = pcs->cy
+    End Function
+
+    Const Function Width() As Long
+        Width = pcs->cx
+    End Function
+
+    Const Function Y() As Long
+        Y = pcs->cy
+    End Function
+
+    Const Function X() As Long
+        X = pcs->cx
+    End Function
+
+    Const Function Style() As DWord
+        Style = pcs->style As DWord
+    End Function
+
+    Const Function Caption() As String
+        Caption = New String(pcs->lpszName)
+    End Function
+
+    Const Function ClassName() As String
+        ClassName = New String(pcs->lpszClass)
+    End Function
+
+    Const Function ExStyle() As DWord
+        ExStyle = pcs->dwExStyle
+    End Function
+
+    Const Function CreateStruct() As *CREATESTRUCT
+        CreateStruct = pcs
+    End Function
+Private
+    pcs As *CREATESTRUCT
+End Class
+
+Delegate Sub CreateEventHandler(sender As Object, e As CreateEventArgs)
 
 End Namespace 'Forms