Changeset 637 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/WindowHandle.sbp

Timestamp:

Sep 29, 2008, 1:02:27 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

Button.OnClickの仕組みを汎用的（WM_COMMAND全般）に。WndProcなどをProtectedへ。

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/WindowHandle.sbp (modified) (4 diffs)

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

@@ -308 +308 @@
     End Function
 */
-    Function Move(x As Long, y As Long, width As Long, height As Long, repaint As Boolean) As Boolean
+    Function Move(x As Long, y As Long, width As Long, height As Long, repaint = True As Boolean) As Boolean
         Return MoveWindow(hwnd, x, y, width, height, repaint) As Boolean
     End Function
 
-    Function Move(x As Long, y As Long, width As Long, height As Long) As Boolean
-        Return MoveWindow(hwnd, x, y, width, height, TRUE) As Boolean
-    End Function
-
-    Function Move(ByRef rc As RECT, repaint As Boolean) As Boolean
+    Function Move(ByRef rc As RECT, repaint = True As Boolean) As Boolean
         With rc
             Return MoveWindow(hwnd, .left, .top, .right - .left, .bottom - .top, repaint) As Boolean
@@ -322 +318 @@
     End Function
 
-    Function Move(ByRef rc As RECT) As Boolean
-        With rc
-            Return MoveWindow(hwnd, .left, .top, .right - .left, .bottom - .top, TRUE) As Boolean
-        End With
-    End Function
 /*
     Function OpenClipboard() As Boolean
@@ -586 +577 @@
 
     Const Function Maximized() As Boolean
-        Return IsIconic() As Boolean
+        Return IsZoomed(hwnd) As Boolean
     End Function
 
@@ -668 +659 @@
         sb.Length = size
         Dim length = GetWindowText(hwnd, StrPtr(sb), size)
+        sb.Length(length)
         Text = sb.ToString
     End Function