Changeset 473 for trunk/Include/Classes/ActiveBasic/Windows/WindowHandle.sbp

Timestamp:

Mar 12, 2008, 9:54:46 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

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

File:

• trunk/Include/Classes/ActiveBasic/Windows/WindowHandle.sbp (modified) (2 diffs)

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

@@ -586 +586 @@
 
     Const Function ClientRect() As RECT
-        Dim rc As RECT
-        _System_GetClientRect(hwnd, rc)
-        Return rc
+        _System_GetClientRect(hwnd, ClientRect)
     End Function
 #ifdef _UNDEF
@@ -603 +601 @@
 #endif
     Const Function WindowRect() As RECT
-        Dim rc As RECT
-        _System_GetWindowRect(hwnd, rc)
-        Return rc
+        _System_GetWindowRect(hwnd, WindowRect)
     End Function