Ignore:
Timestamp:
Mar 12, 2008, 9:54:46 PM (17 years ago)
Author:
イグトランス (egtra)
Message:

実験として書いていたControlクラスを追加（せめてコミット前に既存のContorolに混ぜようとしたがコンパイルできなかった）。
ほかForms, Drawing及びGDI+の修正。

Location:
trunk/Include/Classes/ActiveBasic/Windows
Files:
7 added
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Include/Classes/ActiveBasic/Windows/WindowHandle.sbp

    r303 r473  
    586586
    587587    Const Function ClientRect() As RECT
    588         Dim rc As RECT
    589         _System_GetClientRect(hwnd, rc)
    590         Return rc
     588        _System_GetClientRect(hwnd, ClientRect)
    591589    End Function
    592590#ifdef _UNDEF
    … …  
    603601#endif
    604602    Const Function WindowRect() As RECT
    605         Dim rc As RECT
    606         _System_GetWindowRect(hwnd, rc)
    607         Return rc
     603        _System_GetWindowRect(hwnd, WindowRect)
    608604    End Function
    609605
Note: See TracChangeset for help on using the changeset viewer.