Changeset 575 for trunk/ab5.0/ablib/TestCase/UI_Sample/step11_TextEditoer.ab

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

File:

• trunk/ab5.0/ablib/TestCase/UI_Sample/step11_TextEditoer.ab (modified) (1 diff)

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

@@ -22 +22 @@
     Sub MyForm()
         AddResize(AddressOf(OnResize))
-        Create()
+        CreateForm()
         myEdit = New EditBox
-        myEdit.Create(This, ES_MULTILINE Or ES_WANTRETURN Or ES_AUTOHSCROLL Or ES_AUTOVSCROLL Or WS_HSCROLL Or WS_VSCROLL, WS_EX_CLIENTEDGE)
-        myEdit.SendMessage(WM_SETFONT, GetStockObject(DEFAULT_GUI_FONT) As WPARAM, 0)
+        With myEdit
+            .Create(This, ES_MULTILINE Or ES_WANTRETURN Or ES_AUTOHSCROLL Or ES_AUTOVSCROLL Or WS_HSCROLL Or WS_VSCROLL, WS_EX_CLIENTEDGE)
+            .SendMessage(WM_SETFONT, GetStockObject(DEFAULT_GUI_FONT) As WPARAM, 0)
+        End With
         Show(SW_SHOWDEFAULT)
     End Sub