Changeset 285 for Include/windows

Timestamp:

Jul 26, 2007, 5:43:54 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

wtypes.abを追加

File:

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

Include/windows/WindowHandle.sbp

@@ -41 +41 @@
 Declare Function _System_SetScrollInfo Lib "user32" Alias "SetScrollInfo" (hWnd As HWND, fnBar As Long, ByRef lpsi As SCROLLINFO, bRedraw As Long) As BOOL
 Declare Function _System_GetSystemMenu Lib "user32" Alias "GetSystemMenu" (hWnd As HWND, bRevert As BOOL) As HMENU
+Declare Function _System_GetDC Lib "gdi32" Alias "GetDC" (hwnd As HWND) As HDC
+Declare Function _System_ReleaseDC Lib "gdi32" Alias "ReleaseDC" (hwnd As HWND, hdc As HDC) As BOOL
 
 Class WindowHandle
@@ -147 +149 @@
 
     Function GetDC() As HDC
-        Return GetDC(hwnd)
+        Return _System_GetDC(hwnd)
     End Function
 
@@ -171 +173 @@
 
     Const Function GetParent() As WindowHandle
-        Dim w As WindowHandle(_System_GetParent(hwnd))
-        Return w
+        Return New WindowHandle(_System_GetParent(hwnd))
     End Function
 
@@ -368 +369 @@
 
     Function ReleaseDC(hdc As HDC) As Boolean
-        Return ReleaseDC(hwnd, hdc) As Boolean
+        Return _System_ReleaseDC(hwnd, hdc) As Boolean
     End Function