Changeset 178 for Include


Ignore:
Timestamp:
Mar 24, 2007, 12:08:26 AM (18 years ago)
Author:
イグトランス (egtra)
Message:

BOOL→Boolean

File:
1 edited

Legend:

Unmodified
Added
Removed

  • Include/windows/WindowHandle.sbp

    r77 r178  
    5757    End Function
    5858
    59     Function BringToTop() As BOOL
    60         Return BringWindowToTop(hwnd)
     59    Function BringToTop() As Boolean
     60        Return BringWindowToTop(hwnd) As Boolean
    6161    End Function
    6262
    … …  
    7373    End Function
    7474
    75     Const Function ClientToScreen(ByRef pt As POINTAPI) As BOOL
    76         Return _System_ClientToScreen(hwnd, pt)
    77     End Function
    78 
    79     Function Close() As BOOL
    80         Return CloseWindow(hwnd)
    81     End Function
    82 
    83     Function CreateCaret(hbmp As HBITMAP, width As Long, height As Long) As BOOL
    84         Return _System_CreateCaret(hwnd, hbmp, width, hegiht)
    85     End Function
    86 
    87     Function Destroy() As BOOL
    88         Return DestroyWindow(hwnd)
    89     End Function
    90 
    91     Function DrawMenuBar() As BOOL
    92         Return _System_DrawMenuBar(hwnd)
    93     End Function
    94 
    95     Function EnableScrollBar(SBFlags As DWord, arrows As DWord) As BOOL
    96         Return EnableScrollBar(hwnd, SBFlags, arrows)
    97     End Function
    98 
    99     Function Enable(enable As BOOL) As BOOL
    100         Return EnableWindow(hwnd, enable)
    101     End Function
    102 
    103     Function EndPaint(ByRef ps As PAINTSTRUCT) As BOOL
    104         Return _System_EndPaint(hwnd, ps)
    105     End Function
    106 
    107     Const Function EnumChilds(enumFunc As WNDENUMPROC, lp As LPARAM) As BOOL
    108         Return EnumChildWindows(hwnd, enumFunc, lp)
    109     End Function
    110 
    111     Function Flash(invert As BOOL) As BOOL
    112         Return FlashWindow(hwnd, invert)
     75    Const Function ClientToScreen(ByRef pt As POINTAPI) As Boolean
     76        Return _System_ClientToScreen(hwnd, pt) As Boolean
     77    End Function
     78
     79    Function Close() As Boolean
     80        Return CloseWindow(hwnd) As Boolean
     81    End Function
     82
     83    Function CreateCaret(hbmp As HBITMAP, width As Long, height As Long) As Boolean
     84        Return _System_CreateCaret(hwnd, hbmp, width, hegiht) As Boolean
     85    End Function
     86
     87    Function Destroy() As Boolean
     88        Return DestroyWindow(hwnd) As Boolean
     89    End Function
     90
     91    Function DrawMenuBar() As Boolean
     92        Return _System_DrawMenuBar(hwnd) As Boolean
     93    End Function
     94
     95    Function EnableScrollBar(SBFlags As DWord, arrows As DWord) As Boolean
     96        Return EnableScrollBar(hwnd, SBFlags, arrows) As Boolean
     97    End Function
     98
     99    Function Enable(enable As Boolean) As Boolean
     100        Return EnableWindow(hwnd, enable) As Boolean
     101    End Function
     102
     103    Function EndPaint(ByRef ps As PAINTSTRUCT) As Boolean
     104        Return _System_EndPaint(hwnd, ps) As Boolean
     105    End Function
     106
     107    Const Function EnumChilds(enumFunc As WNDENUMPROC, lp As LPARAM) As Boolean
     108        Return EnumChildWindows(hwnd, enumFunc, lp) As Boolean
     109    End Function
     110
     111    Function Flash(invert As Boolean) As Boolean
     112        Return FlashWindow(hwnd, invert) As Boolean
    113113    End Function
    114114
    … …  
    121121    End Function
    122122
    123     Const Function GetClientRect(ByRef rc As RECT) As BOOL
    124         Return _System_GetClientRect(hwnd, rc)
     123    Const Function GetClientRect(ByRef rc As RECT) As Boolean
     124        Return _System_GetClientRect(hwnd, rc) As Boolean
    125125    End Function
    126126
    … …  
    166166    End Function
    167167
    168     Const Function GetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO) As BOOL
    169         Return GetScrollInfo(hwnd, fnBar, si)
    170     End Function
    171 
    172     Const Function GetSystemMenu(revert As BOOL) As HMENU
     168    Const Function GetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO) As Boolean
     169        Return GetScrollInfo(hwnd, fnBar, si) As Boolean
     170    End Function
     171
     172    Const Function GetSystemMenu(revert As Boolean) As HMENU
    173173        Return GetSystemMenu(hwnd, revert)
    174174    End Function
    175175
    176     Const Function GetUpdateRect(ByRef rc As RECT, erase As BOOL) As BOOL
    177         Return GetUpdateRact(hwnd, rc, erase)
    178     End Function
    179 
    180     Const Function GetUpdateRgn(hrgn As HRGN, erase As BOOL) As BOOL
    181         Return GetUpdateRgn(hwnd, hrgn, erase)
     176    Const Function GetUpdateRect(ByRef rc As RECT, erase As Boolean) As Boolean
     177        Return GetUpdateRact(hwnd, rc, erase) As Boolean
     178    End Function
     179
     180    Const Function GetUpdateRgn(hrgn As HRGN, erase As Boolean) As Boolean
     181        Return GetUpdateRgn(hwnd, hrgn, erase) As Boolean
    182182    End Function
    183183
    … …  
    194194    End Function
    195195
    196     Const Function GetWindowPlasement(ByRef wndpl As WINDOWPLACEMENT) As BOOL
    197         Return GetWindowPlasement(hwnd, wndpl)
    198     End Function
    199 
    200     Const Function GetWindowRect(ByRef rc As RECT) As BOOL
    201         Return _System_GetWindowRect(rc)
    202     End Function
    203 
    204     Const Function GetText(ps As PSTR, maxCount As Long) As BOOL
    205         Return GetWindowText(ps, maxCount)
     196    Const Function GetWindowPlasement(ByRef wndpl As WINDOWPLACEMENT) As Boolean
     197        Return GetWindowPlasement(hwnd, wndpl) As Boolean
     198    End Function
     199
     200    Const Function GetWindowRect(ByRef rc As RECT) As Boolean
     201        Return _System_GetWindowRect(rc) As Boolean
     202    End Function
     203
     204    Const Function GetText(ps As PSTR, maxCount As Long) As Boolean
     205        Return GetWindowText(ps, maxCount) As Boolean
    206206    End Function
    207207
    … …  
    218218    End Function
    219219
    220     Function HideCaret() As BOOL
    221         Return _System_HideCaret(hwnd)
    222     End Function
    223 
    224     Function InvalidateRect(ByRef rc As RECT, erace As BOOL) As BOOL
    225         Return _System_InvalidateRect(hwnd, rc, erace)
    226     End Function
    227 
    228     Function InvalidateRect(ByRef rc As RECT) As BOOL
    229         Return _System_InvalidateRect(hwnd, rc, TRUE)
    230     End Function
    231 
    232     Function InvalidateRgn(hrgn As HRGN, erace As BOOL) As BOOL
    233         Return _System_InvalidateRgn(hwnd, hrgn, erace)
    234     End Function
    235 
    236     Function InvalidateRgn(hrgn As HRGN) As BOOL
    237         Return _System_InvalidateRgn(hwnd, hrgn, TRUE)
    238     End Function
    239 
    240     Function Invalidate(erace As BOOL) As BOOL
    241         Return _System_InvalidateRect(hwnd, ByVal 0, erace)
    242     End Function
    243 
    244     Function Invalidate() As BOOL
    245         Return _System_InvalidateRect(hwnd, ByVal 0, TRUE)
    246     End Function
    247 
    248     Const Function IsChild(hwnd As HWND) As BOOL
    249         Return IsChild(This.hwnd, hwnd)
    250     End Function
    251 
    252     Const Function IsDialogMessage(ByRef msg As MSG) As BOOL
    253         Return IsDialogMessage(hwnd, msg)
    254     End Function
    255 
    256     Const Function IsIconic() As BOOL
    257         Return _System_IsIconic(hwnd)
    258     End Function
    259 
    260     Const Function IsWindow() As BOOL
    261         Return _System_IsWindow(hwnd)
    262     End Function
    263 
    264     Const Function IsEnabled() As BOOL
    265         Return IsWindowEnabled(hwnd)
    266     End Function
    267 
    268     Const Function IsUnicode() As BOOL
    269         Return IsWindowUnicode(hwnd)
    270     End Function
    271 
    272     Const Function IsVisible() As BOOL
    273         Return IsWindowVisible(hwnd)
    274     End Function
    275 
    276     Const Function IsZoomed() As BOOL
    277         Return IsZoomed(hwnd)
    278     End Function
    279 
    280     Function KillTimer(idEvent As ULONG_PTR) As BOOL
    281         Return KillTimer(idEvent)
    282     End Function
    283 
    284     Function LockUpdate() As BOOL
    285         Return LockWindowUpdate(hwnd)
     220    Function HideCaret() As Boolean
     221        Return _System_HideCaret(hwnd) As Boolean
     222    End Function
     223
     224    Function InvalidateRect(ByRef rc As RECT, erace As Boolean) As Boolean
     225        Return _System_InvalidateRect(hwnd, rc, erace) As Boolean
     226    End Function
     227
     228    Function InvalidateRect(ByRef rc As RECT) As Boolean
     229        Return _System_InvalidateRect(hwnd, rc, TRUE) As Boolean
     230    End Function
     231
     232    Function InvalidateRgn(hrgn As HRGN, erace As Boolean) As Boolean
     233        Return _System_InvalidateRgn(hwnd, hrgn, erace) As Boolean
     234    End Function
     235
     236    Function InvalidateRgn(hrgn As HRGN) As Boolean
     237        Return _System_InvalidateRgn(hwnd, hrgn, TRUE) As Boolean
     238    End Function
     239
     240    Function Invalidate(erace As Boolean) As Boolean
     241        Return _System_InvalidateRect(hwnd, ByVal 0, erace) As Boolean
     242    End Function
     243
     244    Function Invalidate() As Boolean
     245        Return _System_InvalidateRect(hwnd, ByVal 0, TRUE) As Boolean
     246    End Function
     247
     248    Const Function IsChild(hwnd As HWND) As Boolean
     249        Return IsChild(This.hwnd, hwnd) As Boolean
     250    End Function
     251
     252    Const Function IsDialogMessage(ByRef msg As MSG) As Boolean
     253        Return IsDialogMessage(hwnd, msg) As Boolean
     254    End Function
     255
     256    Const Function IsIconic() As Boolean
     257        Return _System_IsIconic(hwnd) As Boolean
     258    End Function
     259
     260    Const Function IsWindow() As Boolean
     261        Return _System_IsWindow(hwnd) As Boolean
     262    End Function
     263
     264    Const Function IsEnabled() As Boolean
     265        Return IsWindowEnabled(hwnd) As Boolean
     266    End Function
     267
     268    Const Function IsUnicode() As Boolean
     269        Return IsWindowUnicode(hwnd) As Boolean
     270    End Function
     271
     272    Const Function IsVisible() As Boolean
     273        Return IsWindowVisible(hwnd) As Boolean
     274    End Function
     275
     276    Const Function IsZoomed() As Boolean
     277        Return IsZoomed(hwnd) As Boolean
     278    End Function
     279
     280    Function KillTimer(idEvent As ULONG_PTR) As Boolean
     281        Return KillTimer(idEvent) As Boolean
     282    End Function
     283
     284    Function LockUpdate() As Boolean
     285        Return LockWindowUpdate(hwnd) As Boolean
    286286    End Function
    287287
    … …  
    306306    End Function
    307307
    308     Function Move(x As Long, y As Long, width As Long, height As Long, repaint As BOOL) As BOOL
    309         Return MoveWindow(hwnd, x, y, width, height, repaint)
    310     End Function
    311 
    312     Function Move(x As Long, y As Long, width As Long, height As Long) As BOOL
    313         Return MoveWindow(hwnd, x, y, width, height, TRUE)
    314     End Function
    315 
    316     Function Move(ByRef rc As RECT, repeaint As BOOL) As BOOL
     308    Function Move(x As Long, y As Long, width As Long, height As Long, repaint As Boolean) As Boolean
     309        Return MoveWindow(hwnd, x, y, width, height, repaint) As Boolean
     310    End Function
     311
     312    Function Move(x As Long, y As Long, width As Long, height As Long) As Boolean
     313        Return MoveWindow(hwnd, x, y, width, height, TRUE) As Boolean
     314    End Function
     315
     316    Function Move(ByRef rc As RECT, repeaint As Boolean) As Boolean
    317317        With rc
    318             Return MoveWindow(hwnd, .left, .top, .right - .left, .bottom - .top, repaint)
     318            Return MoveWindow(hwnd, .left, .top, .right - .left, .bottom - .top, repaint) As Boolean
    319319        End With
    320320    End Function
    321321
    322     Function Move(ByRef rc As RECT) As BOOL
     322    Function Move(ByRef rc As RECT) As Boolean
    323323        With rc
    324             Return MoveWindow(hwnd, .left, .top, .right - .left, .bottom - .top, TRUE)
     324            Return MoveWindow(hwnd, .left, .top, .right - .left, .bottom - .top, TRUE) As Boolean
    325325        End With
    326326    End Function
    327327
    328     Function OpenClipboard() As BOOL
    329         Return OpenClipboard(hwnd)
    330     End Function
    331 
    332     Function OpenIcon() As BOOL
    333         Return OpenIcon(hwnd)
    334     End Function
    335 
    336     Function PostMessage(msg As DWord, wp As WPARAM, lp As LPARAM) As BOOL
    337         Return PostMessage(hwnd, msg, wp, lp)
    338     End Function
    339 
    340     Function PostMessage(msg As DWord) As BOOL
    341         Return PostMessage(hwnd, msg, 0, 0)
    342     End Function
    343 
    344     Function RedrawWindow(ByRef rcUpdate As RECT, hrgnUpdate As HRGN, flags As DWord) As BOOL
    345         Return RedrawWindow(hwnd, rcUpdatre, hrgnUpdate, flags)
    346     End Function
    347 
    348     Function ReleaseDC(hdc As HDC) As BOOL
    349         Return ReleaseDC(hwnd, hdc)
     328    Function OpenClipboard() As Boolean
     329        Return OpenClipboard(hwnd) As Boolean
     330    End Function
     331
     332    Function OpenIcon() As Boolean
     333        Return OpenIcon(hwnd) As Boolean
     334    End Function
     335
     336    Function PostMessage(msg As DWord, wp As WPARAM, lp As LPARAM) As Boolean
     337        Return PostMessage(hwnd, msg, wp, lp) As Boolean
     338    End Function
     339
     340    Function PostMessage(msg As DWord) As Boolean
     341        Return PostMessage(hwnd, msg, 0, 0) As Boolean
     342    End Function
     343
     344    Function RedrawWindow(ByRef rcUpdate As RECT, hrgnUpdate As HRGN, flags As DWord) As Boolean
     345        Return RedrawWindow(hwnd, rcUpdatre, hrgnUpdate, flags) As Boolean
     346    End Function
     347
     348    Function ReleaseDC(hdc As HDC) As Boolean
     349        Return ReleaseDC(hwnd, hdc) As Boolean
    350350    End Function
    351351
    … …  
    358358    End Function
    359359
    360     Const Function ScreenToClient(ByRef pt As POINTAPI) As BOOL
    361         Return _System_ScreenToClient(hwnd, pt)
    362     End Function
    363 
    364     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 BOOL
    365         Return ScrollWindowEx(hwnd, dx, dy, rcScroll, rcClip, hrgnUpdate, rcUpdate, flags)
     360    Const Function ScreenToClient(ByRef pt As POINTAPI) As Boolean
     361        Return _System_ScreenToClient(hwnd, pt) As Boolean
     362    End Function
     363
     364    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
     365        Return ScrollWindowEx(hwnd, dx, dy, rcScroll, rcClip, hrgnUpdate, rcUpdate, flags) As Boolean
    366366    End Function
    367367
    … …  
    386386    End Function
    387387
    388     Function SetDlgItemText(idDlgItem As Long, psz As PCSTR) As BOOL
    389         Return SetDlgItemText(hwnd, idDlgItem, psz)
     388    Function SetDlgItemText(idDlgItem As Long, psz As PCSTR) As Boolean
     389        Return SetDlgItemText(hwnd, idDlgItem, psz) As Boolean
    390390    End Function
    391391
    … …  
    402402    End Function
    403403
    404     Function SetForeground() As BOOL
    405         Return SetForegroundWindow(hwnd)
    406     End Function
    407 
    408     Function SetMenu(hmenu As HMENU) As BOOL
    409         Return _System_SetMenu(hwnd, hmenu)
     404    Function SetForeground() As Boolean
     405        Return SetForegroundWindow(hwnd) As Boolean
     406    End Function
     407
     408    Function SetMenu(hmenu As HMENU) As Boolean
     409        Return _System_SetMenu(hwnd, hmenu) As Boolean
    410410    End Function
    411411
    … …  
    414414    End Function
    415415
    416     Function SetProp(psz As PCSTR, hData As HANDLE) As BOOL
    417         Return SetProp(hwnd, psz, hData)
    418     End Function
    419 
    420     Function SetProp(atom As ATOM, hData As HANDLE) As BOOL
    421         Return SetProp(atom As ULONG_PTR As PCSTR, hData)
    422     End Function
    423 
    424     Function SetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO, redraw As BOOL) As BOOL
    425         Return SetScrollInfo(hwnd, fnBar, si, redraw)
    426     End Function
    427 
    428     Function SetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO) As BOOL
    429         Return SetScrollInfo(hwnd, fnBar, si, TRUE)
     416    Function SetProp(psz As PCSTR, hData As HANDLE) As Boolean
     417        Return SetProp(hwnd, psz, hData) As Boolean
     418    End Function
     419
     420    Function SetProp(atom As ATOM, hData As HANDLE) As Boolean
     421        Return SetProp(atom As ULONG_PTR As PCSTR, hData) As Boolean
     422    End Function
     423
     424    Function SetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO, redraw As Boolean) As Boolean
     425        Return SetScrollInfo(hwnd, fnBar, si, redraw) As Boolean
     426    End Function
     427
     428    Function SetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO) As Boolean
     429        Return SetScrollInfo(hwnd, fnBar, si, TRUE) As Boolean
    430430    End Function
    431431
    … …  
    438438    End Function
    439439
    440     Function SetContextHelpId(contextHelpId As DWord) As BOOL
    441         Return SetContextHelpId(hwnd, contextHelpId)
     440    Function SetContextHelpId(contextHelpId As DWord) As Boolean
     441        Return SetContextHelpId(hwnd, contextHelpId) As Boolean
    442442    End Function
    443443
    … …  
    446446    End Function
    447447
    448     Function SetWindowPlacement(ByRef wndpl As WINDOWPLACEMENT) As BOOL
    449         Return SetWindowPlacement(hwnd, wndpl)
    450     End Function
    451 
    452     Function SetPos(hwndInsertAfter As HWND, x As Long, y As Long, cx As Long, cy As Long, flags As DWord) As BOOL
    453         Return SetWindowPos(hwnd, hwndInsertAfter, x, y, cx, cy, flags)
    454     End Function
    455 
    456     Function SetPos(hwndInsertAfter As HWND, ByRef rc As RECT, flags As DWord) As BOOL
     448    Function SetWindowPlacement(ByRef wndpl As WINDOWPLACEMENT) As Boolean
     449        Return SetWindowPlacement(hwnd, wndpl) As Boolean
     450    End Function
     451
     452    Function SetPos(hwndInsertAfter As HWND, x As Long, y As Long, cx As Long, cy As Long, flags As DWord) As Boolean
     453        Return SetWindowPos(hwnd, hwndInsertAfter, x, y, cx, cy, flags) As Boolean
     454    End Function
     455
     456    Function SetPos(hwndInsertAfter As HWND, ByRef rc As RECT, flags As DWord) As Boolean
    457457        With rc
    458             Return SetWindowPos(hwnd, hwndInsertAfter, .left, .top, .right - .left, .bottom - .top, flags)
     458            Return SetWindowPos(hwnd, hwndInsertAfter, .left, .top, .right - .left, .bottom - .top, flags) As Boolean
    459459        End With
    460460    End Function
    461461
    462     Function SetRgn(hrgn As HRGN, redraw As BOOL) As BOOL
    463         Return SetWindowRgn(hwnd, hrgn, redraw)
    464     End Function
    465 
    466     Function SetRgn(hrgn As HRGN) As BOOL
    467         Return SetWindowRgn(hwnd, hrgn, TRUE)
    468     End Function
    469 
    470     Function SetText(psz As PCSTR) As BOOL
    471         Return SetWindowText(hwnd, psz)
    472     End Function
    473 
    474     Function ShowCaret() As BOOL
    475         Return _System_ShowCaret(hwnd)
    476     End Function
    477 
    478     Function ShowScrollBar(bar As DWord, show As BOOL) As BOOL
    479         Return ShowScrollBar(hwnd, bar, show)
    480     End Function
    481 
    482     Function ShowScrollBar(bar As DWord) As BOOL
    483         Return ShowScrollBar(hwnd, bar, TRUE)
    484     End Function
    485 
    486     Function Show(cmdShow As DWord) As BOOL
    487         Return ShowWindow(hwnd, cmdShow)
    488     End Function
    489 
    490     Function ShowAsync(cmdShow As DWord) As BOOL
    491         Return ShowWindowAsync(hwnd, cmdShow)
    492     End Function
    493 
    494     Function Update() As BOOL
    495         Return UpdateWindow(hwnd)
    496     End Function
    497 
    498     Function ValidateRect(ByRef rc As RECT) As BOOL
    499         Return _System_ValidateRect(hwnd, rc)
    500     End Function
    501 
    502     Function ValidateRgn(hrgn As HRGN) As BOOL
    503         Return _System_ValidateRgn(hwnd, hrgn)
    504     End Function
    505 
    506     Function Validate() As BOOL
    507         Return _System_ValidateRect(hwnd, ByVal 0)
     462    Function SetRgn(hrgn As HRGN, redraw As Boolean) As Boolean
     463        Return SetWindowRgn(hwnd, hrgn, redraw) As Boolean
     464    End Function
     465
     466    Function SetRgn(hrgn As HRGN) As Boolean
     467        Return SetWindowRgn(hwnd, hrgn, TRUE) As Boolean
     468    End Function
     469
     470    Function SetText(psz As PCSTR) As Boolean
     471        Return SetWindowText(hwnd, psz) As Boolean
     472    End Function
     473
     474    Function ShowCaret() As Boolean
     475        Return _System_ShowCaret(hwnd) As Boolean
     476    End Function
     477
     478    Function ShowScrollBar(bar As DWord, show As Boolean) As Boolean
     479        Return ShowScrollBar(hwnd, bar, show) As Boolean
     480    End Function
     481
     482    Function ShowScrollBar(bar As DWord) As Boolean
     483        Return ShowScrollBar(hwnd, bar, TRUE) As Boolean
     484    End Function
     485
     486    Function Show(cmdShow As DWord) As Boolean
     487        Return ShowWindow(hwnd, cmdShow) As Boolean
     488    End Function
     489
     490    Function ShowAsync(cmdShow As DWord) As Boolean
     491        Return ShowWindowAsync(hwnd, cmdShow) As Boolean
     492    End Function
     493
     494    Function Update() As Boolean
     495        Return UpdateWindow(hwnd) As Boolean
     496    End Function
     497
     498    Function ValidateRect(ByRef rc As RECT) As Boolean
     499        Return _System_ValidateRect(hwnd, rc) As Boolean
     500    End Function
     501
     502    Function ValidateRgn(hrgn As HRGN) As Boolean
     503        Return _System_ValidateRgn(hwnd, hrgn) As Boolean
     504    End Function
     505
     506    Function Validate() As Boolean
     507        Return _System_ValidateRect(hwnd, ByVal 0) As Boolean
    508508    End Function
    509509
    … …  
    556556    Sub ClientRect(ByRef rc As RECT)
    557557        Dim hasMenu As BOOL
    558         If IsChild() = FALSE And IsMenu() <> FALSE Then
     558        If IsChild() = False And IsMenu() <> False Then
    559559            hasMenu = TRUE
    560560        Else
    561561            hasMenu = FALSE
    562         EndIf
     562        End If
    563563        AdjustWindowRectEx(rc, GetStyle(), hasMenu, GetExStyle())
    564564        MoveWindow(rc) ' WindowRect = rc
    … …  
    612612    End Sub
    613613
    614     Const Function Enabled() As BOOL
    615         Return IsWindowEnabled(hwnd)
    616     End Function
    617 
    618     Sub Enabled(enable As BOOL)
     614    Const Function Enabled() As Boolean
     615        Return IsWindowEnabled(hwnd) As Boolean
     616    End Function
     617
     618    Sub Enabled(enable As Boolean)
    619619        EnableWindow(hwnd, enable)
    620620    End Sub
    … …  
    628628    End Sub
    629629
    630     Const Function Maximized() As BOOL
    631         Return IsIconic(hwnd)
    632     End Function
    633 
    634     Sub Maximized(maximized As BOOL)
    635         If maximized <> FALSE Then
     630    Const Function Maximized() As Boolean
     631        Return IsIconic(hwnd) As Boolean
     632    End Function
     633
     634    Sub Maximized(maximized As Boolean)
     635        If maximized <> False Then
    636636            ShowWindow(hwnd, SW_SHOWMAXIMIZED)
    637637        Else
    … …  
    640640    End Sub
    641641
    642     Const Function Minimized() As BOOL
    643         Return IsIconic(hwnd)
    644     End Function
    645 
    646     Sub Minimized(minimized As BOOL)
    647         If minimized <> FALSE Then
     642    Const Function Minimized() As Boolean
     643        Return IsIconic(hwnd) As Boolean
     644    End Function
     645
     646    Sub Minimized(minimized As Boolean)
     647        If minimized <> False Then
    648648            CloseWindow(hwnd)
    649649        Else
    … …  
    705705    End Sub
    706706
    707     Const Function Visible() As BOOL
    708         Return IsVisible(hwnd)
    709     End Function
    710 
    711     Sub Visible(visible As BOOL)
    712         If visible <> FALSE Then
     707    Const Function Visible() As Boolean
     708        Return IsVisible(hwnd) As Boolean
     709    End Function
     710
     711    Sub Visible(visible As Boolean)
     712        If visible <> False Then
    713713            ShowWindow(hwnd, SW_SHOW)
    714714        Else
Note: See TracChangeset for help on using the changeset viewer.