Changeset 551 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Form.ab

Timestamp:

Jul 17, 2008, 11:20:10 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

Buttonの追加。WM_COMMANDから子のClickイベントを発生させる仕組みの追加など。

File:

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

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

@@ -2 +2 @@
 
 #require <Classes/ActiveBasic/Windows/UI/Control.ab>
+#require <Classes/ActiveBasic/Windows/UI/Button.ab>
 
 Namespace ActiveBasic
@@ -12 +13 @@
 @author Egtra
 */
+
 Class Form
     Inherits Control
+Public
+    Sub Form()
+        AddMessageEvent(WM_COMMAND, AddressOf (OnCommand))
+    End Sub
+
 Protected
     Override Sub GetCreateStruct(ByRef cs As CREATESTRUCT)
-        With cs
-            .lpCreateParams = 0
-            '.hInstance
-            .hMenu = 0
-            .hwndParent = 0
-            .cy = CW_USEDEFAULT
-            .cx = CW_USEDEFAULT
-            .y = CW_USEDEFAULT
-            .x = CW_USEDEFAULT
-            .style = WS_OVERLAPPEDWINDOW
-            .lpszName = ""
-            '.lpszClass
-            .dwExStyle = 0
-        End With
+        cs.style = WS_OVERLAPPEDWINDOW
     End Sub
+
+    Sub OnCommand(sender As Object, e As MessageArgs)
+        Dim id = e.WParam And &hffff 'LOWORD(e.WParam)
+        Dim cmd = (e.WParam >> 16) And &hffff 'HIWORD(e.WParam)
+        Dim hwnd = e.LParam As HWND
+        If cmd = BN_CLICKED And hwnd <> 0 Then
+            Dim c = Control.FromHWnd(hwnd)
+            If IsNothing(c) = False Then
+                Dim b = c As Button
+                b.RaiseClick()
+            End If
+        End If
+    End Sub
+
 #include "FormEvent.sbp"
 End Class
@@ -42 +50 @@
 
 #require <Classes/ActiveBasic/Windows/UI/Application.ab>
+#require <Classes/ActiveBasic/Windows/UI/Button.ab>
 
 Imports ActiveBasic.Windows.UI
@@ -48 +57 @@
 Control.Initialize(GetModuleHandle(0))
 
+Sub Paint(sender As Object, e As PaintDCArgs)
+    TextOut(e.Handle, 10, 10, "Hello world!", 12)
+End Sub
+
 Class MyForm
     Inherits Form
 Public
     Sub MyForm()
-        Dim f = This
-        AddMessageEvent(WM_DESTROY, AddressOf (f.Destory))
-        AddPaintDC(AddressOf (f.Paint))
-        AddMouseClick(AddressOf (f.Mouse))
-        s = ""
+        AddPaintDC(AddressOf (Paint))
+        AddMouseClick(AddressOf (Mouse))
+        s = "aaa"
     End Sub
 
-    Sub Destory(sender As Object, e As EventArgs)
-        OutputDebugString(Ex"Destory\r\n")
-        PostQuitMessage(0)
+'   Sub Paint(sender As Object, e As PaintDCArgs)
+'       TextOut(e.Handle, 10, 10, ToTCStr(s), s.Length)
+'   End Sub
+
+    Sub Mouse(sender As Object, e As MouseArgs)
+        Invalidate()
     End Sub
 
-    Sub Paint(sender As Object, e As PaintDCEventArgs)
-        TextOut(e.Handle, 10, 10, ToTCStr(s), s.Length)
-    End Sub
-
-    Sub Mouse(sender As Object, e As MouseEventArgs)
-        Dim sb = New System.Text.StringBuilder
-        sb.Append("X = ").Append(e.X).Append(", Y = ").Append(e.Y)
-        s = sb.ToString
-        OutputDebugString(ToTCStr(s + " " + Hex$(ObjPtr(e)) + Ex"\r\n"))
-        Invalidate()
+    Sub OnClick(sender As Object, e As Args)
+        OutputDebugString(Ex"====OnClick====\r\n")
     End Sub
 
@@ -81 +87 @@
 Dim f = New MyForm
 f.Create()
+f.Text = "Hello"
+
+Dim b = New Button
+b.Create(f)
+b.Move(50, 50, 100, 100)
+b.Text = "Ok"
+b.AddClick(AddressOf(f.OnClick))
+
 Application.Run(f)
 f = Nothing
@@ -89 +103 @@
 
 End
-