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

Timestamp:

Jul 21, 2008, 6:31:41 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

EditBox, TaskMsgの追加。

File:

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

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

@@ -23 +23 @@
     End Sub
 
-    Function Msg() As DWord
+    Const Function Msg() As DWord
         Msg = msg
     End Function
 
-'   Function HWnd() As HWND
+'   Const Function HWnd() As HWND
 '       HWnd = hwnd
 '   End Function
 
-    Function WParam() As WPARAM
+    Const Function WParam() As WPARAM
         WParam = wp
     End Function
 
-    Function LParam() As LPARAM
+    Const Function LParam() As LPARAM
         LParam = lp
     End Function
 
-    Function LResult() As LRESULT
+    Const Function LResult() As LRESULT
         LResult = lr
     End Function
@@ -64 +64 @@
     End Sub
 
-    Function Handle() As HDC
+    Const Function Handle() As HDC
         Handle = hdc
     End Function
 
-    Function ClipRect() As RECT
+    Const Function ClipRect() As RECT
         ClipRect = rc
     End Function
@@ -86 +86 @@
     End Sub
 
-    Function Handled() As Boolean
+    Const Function Handled() As Boolean
         Handled = h
     End Function
@@ -386 +386 @@
     End Sub
 
-    Function Alt() As Boolean
+    Const Function Alt() As Boolean
         Alt = key And Keys.Menu
     End Function
 
-    Function Control() As Boolean
+    Const Function Control() As Boolean
         Control = key And Keys.Control
     End Function
 
-    Function Shift() As Boolean
+    Const Function Shift() As Boolean
         Shift = key And Keys.Shift
     End Function
 
-    Function KeyCode() As Keys
+    Const Function KeyCode() As Keys
         Dim k = key As DWord
         Dim mask = Keys.KeyCode As DWord
@@ -404 +404 @@
     End Function
 
-    Function KeyData() As Keys
+    Const Function KeyData() As Keys
         KeyData = key
     End Function
 
-    Function Modifiers() As Keys
+    Const Function Modifiers() As Keys
         Dim k = key As DWord
         Dim mask = Keys.Modifiers As DWord
@@ -414 +414 @@
     End Function
 
-    Function KeyValue() As Long
+    Const Function KeyValue() As Long
         KeyValue = key As Long
     End Function
@@ -422 +422 @@
     End Sub
 
-    Function Handled() As Boolean
+    Const Function Handled() As Boolean
         Handled = h
     End Function
@@ -498 +498 @@
     End Sub
 
-    Function Cancel() As Boolean
+    Const Function Cancel() As Boolean
         Cancel = c
     End Function
@@ -510 +510 @@
 
 Delegate Sub FormClosingHandler(sender As Object, e As FormClosingArgs)
+
+Class ResizeArgs
+    Inherits Args
+Public
+    Sub ResizeArgs(resizeType As Long, X As Long, Y As Long)
+        rt = resizeType
+        x = X
+        y = Y
+    End Sub
+
+    Sub ResizeArgs(wp As WPARAM, lp As LPARAM)
+        rt = wp As Long
+        x = GET_X_LPARAM(lp)
+        y = GET_Y_LPARAM(lp)
+    End Sub
+
+    Function ResizeType() As Long
+        ResizeType = rt
+    End Function
+
+    Function X() As Long
+        X = x
+    End Function
+
+    Function Y() As Long
+        Y = y
+    End Function
+Private
+    rt As Long
+    x As Long
+    y As Long
+End Class
+
+Delegate Sub ResizeHandler(sender As Object, e As ResizeArgs)
 
 End Namespace 'UI