Changeset 282 for Include/windows

Timestamp:

Jul 2, 2007, 1:33:52 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

#121対応、Classes/System/Windows/Forms以下を名前空間に入れた。

File:

• Include/windows/WindowHandle.sbp (modified) (1 diff)

Include/windows/WindowHandle.sbp

@@ -89 +89 @@
     End Function
 
+    Const Function ClientToScreen(ByRef rc As RECT) As Boolean
+        Dim ppt = VarPtr(rc) As *POINTAPI
+        Return (_System_ClientToScreen(hwnd, ppt[0]) <> FALSE And _System_ClientToScreen(hwnd, ppt[1]) <> FALSE) As Boolean
+    End Function
+
     Function Close() As Boolean
         Return CloseWindow(hwnd) As Boolean