Changeset 642 for trunk/ab5.0/ablib/TestCase/UI_Sample/mouse_watcher.ab

Timestamp:

Oct 17, 2008, 12:45:59 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

CheckBoxとButtonBaseクラスを追加。

File:

• trunk/ab5.0/ablib/TestCase/UI_Sample/mouse_watcher.ab (modified) (5 diffs)

trunk/ab5.0/ablib/TestCase/UI_Sample/mouse_watcher.ab

@@ -2 +2 @@
 #require <Classes/ActiveBasic/Windows/UI/ListBox.ab>
 #require <Classes/ActiveBasic/Windows/UI/Application.ab>
+#require <Classes/ActiveBasic/Windows/UI/CheckBox.ab>
 
 #resource "UI_Sample.rc"
@@ -43 +44 @@
         End With
 
+        checkBoxShowMoveEvent = New CheckBox
+        With checkBoxShowMoveEvent
+            .Create(This, 0, 0, 0)
+            .Move(320, 60, 200, 20)
+            .Text = "Moveイベントを表示する"
+            .SendMessage(WM_SETFONT, wpFont, 0)
+        End With
+
         Show(SW_SHOWDEFAULT)
     End Sub
@@ -51 +60 @@
         list.Items.Clear()
         LockWindowUpdate(0)
+        checkBoxShowMoveEvent.AutoCheck = False
     End Sub
 
@@ -66 +76 @@
 
     Sub OnMouseMove(sender As Object, e As MouseArgs)
-        OnMouseEvent("Move", e)
+        If checkBoxShowMoveEvent.Checked Then
+            OnMouseEvent("Move", e)
+        End If
     End Sub
 
@@ -98 +110 @@
     list As ListBox
     buttonClear As Button
+    checkBoxShowMoveEvent As CheckBox
 End Class