Changeset 711


Ignore:
Timestamp:
Sep 27, 2009, 8:01:12 PM (11 years ago)
Author:
イグトランス (egtra)
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.ab

    r698 r711  
    292292        AddMessageEvent(WM_MOUSEHOVER, AddressOf(OnMouseHoverBase))
    293293        AddMessageEvent(WM_PAINT, AddressOf(OnPaintBase))
     294        AddMessageEvent(WM_PAINTCLIENT, AddressOf(OnPaintClientBase))
    294295        AddMessageEvent(WM_KEYDOWN, AddressOf(OnKeyDownBase))
    295296        AddMessageEvent(WM_CHAR, AddressOf(OnChar))
     
    358359                EndPaint(hwnd, ps)
    359360            End Try
     361        End If
     362    End Sub
     363
     364    Sub OnPaintClientBase(sender As Object, e As MessageArgs)
     365        If ActiveBasic.IsNothing(paintDC) Then
     366            e.Handled = False
     367        Else
     368            OnPaintDC(New PaintDCArgs(e.WParam As HDC, ClientRect))
    360369        End If
    361370    End Sub
Note: See TracChangeset for help on using the changeset viewer.