Changeset 223 for Include/windows

Timestamp:

Apr 30, 2007, 1:56:57 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Controlがコンパイルできるように修正

File:

• Include/windows/WindowHandle.sbp (modified) (4 diffs)

Include/windows/WindowHandle.sbp

@@ -372 +372 @@
     End Function
 
+    Const Function ScreenToClient(ByRef rc As RECT) As Boolean
+        Dim ppt = VarPtr(rc) As *POINTAPI
+        Return _System_ScreenToClient(hwnd, ppt[0]) And _System_ScreenToClient(hwnd, ppt[1])
+    End Function
+
     Function Scroll(dx As Long, dy As Long, ByRef rcScroll As RECT, ByRef rcClip As RECT, hrgnUpdate As HRGN, ByRef rcUpdate As RECT, flags As DWord) As Boolean
         Return ScrollWindowEx(hwnd, dx, dy, rcScroll, rcClip, hrgnUpdate, rcUpdate, flags) As Boolean
@@ -626 +631 @@
     End Function
 
-    Sub Style(newStyle As DWord) DWord
+    Sub Style(newStyle As DWord)
         _System_SetWindowLongPtr(hwnd, GWLP_STYLE, newStyle)
     End Sub
@@ -677 +682 @@
 
     Const Function Parent() As WindowHandle
-        Return _System_GetParent(hwnd)
+        Return New WindowHandle(_System_GetParent(hwnd))
     End Function
 
@@ -714 +719 @@
     Sub Prop(str As PCTSTR, h As HANDLE)
         SetProp(str, h)
-    End Sub
-
-    Sub Prop(psz As PCTSTR, h As HANDLE)
-        SetProp(psz, h)
     End Sub