Changeset 615 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/WindowHandle.sbp

Timestamp:

Aug 24, 2008, 5:28:59 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

サブクラス化機構(Control.Attach)の整備

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/WindowHandle.sbp (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/WindowHandle.sbp

@@ -547 +547 @@
         _System_SetWindowLongPtr(hwnd, GWLP_ID, newId)
     End Sub
-
+#endif
     Function DlgItem(idDlgItem As Long) As WindowHandle
         Dim w As WindowHandle(GetDlgItem(hwnd, idDlgItem))
         Return w
     End Function
-#endif
+
     Const Function ExStyle() As DWord
         Return _System_GetWindowLongPtr(hwnd, GWL_EXSTYLE) As DWord