Changeset 711 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.ab

Timestamp:

2009/09/27 20:01:12 (3 years ago)

Author:

egtra

Message:

WM_PAINTCLIENTもOnPaintDCで処理されるよう変更

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.ab (modified) (2 diffs)

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

@@ -292 +292 @@
         AddMessageEvent(WM_MOUSEHOVER, AddressOf(OnMouseHoverBase))
         AddMessageEvent(WM_PAINT, AddressOf(OnPaintBase))
+        AddMessageEvent(WM_PAINTCLIENT, AddressOf(OnPaintClientBase))
         AddMessageEvent(WM_KEYDOWN, AddressOf(OnKeyDownBase))
         AddMessageEvent(WM_CHAR, AddressOf(OnChar)) 
@@ -358 +359 @@
                 EndPaint(hwnd, ps)
             End Try
+        End If
+    End Sub
+
+    Sub OnPaintClientBase(sender As Object, e As MessageArgs)
+        If ActiveBasic.IsNothing(paintDC) Then
+            e.Handled = False
+        Else
+            OnPaintDC(New PaintDCArgs(e.WParam As HDC, ClientRect))
         End If
     End Sub