Changeset 561 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.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/Control.ab (modified) (6 diffs)

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

@@ -65 +65 @@
             .lpszName = 0
             .style = style Or WS_CHILD Or WS_VISIBLE
-            .x = CW_USEDEFAULT
-            .y = CW_USEDEFAULT
-            .cx = CW_USEDEFAULT
-            .cy = CW_USEDEFAULT
+            .x = 0
+            .y = 0
+            .cx = 0
+            .cy = 0
             If IsNothing(parent) Then
                 .hwndParent = 0
@@ -101 +101 @@
 
         With cs
-            'よそのクラスの場合、WndProcFirst内のhwndの代入が行われないため、ここでも行っておく。
+            'よそのウィンドウクラスの場合、WndProcFirst内のhwndの代入が行われないため、ここでも行っておく。
             hwnd = CreateWindowEx(.dwExStyle, .lpszClass, .lpszName, .style,
                 .x, .y, .cx, .cy, .hwndParent, .hMenu, .hInstance, .lpCreateParams)
@@ -187 +187 @@
         AddMessageEvent(WM_CHAR, AddressOf(OnChar)) 
         AddMessageEvent(WM_CREATE, AddressOf(OnCreateBase))
+        AddMessageEvent(WM_SIZE, AddressOf(OnSize))
     End Sub
 
@@ -202 +203 @@
         Dim me = makeMouseEventFromMsg(e)
         If doubleClickFired = False Then
-'           OnClick(System.Args.Empty)
+            OnClick(Args.Empty)
             OnMouseClick(me)
             doubleClickFired = False
@@ -213 +214 @@
         doubleClickFired = True
         OnMouseDown(me)
-'       OnDoubleClick(System.Args.Empty)
+        OnDoubleClick(Args.Empty)
         OnMouseDoubleClick(me)
     End Sub
@@ -257 +258 @@
     Sub OnCreateBase(sender As Object, e As MessageArgs)
         OnCreate(New CreateArgs(e.LParam As *CREATESTRUCT))
+    End Sub
+
+    Sub OnSize(sender As Object, e As MessageArgs)
+        OnResize(New ResizeArgs(e.WParam, e.LParam))
     End Sub