Changeset 575 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Application.ab

Timestamp:

Aug 3, 2008, 3:58:05 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

ウィンドウ作成関数を親用のCreateFormと子用のCreateに分離。

File:

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

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

@@ -1 +1 @@
 'Classes/ActiveBasic/Windows/UI/Application.ab
+
+#require <Classes/ActiveBasic/Windows/UI/Form.ab>
 
 Namespace ActiveBasic
 Namespace Windows
 Namespace UI
+
+Delegate Function MessageFilter(m As *MSG) As Boolean
 
 /*!
@@ -23 +27 @@
             form.Show(SW_SHOW)
             form.Update()
-            form.AddMessageEvent(WM_DESTROY, AddressOf(Application.OnMainFormClosed))
+            form.AddMessageEvent(WM_DESTROY, AddressOf(OnMainFormClosed))
         End If
 
@@ -32 +36 @@
                 Exit Do
             End If
-            TranslateMessage(m)
-            DispatchMessage(m)
+            dispatchMessage(m)
         Loop
 
@@ -70 +73 @@
                     PostQuitMessage(0) 'Run()で捕まえてくれるようPostしなおす。
                 Case Else
-                    TranslateMessage(msg)
-                    DispatchMessage(msg)
+                    dispatchMessage(msg)
             End Select
         Wend
     End Sub
+/*
+    Static Sub AddMessageFilter(mf As MessageFilter)
+        If IsNothing(filter) Then
+            filter = New System.Collections.Generic.List<MessageFilter>
+        End If
+        filter.Add(mf)
+    End Sub
 
+    Static Sub RemoveMessageFilter(mf As MessageFilter)
+        filter.Remove(mf)
+    End Sub
+*/
 #include "ApplicationEvent.sbp"
 
@@ -83 +96 @@
         ExitThread()
     End Sub
+
+    Static Sub dispatchMessage(ByRef m As MSG)
+/*      If IsNothing(filter) = False Then
+            For Each f In filter
+            Next 
+        End If
+*/      TranslateMessage(m)
+        DispatchMessage(m)
+    End Sub
+
+'   Static filter As System.Collections.Generic.List<MessageFilter>
 End Class