Changeset 646 for trunk


Ignore:
Timestamp:
2008/10/18 17:55:42 (4 years ago)
Author:
egtra
Message:

WindowHandleをWindows.UIの一部として使うために改造。メンバ関数の厳選、例外処理の導入など。

Location:
trunk/ab5.0/ablib/src/Classes
Files:
3 edited
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.ab

    r637 r646  
    3737    @brief HWNDからControlインスタンスを取得する。 
    3838    @param[in] hwnd 対象のウィンドウハンドル 
    39     @return 対応するControlインスタンス。ただし、存在しなければNothing。 
     39    @return 対応するControlインスタンス。存在しなければ作成される。ただし、hwndがNULLならNothing。 
    4040    */ 
    4141    Static Function FromHWnd(hwnd As HWND) As Control 
    4242        FromHWnd = Nothing 
    43         If _System_IsWindow(hwnd) Then 
     43        If IsWindow(hwnd) Then 
    4444            FromHWnd = FromHWndCore(hwnd) 
     45            If ActiveBasic.IsNothing(FromHWnd) Then 
     46                Dim lock = New ActiveBasic.Windows.CriticalSectionLock(_System_CriticalSection) 
     47                Try 
     48                    FromHWnd = New Control 
     49                    FromHWnd.registerStandardEvent() 
     50                    FromHWnd.AssociateHWnd(hwnd) 
     51                Finally 
     52                    lock.Dispose() 
     53                End Try 
     54            End If 
    4555        End If 
    4656    End Function 
    … …  
    104114 
    105115Protected 
    106     Abstract Sub GetCreateStruct(ByRef cs As CREATESTRUCT) 
     116    Virtual Sub GetCreateStruct(ByRef cs As CREATESTRUCT) 
     117    End Sub 
    107118 
    108119    Sub createImpl(ByRef cs As CREATESTRUCT, parent As Control) 
    … …  
    131142 
    132143Public 
     144/* 
    133145    Sub Attach(hwndNew As HWND) 
    134146        throwIfAlreadyCreated() 
    … …  
    139151        AssociateHWnd(hwndNew) 
    140152    End Sub 
    141  
     153*/ 
    142154    Sub BeginSubclass() 
    143155        throwIfNotCreated() 
    144         prevWndProc = SetWindowLongPtr(GWLP_WNDPROC, AddressOf(WndProcFirst) As LONG_PTR) As WNDPROC 
     156        prevWndProc = SetWindowLongPtr(hwnd, GWLP_WNDPROC, AddressOf(WndProcFirst) As LONG_PTR) As WNDPROC 
    145157    End Sub 
    146158 
    … …  
    305317        Else 
    306318            Dim ps As PAINTSTRUCT 
    307             BeginPaint(ps) 
     319            BeginPaint(hwnd, ps) 
    308320            Try 
    309321                OnPaintDC(New PaintDCArgs(ps.hdc, ps.rcPaint)) 
    310322            Finally 
    311                 EndPaint(ps) 
     323                EndPaint(hwnd, ps) 
    312324            End Try 
    313325        End If 

  • trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Dialog.ab

    r637 r646  
    4040                    DefDlgProc = lr 
    4141                Case Else 
    42                     _System_SetWindowLongPtr(hDlg, DWLP_MSGRESULT, lr) 
     42                    SetWindowLongPtr(hDlg, DWLP_MSGRESULT, lr) 
    4343            End Select 
    4444        End If 

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

    r637 r646  
    11'Classes/ActiveBasic/Windows/UI/WindowHandle.sbp 
    22 
    3 #ifdef _WIN64 
    4 Declare Function _System_GetClassLongPtr Lib "user32" Alias _FuncName_GetClassLongPtr (hWnd As HWND, nIndex As Long) As LONG_PTR 
    5 Declare Function _System_SetClassLongPtr Lib "user32" Alias _FuncName_SetClassLongPtr (hWnd As HWND, nIndex As Long, l As LONG_PTR) As LONG_PTR 
    6 Declare Function _System_GetWindowLongPtr Lib "user32" Alias _FuncName_GetWindowLongPtr (hWnd As HWND, nIndex As Long) As LONG_PTR 
    7 Declare Function _System_SetWindowLongPtr Lib "user32" Alias _FuncName_SetWindowLongPtr (hWnd As HWND, nIndex As Long, l As LONG_PTR) As LONG_PTR 
    8 #else 
    9 Declare Function _System_GetClassLongPtr Lib "user32" Alias _FuncName_GetClassLong (hWnd As HWND, nIndex As Long) As LONG_PTR 
    10 Declare Function _System_SetClassLongPtr Lib "user32" Alias _FuncName_SetClassLong (hWnd As HWND, nIndex As Long, l As LONG_PTR) As LONG_PTR 
    11 Declare Function _System_GetWindowLongPtr Lib "user32" Alias _FuncName_GetWindowLong (hWnd As HWND, nIndex As Long) As LONG_PTR 
    12 Declare Function _System_SetWindowLongPtr Lib "user32" Alias _FuncName_SetWindowLong (hWnd As HWND, nIndex As Long, l As LONG_PTR) As LONG_PTR 
    13 #endif 
    14 Declare Function _System_GetParent Lib "user32" Alias "GetParent" (hWnd As HWND) As HWND 
    15 Declare Function _System_SetParent Lib "user32" Alias "SetParent" (hWnd As HWND, hwndParent As HWND) As HWND 
    163Declare Function _System_GetMenu Lib "user32" Alias "GetMenu" (hWnd As HWND) As HMENU 
    17 Declare Function _System_SetMenu Lib "user32" Alias "SetMenu" (hWnd As HWND, hmenu As HMENU) As HMENU 
    18 Declare Function _System_InvalidateRect Lib "user32" Alias "InvalidateRect" (hWnd As HWND, ByRef Rect As RECT, bErase As BOOL) As BOOL 
    19 Declare Function _System_InvalidateRgn Lib "user32" Alias "InvalidateRgn" (hWnd As HWND, hRgn As HRGN, bErase As BOOL) As BOOL 
     4Declare Function _System_SetMenu Lib "user32" Alias "SetMenu" (hWnd As HWND, hmenu As HMENU) As BOOL 
    205Declare Function _System_ValidateRect Lib "user32" Alias "ValidateRect" (hWnd As HWND, ByRef Rect As RECT) As BOOL 
    216Declare Function _System_ValidateRgn Lib "user32" Alias "ValidateRgn" (hWnd As HWND, hRgn As HRGN) As BOOL 
    22 Declare Function _System_BeginPaint Lib "user32" Alias "BeginPaint" (hWnd As HWND, ByRef ps As PAINTSTRUCT) As HDC 
    23 Declare Function _System_EndPaint Lib "user32" Alias "EndPaint" (hWnd As HWND, ByRef ps As PAINTSTRUCT) As HDC 
    247Declare Function _System_ClientToScreen Lib "user32" Alias "ClientToScreen" (hWnd As HWND, ByRef Point As POINTAPI) As BOOL 
    258Declare Function _System_ScreenToClient Lib "user32" Alias "ScreenToClient" (hWnd As HWND, ByRef Point As POINTAPI) As BOOL 
    … …  
    2811Declare Function _System_ShowCaret Lib "user32" Alias "ShowCaret" (hWnd As HWND) As BOOL 
    2912Declare Function _System_DrawMenuBar Lib "user32" Alias "DrawMenuBar" (hwnd As HWND) As BOOL 
    30 Declare Function _System_GetWindowRect Lib "user32" Alias "DrawMenuBar" (hWnd As HWND, ByRef Rect As RECT) As BOOL 
    31 Declare Function _System_IsWindow Lib "user32" Alias "IsWindow" (hWnd As HWND) As BOOL 
    32 Declare Function _System_IsIconic Lib "user32" Alias "IsIconic" (hWnd As HWND) As BOOL 
    33 Declare Function _System_GetClassName Lib "user32" Alias _FuncName_GetClassName (hWnd As HWND, lpClassName As PTSTR, nMaxCount As Long) As Long 
    3413Declare Function _System_GetScrollInfo Lib "user32" Alias "GetScrollInfo" (hWnd As HWND, fnBar As Long, ByRef lpsi As SCROLLINFO) As BOOL 
    3514Declare Function _System_SetScrollInfo Lib "user32" Alias "SetScrollInfo" (hWnd As HWND, fnBar As Long, ByRef lpsi As SCROLLINFO, bRedraw As Long) As BOOL 
    … …  
    3918Declare Function _System_GetWindowDC Lib "user32" Alias "GetWindowDC" (hwnd As HWND) As HDC 
    4019Declare Function _System_ReleaseDC Lib "user32" Alias "ReleaseDC" (hwnd As HWND, hdc As HDC) As BOOL 
    41 Declare Function _System_SendMessage Lib "user32" Alias _FuncName_SendMessage (hwnd As HWND, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 
    42 Declare Function _System_PostMessage Lib "user32" Alias _FuncName_PostMessage (hwnd As HWND, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 
    43 Declare Function _System_SendDlgItemMessage Lib "user32" Alias _FuncName_SendDlgItemMessage (hwnd As HWND, id As DWord, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 
     20'Declare Function _System_SendMessage Lib "user32" Alias _FuncName_SendMessage (hwnd As HWND, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 
     21'Declare Function _System_PostMessage Lib "user32" Alias _FuncName_PostMessage (hwnd As HWND, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 
     22'Declare Function _System_SendDlgItemMessage Lib "user32" Alias _FuncName_SendDlgItemMessage (hwnd As HWND, id As DWord, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 
     23Declare Function _System_SendMessage Lib "user32" Alias "SendMessageA" (hwnd As HWND, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 
     24Declare Function _System_PostMessage Lib "user32" Alias "PostMessageA" (hwnd As HWND, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 
     25Declare Function _System_SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" (hwnd As HWND, id As DWord, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 
    4426Declare Function _System_GetWindowThreadProcessId Lib "user32" Alias "GetWindowThreadProcessId" (hwnd As HWND, pdwProcessId As *DWord) As DWord 
    4527 
    … …  
    5032Class WindowHandle 
    5133    hwnd As HWND 
     34Private 
     35    Sub ThrowIfFailedNT(ret As BOOL, msg As String) 
     36        If ret = FALSE Then 
     37            ThrowWithLastErrorNT(msg) 
     38        End If 
     39    End Sub 
    5240Public 
    5341    Sub WindowHandle() 
    … …  
    7462    End Function 
    7563*/ 
    76     Function BringToTop() As Boolean 
    77         Return BringWindowToTop(hwnd) As Boolean 
    78     End Function 
    79  
    80     Function BeginPaint(ByRef ps As PAINTSTRUCT) As HDC 
    81         Return _System_BeginPaint(hwnd, ps) 
    82     End Function 
    83  
    84     Function BeginPaint() As PAINTSTRUCT 
    85         _System_BeginPaint(hwnd, BeginPaint) 
    86     End Function 
    87 /* 
    88     Const Function ChildFromPoint(x As Long, y As Long) As WindowHandle 
    89         Return New WindowHandle(ChildWindowFromPoint(hwnd, x, y)) 
    90     End Function 
    91  
    92     Const Function ChildFromPointEx(x As Long, y As Long, flags As DWord) As WindowHandle 
    93         Return New WindowHandle(ChildWindowFromPointEx(hwnd, x, y, flags)) 
    94     End Function 
    95 */ 
    96     Const Function ClientToScreen(ByRef pt As POINTAPI) As Boolean 
    97         Return _System_ClientToScreen(hwnd, pt) As Boolean 
    98     End Function 
    99  
    100     Const Function ClientToScreen(ByRef rc As RECT) As Boolean 
    101         Dim ppt = VarPtr(rc) As *POINTAPI 
    102         Return (_System_ClientToScreen(hwnd, ppt[0]) <> FALSE And _System_ClientToScreen(hwnd, ppt[1]) <> FALSE) As Boolean 
    103     End Function 
    104  
    105     Function Close() As Boolean 
    106         Return CloseWindow(hwnd) As Boolean 
    107     End Function 
    108  
    109     Function CreateCaret(hbmp As HBITMAP, width As Long, height As Long) As Boolean 
    110         Return _System_CreateCaret(hwnd, hbmp, width, height) As Boolean 
    111     End Function 
    112  
    113     Function Destroy() As Boolean 
    114         Return DestroyWindow(hwnd) As Boolean 
    115     End Function 
    116  
    117     Function DrawMenuBar() As Boolean 
    118         Return _System_DrawMenuBar(hwnd) As Boolean 
    119     End Function 
    120 /* 
    121     Function EnableScrollBar(SBFlags As DWord, arrows As DWord) As Boolean 
    122         Return EnableScrollBar(hwnd, SBFlags, arrows) As Boolean 
    123     End Function 
    124 */ 
    125     Function Enable(enable As Boolean) As Boolean 
    126         Return EnableWindow(hwnd, enable) As Boolean 
    127     End Function 
    128  
    129     Function EndPaint(ByRef ps As PAINTSTRUCT) As Boolean 
    130         Return _System_EndPaint(hwnd, ps) As Boolean 
    131     End Function 
    132  
    133     Const Function EnumChilds(enumFunc As WNDENUMPROC, lp As LPARAM) As Boolean 
    134         Return EnumChildWindows(hwnd, enumFunc, lp) As Boolean 
    135     End Function 
    136  
    137     Function Flash(invert As Boolean) As Boolean 
    138         Return FlashWindow(hwnd, invert) As Boolean 
    139     End Function 
    140  
    141     Const Function GetClassLongPtr(index As Long) As LONG_PTR 
    142         Return _System_GetClassLongPtr(hwnd, index) 
    143     End Function 
    144  
    145     Const Function GetClassName(className As PTSTR, maxCount As Long) As Long 
    146         Return _System_GetClassName(hwnd, className, maxCount) 
    147     End Function 
    148  
    149 /* 
    150     Const Function GetContextHelpId() As DWord 
    151         Return GetWindowContextHelpId(hwnd) 
    152     End Function 
    153 */ 
    154     Function GetDC() As HDC 
    155         Return _System_GetDC(hwnd) 
    156     End Function 
    157  
    158     Function GetDCEx(hrgnClip As HRGN, flags As DWord) As HDC 
    159         Return _System_GetDCEx(hwnd, hrgnClip, flags) 
    160     End Function 
    161 /* 
    162     Const Function GetDlgCtrlID() As Long 
    163         Return GetDlgCtrlID(hwnd) 
    164     End Function 
    165  
    166     Const Function GetDlgItem(idDlgItem As Long) As WindowHandle 
    167         Return GetDlgItem(hwnd, idDlgItem) 
    168     End Function 
    169  
    170     Const Function GetDlgItemText(idDlgItem As Long, ps As PTSTR, maxCount As Long) As Long 
    171         Return GetDlgItemText(hwnd, idDlgItem, ps, maxCount) 
    172     End Function 
    173 */ 
    174     Const Function GetMenu() As HMENU 
    175         Return _System_GetMenu(hwnd) 
    176     End Function 
    177 /* 
    178     Const Function GetParent() As WindowHandle 
    179         Return New WindowHandle(_System_GetParent(hwnd)) 
    180     End Function 
    181 */ 
    182     Const Function GetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO) As Boolean 
    183         Return _System_GetScrollInfo(hwnd, fnBar, si) As Boolean 
    184     End Function 
    185 /* 
    186     Const Function GetSystemMenu(revert As Boolean) As HMENU 
    187         Return GetSystemMenu(hwnd, revert) 
    188     End Function 
    189  
    190     Const Function GetUpdateRect(ByRef rc As RECT, erase As Boolean) As Boolean 
    191         Return GetUpdateRact(hwnd, rc, erase) As Boolean 
    192     End Function 
    193  
    194     Const Function GetUpdateRgn(hrgn As HRGN, erase As Boolean) As Boolean 
    195         Return GetUpdateRgn(hwnd, hrgn, erase) As Boolean 
    196     End Function 
    197  
    198     Const Function GetWindow(cmd As DWord) As WindowHandle 
    199         Return GetWindow(hwnd, cmd) 
    200     End Function 
    201 */ 
    202     Function GetWindowDC() As HDC 
    203         Return _System_GetWindowDC(hwnd) 
    204     End Function 
    205  
    206     Const Function GetWindowLongPtr(index As Long) As LONG_PTR 
    207         Return _System_GetWindowLongPtr(hwnd, index) 
    208     End Function 
    209 /* 
    210     Const Function GetWindowPlasement(ByRef wndpl As WINDOWPLACEMENT) As Boolean 
    211         Return GetWindowPlasement(hwnd, wndpl) As Boolean 
    212     End Function 
    213 */ 
    214     Const Function GetText(ps As PTSTR, maxCount As Long) As Boolean 
    215         Return GetWindowText(hwnd, ps, maxCount) As Boolean 
    216     End Function 
    217  
    218     Const Function GetWindowThreadProcessId(ByRef processId As DWord) As DWord 
    219         Return _System_GetWindowThreadProcessId(hwnd, VarPtr(processId)) 
    220     End Function 
    221  
    222     Function HideCaret() As Boolean 
    223         Return _System_HideCaret(hwnd) As Boolean 
    224     End Function 
    225  
    226     Function InvalidateRect(ByRef rc As RECT, erace As Boolean) As Boolean 
    227         Return _System_InvalidateRect(hwnd, rc, erace) As Boolean 
    228     End Function 
    229  
    230     Function InvalidateRect(ByRef rc As RECT) As Boolean 
    231         Return _System_InvalidateRect(hwnd, rc, TRUE) As Boolean 
    232     End Function 
    233  
    234     Function InvalidateRgn(hrgn As HRGN, erace As Boolean) As Boolean 
    235         Return _System_InvalidateRgn(hwnd, hrgn, erace) As Boolean 
    236     End Function 
    237  
    238     Function InvalidateRgn(hrgn As HRGN) As Boolean 
    239         Return _System_InvalidateRgn(hwnd, hrgn, TRUE) As Boolean 
    240     End Function 
    241  
    242     Function Invalidate(erace As Boolean) As Boolean 
    243         Return _System_InvalidateRect(hwnd, ByVal 0, erace) As Boolean 
    244     End Function 
    245  
    246     Function Invalidate() As Boolean 
    247         Return _System_InvalidateRect(hwnd, ByVal 0, TRUE) As Boolean 
    248     End Function 
    249 /* 
    250     Const Function IsChild(hwnd As HWND) As Boolean 
    251         Return IsChild(This.hwnd, hwnd) As Boolean 
    252     End Function 
    253  
    254     Const Function IsDialogMessage(ByRef msg As MSG) As Boolean 
    255         Return IsDialogMessage(hwnd, msg) As Boolean 
    256     End Function 
    257 */ 
    258     Const Function IsIconic() As Boolean 
    259         Return _System_IsIconic(hwnd) As Boolean 
    260     End Function 
    261  
    262     Const Function IsWindow() As Boolean 
    263         Return _System_IsWindow(hwnd) As Boolean 
    264     End Function 
    265  
    266     Const Function IsEnabled() As Boolean 
    267         Return IsWindowEnabled(hwnd) As Boolean 
    268     End Function 
    269  
    270     Const Function IsUnicode() As Boolean 
    271         Return IsWindowUnicode(hwnd) As Boolean 
    272     End Function 
    273  
    274     Const Function IsVisible() As Boolean 
    275         Return IsWindowVisible(hwnd) As Boolean 
    276     End Function 
    277 /* 
    278     Const Function IsZoomed() As Boolean 
    279         Return IsZoomed(hwnd) As Boolean 
    280     End Function 
    281  
    282     Function KillTimer(idEvent As ULONG_PTR) As Boolean 
    283         Return KillTimer(idEvent) As Boolean 
    284     End Function 
    285 */ 
    286     Function LockUpdate() As Boolean 
    287         Return LockWindowUpdate(hwnd) As Boolean 
    288     End Function 
    289 /* 
    290     Function MapPoints(hwndTo As HWND, pPoints As *POINTAPI, cPoints As DWord) As Long 
    291         Return MapWindowPoints(hwnd, hwndTo, pPoints, cPoints) 
    292     End Function 
    293  
    294     Function MapPoints(hwndTo As HWND, ByRef rc As RECT) As Long 
    295         Return MapWindowPoints(hwnd, hwndTo, VarPtr(rc) As *POINTAPI, 2) 
    296     End Function 
    297  
    298     Const Function MessageBox(text As PCTSTR, caption As PCTSTR, uType As DWord) As Long 
    299         Return MessageBox(hwnd, text, caption, uType) 
    300     End Function 
    301  
    302     Const Function MessageBox(text As PCTSTR, caption As PCTSTR) As Long 
    303         Return MessageBox(hwnd, text, caption, MB_OK) 
    304     End Function 
    305  
    306     Const Function MessageBox(text As PCTSTR) As Long 
    307         Return MessageBox(hwnd, text, 0, MB_OK) 
    308     End Function 
    309 */ 
    310     Function Move(x As Long, y As Long, width As Long, height As Long, repaint = True As Boolean) As Boolean 
    311         Return MoveWindow(hwnd, x, y, width, height, repaint) As Boolean 
    312     End Function 
    313  
    314     Function Move(ByRef rc As RECT, repaint = True As Boolean) As Boolean 
     64    Sub BringToTop() 
     65        ThrowIfFailedNT(BringWindowToTop(hwnd), "WindowHandle.BringToTop") 
     66    End Sub 
     67 
     68'座標関係 
     69    Const Function ClientToScreen(ByRef pt As POINTAPI) As POINTAPI 
     70        ClientToScreen = pt 
     71        ThrowIfFailedNT(_System_ClientToScreen(hwnd, ClientToScreen), "WindowHandle.ClientToScreen") 
     72    End Function 
     73 
     74    Const Function ClientToScreen(ByRef rc As RECT) As RECT 
     75        ClientToScreen = rc 
     76        Dim ppt = VarPtr(ClientToScreen) As *POINTAPI 
     77        ThrowIfFailedNT(_System_ClientToScreen(hwnd, ppt[0]), "WindowHandle.ClientToScreen") 
     78        ThrowIfFailedNT(_System_ClientToScreen(hwnd, ppt[1]), "WindowHandle.ClientToScreen") 
     79    End Function 
     80 
     81    Const Function ScreenToClient(ByRef pt As POINTAPI) As POINTAPI 
     82        ScreenToClient = pt 
     83        ThrowIfFailedNT(_System_ScreenToClient(hwnd, ScreenToClient), "WindowHandle.ScreenToClient") 
     84    End Function 
     85 
     86    Const Function ScreenToClient(ByRef rc As RECT) As RECT 
     87        ScreenToClient = rc 
     88        Dim ppt = VarPtr(ScreenToClient) As *POINTAPI 
     89        ThrowIfFailedNT(_System_ScreenToClient(hwnd, ppt[0]), "WindowHandle.ClientToScreen") 
     90        ThrowIfFailedNT(_System_ScreenToClient(hwnd, ppt[1]), "WindowHandle.ClientToScreen") 
     91    End Function 
     92 
     93    Sub Move(x As Long, y As Long, width As Long, height As Long, repaint = True As Boolean) 
     94        ThrowIfFailedNT(MoveWindow(hwnd, x, y, width, height, repaint), "WindowHandle.Move") 
     95    End Sub 
     96 
     97    Sub Move(ByRef rc As RECT, repaint = True As Boolean) 
    31598        With rc 
    316             Return MoveWindow(hwnd, .left, .top, .right - .left, .bottom - .top, repaint) As Boolean 
     99            Move(.left, .top, .right - .left, .bottom - .top, repaint) 
    317100        End With 
    318     End Function 
    319  
    320 /* 
    321     Function OpenClipboard() As Boolean 
    322         Return OpenClipboard(hwnd) As Boolean 
    323     End Function 
    324  
    325     Function OpenIcon() As Boolean 
    326         Return OpenIcon(hwnd) As Boolean 
    327     End Function 
    328 */ 
    329     Function PostMessage(msg As DWord, wp As WPARAM, lp As LPARAM) As Boolean 
    330         Return _System_PostMessage(hwnd, msg, wp, lp) As Boolean 
    331     End Function 
    332  
    333     Function PostMessage(msg As DWord) As Boolean 
    334         Return _System_PostMessage(hwnd, msg, 0, 0) As Boolean 
    335     End Function 
    336 /* 
    337     Function RedrawWindow(ByRef rcUpdate As RECT, hrgnUpdate As HRGN, flags As DWord) As Boolean 
    338         Return RedrawWindow(hwnd, rcUpdatre, hrgnUpdate, flags) As Boolean 
    339     End Function 
    340 */ 
    341     Function ReleaseDC(hdc As HDC) As Boolean 
    342         Return _System_ReleaseDC(hwnd, hdc) As Boolean 
    343     End Function 
    344 /* 
    345     Function RemoveProp(str As String) As HANDLE 
    346         Return RemoveProp(hwnd, ToTCStr(str)) 
    347     End Function 
    348  
    349     Function RemoveProp(psz As PCTSTR) As HANDLE 
    350         Return RemoveProp(hwnd, psz) 
    351     End Function 
    352  
    353     Function RemoveProp(atom As ATOM) As HANDLE 
    354         Return RemoveProp(hwnd, atom As ULONG_PTR As PCTSTR) 
    355     End Function 
    356 */ 
    357     Const Function ScreenToClient(ByRef pt As POINTAPI) As Boolean 
    358         Return _System_ScreenToClient(hwnd, pt) As Boolean 
    359     End Function 
    360  
    361     Const Function ScreenToClient(ByRef rc As RECT) As Boolean 
    362         Dim ppt = VarPtr(rc) As *POINTAPI 
    363         Return (_System_ScreenToClient(hwnd, ppt[0]) <> FALSE And _System_ScreenToClient(hwnd, ppt[1]) <> FALSE) As Boolean 
    364     End Function 
    365  
    366     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 
    367         Return ScrollWindowEx(hwnd, dx, dy, rcScroll, rcClip, hrgnUpdate, rcUpdate, flags) As Boolean 
    368     End Function 
    369  
    370     Function SendDlgItemMessage(idDlgItem As Long, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 
    371         Return _System_SendDlgItemMessage(hwnd, idDlgItem, msg, wp, lp) 
    372     End Function 
    373  
    374     Function SendDlgItemMessage(idDlgItem As Long, msg As DWord) As LRESULT 
    375         Return _System_SendDlgItemMessage(hwnd, idDlgItem, msg, 0, 0) 
    376     End Function 
    377  
    378     Function SendMessage(msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 
    379         Return _System_SendMessage(hwnd, msg, wp, lp) 
    380     End Function 
    381  
    382     Function SendMessage(msg As DWord) As LRESULT 
    383         Return _System_SendMessage(hwnd, msg, 0, 0) 
    384     End Function 
    385 /* 
    386     Function SetActiveWindow() As WindowHandle 
    387         Return New WindowHandle(SetActiveWindow(hwnd)) 
    388     End Function 
    389  
    390     Function SetDlgItemText(idDlgItem As Long, psz As PCTSTR) As Boolean 
    391         Return SetDlgItemText(hwnd, idDlgItem, psz) As Boolean 
    392     End Function 
    393  
    394     Function SetCapture() As WindowHandle 
    395         Return New WindowHandle(SetCapture(hwnd)) 
    396     End Function 
    397 */ 
    398     Function SetClassLongPtr(index As Long, newLong As LONG_PTR) As LONG_PTR 
    399         Return _System_SetClassLongPtr(hwnd, index, newLong) 
    400     End Function 
    401 /* 
    402     Function SetFocus() As WindowHandle 
    403         Return New WindowHandle(SetFocus(hwnd)) 
    404     End Function 
    405 */ 
    406     Function SetForeground() As Boolean 
    407         Return SetForegroundWindow(hwnd) As Boolean 
    408     End Function 
    409  
    410     Function SetMenu(hmenu As HMENU) As Boolean 
    411         Return _System_SetMenu(hwnd, hmenu) As Boolean 
    412     End Function 
    413  
    414     Function SetParent(hwndNewParent As HWND) As WindowHandle 
    415         Return New WindowHandle(_System_SetParent(hwnd, hwndNewParent)) 
    416     End Function 
    417  
    418     Function SetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO, redraw As Boolean) As Boolean 
    419         Return _System_SetScrollInfo(hwnd, fnBar, si, redraw) As Boolean 
    420     End Function 
    421  
    422     Function SetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO) As Boolean 
    423         Return _System_SetScrollInfo(hwnd, fnBar, si, TRUE) As Boolean 
    424     End Function 
    425 /* 
    426     Function SetTimer(idEvent As ULONG_PTR, elapse As DWord, timerFunc As TIMERPROC) As ULONG_PTR 
    427         Return SetTmer(hwnd, idEvent, elapse, timerFunc) 
    428     End Function 
    429  
    430     Function SetTimer(idEvent As ULONG_PTR, elapse As DWord) As ULONG_PTR 
    431         Return This.SetTmer(hwnd, idEvent, elapse, 0) 
    432     End Function 
    433  
    434     Function SetContextHelpId(contextHelpId As DWord) As Boolean 
    435         Return SetContextHelpId(hwnd, contextHelpId) As Boolean 
    436     End Function 
    437 */ 
    438     Function SetWindowLongPtr(index As Long, newLong As LONG_PTR) As LONG_PTR 
    439         Return _System_SetWindowLongPtr(hwnd, index, newLong) 
    440     End Function 
    441 /* 
    442     Function SetWindowPlacement(ByRef wndpl As WINDOWPLACEMENT) As Boolean 
    443         Return SetWindowPlacement(hwnd, wndpl) As Boolean 
    444     End Function 
    445 */ 
    446     Function SetPos(hwndInsertAfter As HWND, x As Long, y As Long, cx As Long, cy As Long, flags As DWord) As Boolean 
    447         Return SetWindowPos(hwnd, hwndInsertAfter, x, y, cx, cy, flags) As Boolean 
    448     End Function 
    449  
    450     Function SetPos(hwndInsertAfter As HWND, ByRef rc As RECT, flags As DWord) As Boolean 
     101    End Sub 
     102 
     103    Sub SetPos(hwndInsertAfter As HWND, x As Long, y As Long, cx As Long, cy As Long, flags As DWord) 
     104        ThrowIfFailedNT(SetWindowPos(hwnd, hwndInsertAfter, x, y, cx, cy, flags), "WindowHandle.SetPos") 
     105    End Sub 
     106 
     107    Sub SetPos(hwndInsertAfter As HWND, ByRef rc As RECT, flags As DWord) 
    451108        With rc 
    452             Return SetWindowPos(hwnd, hwndInsertAfter, .left, .top, .right - .left, .bottom - .top, flags) As Boolean 
     109            SetPos(hwndInsertAfter, .left, .top, .right - .left, .bottom - .top, flags) 
    453110        End With 
    454     End Function 
    455  
    456     Function SetRgn(hrgn As HRGN, redraw As Boolean) As Boolean 
    457         Return SetWindowRgn(hwnd, hrgn, redraw) As Boolean 
    458     End Function 
    459  
    460     Function SetRgn(hrgn As HRGN) As Boolean 
    461         Return SetWindowRgn(hwnd, hrgn, TRUE) As Boolean 
    462     End Function 
    463  
    464     Function ShowCaret() As Boolean 
    465         Return _System_ShowCaret(hwnd) As Boolean 
    466     End Function 
    467 /* 
    468     Function ShowScrollBar(bar As DWord, show As Boolean) As Boolean 
    469         Return ShowScrollBar(hwnd, bar, show) As Boolean 
    470     End Function 
    471  
    472     Function ShowScrollBar(bar As DWord) As Boolean 
    473         Return ShowScrollBar(hwnd, bar, TRUE) As Boolean 
    474     End Function 
    475 */ 
    476     Function Show(cmdShow As DWord) As Boolean 
    477         Return ShowWindow(hwnd, cmdShow) As Boolean 
    478     End Function 
    479  
    480     Function ShowAsync(cmdShow As DWord) As Boolean 
    481         Return ShowWindowAsync(hwnd, cmdShow) As Boolean 
    482     End Function 
    483  
    484     Function Update() As Boolean 
    485         Return UpdateWindow(hwnd) As Boolean 
    486     End Function 
    487  
    488     Function ValidateRect(ByRef rc As RECT) As Boolean 
    489         Return _System_ValidateRect(hwnd, rc) As Boolean 
    490     End Function 
    491  
    492     Function ValidateRgn(hrgn As HRGN) As Boolean 
    493         Return _System_ValidateRgn(hwnd, hrgn) As Boolean 
    494     End Function 
    495  
    496     Function Validate() As Boolean 
    497         Return _System_ValidateRect(hwnd, ByVal 0) As Boolean 
    498     End Function 
    499  
    500     ' Propaties 
     111    End Sub 
    501112 
    502113    Const Function ClientRect() As RECT 
    503         GetClientRect(hwnd, ClientRect) 
     114        ThrowIfFailedNT(GetClientRect(hwnd, ClientRect), "WindowHandle.ClientRect") 
    504115    End Function 
    505116#ifdef _UNDEF 
    … …  
    516127#endif 
    517128    Const Function WindowRect() As RECT 
    518         _System_GetWindowRect(hwnd, WindowRect) 
     129        GetWindowRect(hwnd, WindowRect) 
    519130    End Function 
    520131 
    … …  
    522133        This.Move(rc) 
    523134    End Sub 
    524 #ifdef _UNDEF 
    525     Const Function ContextHelpID() As DWord 
    526         Return GetContextHelpId(hwnd) 
    527     End Function 
    528  
    529     Sub ContextHelpID(newID As DWord) 
    530         _System_SetContextHelpId(hwnd, newId) 
    531     End Sub 
    532  
    533     Const Function DlgCtrlID() As Long 
    534         Return GetDlgCtrlID(hwnd) 
    535     End Function 
    536  
    537     Sub DlgCtrlId(newId As Long) 
    538         _System_SetWindowLongPtr(hwnd, GWLP_ID, newId) 
    539     End Sub 
    540 #endif 
    541     Function DlgItem(idDlgItem As Long) As WindowHandle 
    542         Dim w As WindowHandle(GetDlgItem(hwnd, idDlgItem)) 
    543         Return w 
    544     End Function 
    545  
    546     Const Function ExStyle() As DWord 
    547         Return _System_GetWindowLongPtr(hwnd, GWL_EXSTYLE) As DWord 
    548     End Function 
    549  
    550     Sub ExStyle(newExStyle As DWord) 
    551         _System_SetWindowLongPtr(hwnd, GWL_EXSTYLE, newExStyle) 
    552     End Sub 
    553  
    554     Const Function Style() As DWord 
    555         Return _System_GetWindowLongPtr(hwnd, GWL_STYLE) As DWord 
    556     End Function 
    557  
    558     Sub Style(newStyle As DWord) 
    559         _System_SetWindowLongPtr(hwnd, GWL_STYLE, newStyle) 
    560     End Sub 
    561  
    562     Const Function Enabled() As Boolean 
    563         Return IsWindowEnabled(hwnd) As Boolean 
    564     End Function 
    565  
    566     Sub Enabled(enable As Boolean) 
    567         EnableWindow(hwnd, enable) 
    568     End Sub 
    569  
    570     Const Function Font() As HFONT 
    571         Return _System_SendMessage(hwnd, WM_GETFONT, 0, 0) As HFONT 
    572     End Function 
    573  
    574     Sub Font(hfntNew As HFONT) 
    575         _System_SendMessage(hwnd, WM_SETFONT, hfntNew As WPARAM, TRUE) 
    576     End Sub 
    577  
    578     Const Function Maximized() As Boolean 
    579         Return IsZoomed(hwnd) As Boolean 
    580     End Function 
    581  
    582     Sub Maximized(maximized As Boolean) 
    583         If maximized <> False Then 
    584             ShowWindow(hwnd, SW_SHOWMAXIMIZED) 
    585         Else 
    586             ShowWindow(hwnd, SW_RESTORE) 
    587         End If 
    588     End Sub 
    589  
    590     Const Function Minimized() As Boolean 
    591         Return _System_IsIconic(hwnd) As Boolean 
    592     End Function 
    593  
    594     Sub Minimized(minimized As Boolean) 
    595         If minimized <> False Then 
    596             CloseWindow(hwnd) 
    597         Else 
    598             OpenIcon(hwnd) 
    599         End If 
    600     End Sub 
    601  
    602     Const Function Instance() As HINSTANCE 
    603         Return _System_GetWindowLongPtr(hwnd, GWLP_HINSTANCE) As HINSTANCE 
    604     End Function 
    605  
    606     ' IsWindow, IsUnicodeはメソッドと同じ。 
    607  
    608     Const Function Parent() As WindowHandle 
    609         Return New WindowHandle(_System_GetParent(hwnd)) 
    610     End Function 
    611  
    612     Sub Parent(hwndNewParent As HWND) 
    613         _System_SetParent(hwnd, hwndNewParent) 
    614     End Sub 
     135 
     136    Const Function WindowPlacement() As WINDOWPLACEMENT 
     137        WindowPlacement.length = Len(WindowPlacement) 
     138        ThrowIfFailedNT(GetWindowPlacement(hwnd, WindowPlacement), "WindowHandle.WindowPlacement (get)") 
     139    End Function 
     140 
     141    Sub WindowPlacement(ByRef wndpl As WINDOWPLACEMENT) 
     142        ThrowIfFailedNT(SetWindowPlacement(hwnd, wndpl), "WindowHandle.WindowPlacement (set)") 
     143    End Sub 
     144 
     145'キャレット 
     146    Sub CreateCaret(hbmp As HBITMAP, width As Long, height As Long) 
     147        ThrowIfFailedNT(_System_CreateCaret(hwnd, hbmp, width, height), "WindowHandle.CreateCaret") 
     148    End Sub 
     149 
     150    Sub HideCaret() 
     151        ThrowIfFailedNT(_System_HideCaret(hwnd), "WindowHandle.HideCaret") 
     152    End Sub 
     153 
     154    Sub ShowCaret() 
     155        ThrowIfFailedNT(_System_ShowCaret(hwnd), "WindowHandle.ShowCaret") 
     156    End Sub 
     157'全般 
     158    Sub Destroy() 
     159        DestroyWindow(hwnd) 
     160    End Sub 
     161 
    615162 
    616163    Const Function ProcessId() As DWord 
    … …  
    621168        Return GetWindowThreadProcessId(ByVal 0) 
    622169    End Function 
    623  
    624     Const Function Menu() As HMENU 
    625         Return _System_GetMenu(hwnd) 
    626     End Function 
    627  
    628     Sub Menu(hmenuNew As HMENU) 
    629         _System_SetMenu(hwnd, hmenuNew) 
    630     End Sub 
    631170 
    632171    Const Function Prop(str As String) As HANDLE 
    … …  
    674213        Return GetWindowTextLength(hwnd) 
    675214    End Function 
    676 #ifdef _UNDEF 
    677     Const Function UserData() As LONG_PTR 
    678         Return _System_GetWindowLongPtr(hwnd, GWLP_USERDATA) 
    679     End Function 
    680  
    681     Sub UserData(newValue As LONG_PTR) 
    682         _System_SetWindowLongPtr(hwnd, GWLP_USERDATA, newValue) 
    683     End Sub 
    684 #endif 
     215 
     216    Function Flash(invert As Boolean) As Boolean 
     217        Return FlashWindow(hwnd, invert) As Boolean 
     218    End Function 
     219/* 
     220    Const Function GetWindow(cmd As DWord) As WindowHandle 
     221        Return GetWindow(hwnd, cmd) 
     222    End Function 
     223    Const Function IsChild(hwnd As HWND) As Boolean 
     224        Return IsChild(This.hwnd, hwnd) As Boolean 
     225    End Function 
     226 
     227    Const Function IsDialogMessage(ByRef msg As MSG) As Boolean 
     228        Return IsDialogMessage(hwnd, msg) As Boolean 
     229    End Function 
     230*/ 
     231    Const Function IsValid() As Boolean 
     232        Return IsWindow(hwnd) As Boolean 
     233    End Function 
     234 
     235    Const Function IsUnicode() As Boolean 
     236        Return IsWindowUnicode(hwnd) As Boolean 
     237    End Function 
     238/* 
     239    Function KillTimer(idEvent As ULONG_PTR) As Boolean 
     240        Return KillTimer(idEvent) As Boolean 
     241    End Function 
     242 
     243    Function SetTimer(idEvent As ULONG_PTR, elapse As DWord, timerFunc As TIMERPROC) As ULONG_PTR 
     244        Return SetTmer(hwnd, idEvent, elapse, timerFunc) 
     245    End Function 
     246 
     247    Function SetTimer(idEvent As ULONG_PTR, elapse As DWord) As ULONG_PTR 
     248        Return This.SetTmer(hwnd, idEvent, elapse, 0) 
     249    End Function 
     250 
     251    Function SetActiveWindow() As WindowHandle 
     252        Return New WindowHandle(SetActiveWindow(hwnd)) 
     253    End Function 
     254 
     255    Function SetCapture() As WindowHandle 
     256        Return New WindowHandle(SetCapture(hwnd)) 
     257    End Function 
     258  
     259    Function SetFocus() As WindowHandle 
     260        Return New WindowHandle(SetFocus(hwnd)) 
     261    End Function 
     262*/ 
     263    Function SetForeground() As Boolean 
     264        Return SetForegroundWindow(hwnd) As Boolean 
     265    End Function 
     266 
     267    Const Function ContextHelpID() As DWord 
     268        Return GetWindowContextHelpId(hwnd) 
     269    End Function 
     270 
     271    Sub ContextHelpID(newId As DWord) 
     272        ThrowIfFailedNT(SetWindowContextHelpId(hwnd, newId), "WindowHandle.ContextHelpID") 
     273    End Sub 
     274'表示関係 
     275    '呼出前に可視状態だったらTrue、そうでなければFalseが返る。 
     276    Function Show(cmdShow As DWord) As Boolean 
     277        Return ShowWindow(hwnd, cmdShow) As Boolean 
     278    End Function 
     279 
     280    Function ShowAsync(cmdShow As DWord) As Boolean 
     281        Return ShowWindowAsync(hwnd, cmdShow) As Boolean 
     282    End Function 
     283 
    685284    Const Function Visible() As Boolean 
    686285        Return IsWindowVisible(hwnd) As Boolean 
    … …  
    694293        EndIf 
    695294    End Sub 
     295 
     296    Const Function Maximized() As Boolean 
     297        Return IsZoomed(hwnd) As Boolean 
     298    End Function 
     299 
     300    Sub Maximized(maximized As Boolean) 
     301        If maximized <> False Then 
     302            Show(SW_SHOWMAXIMIZED) 
     303        Else 
     304            Show(SW_RESTORE) 
     305        End If 
     306    End Sub 
     307 
     308    Const Function Minimized() As Boolean 
     309        Return IsIconic(hwnd) As Boolean 
     310    End Function 
     311 
     312    Sub Minimized(minimized As Boolean) 
     313        If minimized <> False Then 
     314            CloseWindow(hwnd) 
     315        Else 
     316            OpenIcon(hwnd) 
     317        End If 
     318    End Sub 
     319 
     320    Const Function Enable() As Boolean 
     321        Return IsWindowEnabled(hwnd) As Boolean 
     322    End Function 
     323 
     324    Sub Enable(enable As Boolean) 
     325        EnableWindow(hwnd, enable) 
     326    End Sub 
     327 
     328'メニュー 
     329/* 
     330    Sub DrawMenuBar() 
     331        ThrowIfFailedNT(_System_DrawMenuBar(hwnd), "WindowHandle.DrawMenuBar") 
     332    End Sub 
     333    Const Function GetMenu() As HMENU 
     334        Return _System_GetMenu(hwnd) 
     335    End Function 
     336 
     337    Sub SetMenu(hmenu As HMENU) 
     338        ThrowIfFailedNT(_System_SetMenu(hwnd, hmenu), "WindowHandle.SetMenu") 
     339    End Sub 
     340*/ 
     341    Const Function GetWindowThreadProcessId(ByRef processId As DWord) As DWord 
     342        Return _System_GetWindowThreadProcessId(hwnd, VarPtr(processId)) 
     343    End Function 
     344 
     345'スクロールバー 
     346/* 
     347    Function EnableScrollBar(SBFlags As DWord, arrows As DWord) As Boolean 
     348        Return EnableScrollBar(hwnd, SBFlags, arrows) As Boolean 
     349    End Function 
     350 
     351    Const Function GetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO) As Boolean 
     352        Return _System_GetScrollInfo(hwnd, fnBar, si) As Boolean 
     353    End Function 
     354 
     355    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 Long 
     356        Return ScrollWindowEx(hwnd, dx, dy, rcScroll, rcClip, hrgnUpdate, rcUpdate, flags) 
     357    End Function 
     358 
     359    Function SetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO, redraw = True As Boolean) As Long 
     360        Return _System_SetScrollInfo(hwnd, fnBar, si, redraw) 
     361    End Function 
     362 
     363    Function ShowScrollBar(bar As DWord, show As Boolean) As Boolean 
     364        Return ShowScrollBar(hwnd, bar, show) As Boolean 
     365    End Function 
     366 
     367    Function ShowScrollBar(bar As DWord) As Boolean 
     368        Return ShowScrollBar(hwnd, bar, TRUE) As Boolean 
     369    End Function 
     370*/ 
     371'子ウィンドウ 
     372    Const Sub EnumChilds(enumFunc As WNDENUMPROC, lp As LPARAM) 
     373        EnumChildWindows(hwnd, enumFunc, lp) 
     374    End Sub 
     375/* 
     376    Const Function ChildFromPoint(x As Long, y As Long) As WindowHandle 
     377        Return New WindowHandle(ChildWindowFromPoint(hwnd, x, y)) 
     378    End Function 
     379 
     380    Const Function ChildFromPointEx(x As Long, y As Long, flags As DWord) As WindowHandle 
     381        Return New WindowHandle(ChildWindowFromPointEx(hwnd, x, y, flags)) 
     382    End Function 
     383*/ 
     384'描画 
     385    Function GetDC() As HDC 
     386        Return _System_GetDC(hwnd) 
     387    End Function 
     388 
     389    Function GetDCEx(hrgnClip As HRGN, flags As DWord) As HDC 
     390        Return _System_GetDCEx(hwnd, hrgnClip, flags) 
     391    End Function 
     392 
     393    Function GetWindowDC() As HDC 
     394        Return _System_GetWindowDC(hwnd) 
     395    End Function 
     396 
     397    Sub Invalidate(ByRef rc As RECT, erace As Boolean) 
     398        ThrowIfFailedNT(InvalidateRect(hwnd, rc, erace), "WindowHandle.Invalidate") 
     399    End Sub 
     400 
     401    Sub Invalidate(ByRef rc As RECT) 
     402        ThrowIfFailedNT(InvalidateRect(hwnd, rc, TRUE), "WindowHandle.Invalidate") 
     403    End Sub 
     404 
     405    Sub Invalidate(hrgn As HRGN, erace As Boolean) 
     406        'InvalidateRgnは常に非0を返すというMSDNライブラリの記述を信じる 
     407        InvalidateRgn(hwnd, hrgn, erace) 
     408    End Sub 
     409 
     410    Sub Invalidate(hrgn As HRGN) 
     411        InvalidateRgn(hwnd, hrgn, TRUE) 
     412    End Sub 
     413 
     414    Sub Invalidate(erace As Boolean) 
     415        ThrowIfFailedNT(InvalidateRect(hwnd, ByVal 0, erace), "WindowHandle.Invalidate") 
     416    End Sub 
     417 
     418    Sub Invalidate() 
     419        ThrowIfFailedNT(InvalidateRect(hwnd, ByVal 0, TRUE), "WindowHandle.Invalidate") 
     420    End Sub 
     421 
     422    Sub Validate(ByRef rc As RECT) 
     423        ThrowIfFailedNT(ValidateRect(hwnd, rc), "WindowHandle.Validate") 
     424    End Sub 
     425 
     426    Sub Validate(hrgn As HRGN) 
     427        ThrowIfFailedNT(ValidateRgn(hwnd, hrgn), "WindowHandle.Validate") 
     428    End Sub 
     429 
     430    Sub Validate() 
     431        ThrowIfFailedNT(ValidateRect(hwnd, ByVal 0), "WindowHandle.Validate") 
     432    End Sub 
     433 
     434    Sub Update() 
     435        ThrowIfFailedNT(UpdateWindow(hwnd), "WindowHandle.Update") 
     436    End Sub 
     437 
     438    Sub Redraw(ByRef rcUpdate As RECT, hrgnUpdate As HRGN, flags As DWord) 
     439        ThrowIfFailedNT(RedrawWindow(hwnd, rcUpdate, hrgnUpdate, flags), "WindowHandle.Update") 
     440    End Sub 
     441 
     442    Sub ReleaseDC(hdc As HDC) 
     443        ThrowIfFailedNT(_System_ReleaseDC(hwnd, hdc), "WindowHandle.ReleaseDC") 
     444    End Sub 
     445 
     446    Sub SetRgn(hrgn As HRGN, redraw = True As Boolean) 
     447        ThrowIfFailedNT(SetWindowRgn(hwnd, hrgn, redraw), "WindowHandle.SetRgn") 
     448    End Sub 
     449'メッセージ 
     450    Function SendDlgItemMessage(idDlgItem As Long, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 
     451        Return _System_SendDlgItemMessage(hwnd, idDlgItem, msg, wp, lp) 
     452    End Function 
     453 
     454    Function SendDlgItemMessage(idDlgItem As Long, msg As DWord) As LRESULT 
     455        Return _System_SendDlgItemMessage(hwnd, idDlgItem, msg, 0, 0) 
     456    End Function 
     457 
     458    Function SendMessage(msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 
     459        Return _System_SendMessage(hwnd, msg, wp, lp) 
     460    End Function 
     461 
     462    Function SendMessage(msg As DWord) As LRESULT 
     463        Return _System_SendMessage(hwnd, msg, 0, 0) 
     464    End Function 
     465 
     466    Function PostMessage(msg As DWord, wp As WPARAM, lp As LPARAM) As Boolean 
     467        Return _System_PostMessage(hwnd, msg, wp, lp) As Boolean 
     468    End Function 
     469 
     470    Function PostMessage(msg As DWord) As Boolean 
     471        Return _System_PostMessage(hwnd, msg, 0, 0) As Boolean 
     472    End Function 
     473 
     474'その他 
     475    Const Function Id() As Long 
     476        Return GetDlgCtrlID(hwnd) 
     477    End Function 
     478 
     479    Sub Id(newId As Long) 
     480        SetWindowLongPtr(hwnd, GWLP_ID, newId) 
     481    End Sub 
     482/* 
     483    Function DlgItem(idDlgItem As Long) As WindowHandle 
     484        DlgItem = New WindowHandle(GetDlgItem(hwnd, idDlgItem)) 
     485    End Function 
     486*/ 
     487    Const Function ExStyle() As DWord 
     488        Return GetWindowLongPtr(hwnd, GWL_EXSTYLE) As DWord 
     489    End Function 
     490 
     491    Sub ExStyle(newExStyle As DWord) 
     492        SetWindowLongPtr(hwnd, GWL_EXSTYLE, newExStyle As LONG_PTR) 
     493    End Sub 
     494 
     495    Const Function Style() As DWord 
     496        Return GetWindowLongPtr(hwnd, GWL_STYLE) As DWord 
     497    End Function 
     498 
     499    Sub Style(newStyle As DWord) 
     500        SetWindowLongPtr(hwnd, GWL_STYLE, newStyle) 
     501    End Sub 
     502 
     503    Const Function Font() As HFONT 
     504        Return _System_SendMessage(hwnd, WM_GETFONT, 0, 0) As HFONT 
     505    End Function 
     506 
     507    Sub Font(hfntNew As HFONT) 
     508        _System_SendMessage(hwnd, WM_SETFONT, hfntNew As WPARAM, TRUE) 
     509    End Sub 
     510 
     511    Const Function Instance() As HINSTANCE 
     512        Return GetWindowLongPtr(hwnd, GWLP_HINSTANCE) As HINSTANCE 
     513    End Function 
     514 
     515    Const Function Parent() As WindowHandle 
     516        Return New WindowHandle(GetParent(hwnd)) 
     517    End Function 
     518 
     519    Sub Parent(hwndNewParent As HWND) 
     520        SetParent(hwnd, hwndNewParent) 
     521    End Sub 
     522 
     523    Const Function UserData() As LONG_PTR 
     524        Return GetWindowLongPtr(hwnd, GWLP_USERDATA) 
     525    End Function 
     526 
     527    Sub UserData(newValue As LONG_PTR) 
     528        SetWindowLongPtr(hwnd, GWLP_USERDATA, newValue) 
     529    End Sub 
     530 
    696531#ifdef _UNDEF 
    697     Const Function WindowPlacement() As WINDOWPLACEMENT 
    698         WindowPlacement.length = Len(WindowPlacement) 
    699         GetWindowPlacement(hwnd, WindowPlacement) 
    700     End Function 
    701  
    702     Sub WindowPlacement(ByRef wndpl As WINDOWPLACEMENT) 
    703         SetWindowPlacement(wndpl) 
    704     End Sub 
    705  
    706532    Const Function WndProc() As WNDPROC 
    707         Return _System_GetWindowLongPtr(hwnd, GWLP_HINSTANCE) As WNDPROC 
     533        Return GetWindowLongPtr(hwnd, GWLP_HINSTANCE) As WNDPROC 
    708534    End Function 
    709535 
    710536    Sub WndProc(newWndProc As WNDPROC) 
    711         _System_SetWindowLongPtr(hwnd, GWLP_WNDPROC, newWndProc As LONG_PTR) 
     537        SetWindowLongPtr(hwnd, GWLP_WNDPROC, newWndProc As LONG_PTR) 
    712538    End Sub 
    713539#endif 

  • trunk/ab5.0/ablib/src/Classes/index.ab

    r635 r646  
    1010#require "./ActiveBasic/Windows/Registry.ab" 
    1111#require "./ActiveBasic/Windows/Windows.ab" 
    12 #require "./ActiveBasic/Windows/UI/WindowHandle.sbp" 
     12#require "./ActiveBasic/Windows/UI/WindowHandle.ab" 
    1313#require "./ActiveBasic/Windows/Version/Version.ab" 
    1414#require "./ActiveBasic/Xml/Parser.ab" 
Note: See TracChangeset for help on using the changeset viewer.