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

Timestamp:

Aug 15, 2008, 1:43:10 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

Controlの変更で実行できなくなっていたサンプルを修正。

File:

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

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

@@ -20 +20 @@
         list = New ListBox
         With list
-            .Create(This, IDM_RECOED_LIST, WS_VSCROLL, WS_EX_CLIENTEDGE)
+            .Create(This, WS_VSCROLL, WS_EX_CLIENTEDGE, IDM_RECOED_LIST)
             .SendMessage(WM_SETFONT, wpFont, 0)
         End With
@@ -36 +36 @@
         buttonClear = New Button
         With buttonClear
-            .Create(This, IDM_CLEAR_BUTTON)
+            .Create(This, 0, 0, IDM_CLEAR_BUTTON)
             .Move(320, 20, 60, 30)
             .Text = "Clear"