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

Timestamp:

Jul 21, 2008, 1:26:05 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

UI_Sampleの追加。イベントのコメントアウト解除。Form.abからテスト部分を除去。Application.DoEventsを実装。MakeControlEventHandlerを静的メンバのイベント対応へ。WindowsExceptionの追加。

File:

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

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

@@ -20 +20 @@
     */
     Static Sub Run(form As Form)
-        f.Show(SW_SHOW)
         If IsNothing(form) = False Then
+            form.Show(SW_SHOW)
+            form.Update()
             form.AddMessageEvent(WM_DESTROY, AddressOf(Application.OnMainFormClosed))
         End If
@@ -34 +35 @@
             DispatchMessage(m)
         Loop
-'       OnThraedExit(EventArgs.Empty)
+
     End Sub
 
@@ -55 +56 @@
     End Sub
 
-'#include "ApplicationEvent.sbp"
+    /*!
+    @brief メッセージキューに溜まったメッセージを処理する。
+    @date 2008/07/18
+    @author Egtra
+    ここのコードから改変。
+    http://www.activebasic.com/forum/viewtopic.php?t=426
+    */
+    Static Sub DoEvents()
+        Dim msg As MSG
+        While PeekMessage(msg, 0, 0, 0, PM_REMOVE) <> FALSE
+            Select Case msg.message
+                Case WM_QUIT
+                    PostQuitMessage(0) 'Run()で捕まえてくれるようPostしなおす。
+                Case Else
+                    TranslateMessage(msg)
+                    DispatchMessage(msg)
+            End Select
+        Wend
+    End Sub
+
+#include "ApplicationEvent.sbp"
 
 Private
     Static Sub OnMainFormClosed(sender As Object, e As Args)
+        OnThreadExit(Args.Empty)
         ExitThread()
     End Sub
-
-    main As Form
 End Class