Changeset 282 for Include/windows


Ignore:
Timestamp:
Jul 2, 2007, 1:33:52 AM (17 years ago)
Author:
イグトランス (egtra)
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Include/windows/WindowHandle.sbp

    r272 r282  
    8989    End Function
    9090
     91    Const Function ClientToScreen(ByRef rc As RECT) As Boolean
     92        Dim ppt = VarPtr(rc) As *POINTAPI
     93        Return (_System_ClientToScreen(hwnd, ppt[0]) <> FALSE And _System_ClientToScreen(hwnd, ppt[1]) <> FALSE) As Boolean
     94    End Function
     95
    9196    Function Close() As Boolean
    9297        Return CloseWindow(hwnd) As Boolean
Note: See TracChangeset for help on using the changeset viewer.