source: Include/Classes/System/Windows/Forms/Message.ab@ 106

' Classes/System/Windows/Forms/Message.ab

#ifndef __SYSTEM_WINDOWS_FORMS_MESSAGE_AB__
#define __SYSTEM_WINDOWS_FORMS_MESSAGE_AB__

Class Message
Public
    Sub Operator =(ByRef x As Message)
        hwnd = x.hwnd
        msg = x.msg
        wp = x.wp
        lp = x.lp
        lr = x.lr
    End Sub

    /*Const*/ Function HWnd() As HWND
        Return hwnd
    End Function

    Sub HWnd(hw As HWND)
        hwnd = hw
    End Sub

    /*Const*/ Function Msg() As DWord
        Return msg
    End Function

    Sub Msg(m As DWord)
        msg = m
    End Sub

    /*Const*/ Function WParam() As WPARAM
        Return wp
    End Function

    Sub WParam(wParam As WPARAM)
        wp = wParam
    End Sub

    /*Const*/ Function LParam() As LPARAM
        Return lp
    End Function

    Sub LParam(lParam As LPARAM)
        lp = lParam
    End Sub

    /*Const*/ Function Result() As LRESULT
        Return lr
    End Function

    Sub Result(res As LRESULT)
        lr = res
    End Sub

    /*Const*/ Function Equals(x As Message) As BOOL
        Return hwnd = x.hwnd And _
            msg = x.msg And _
            wp = .wp And _
            lp = .lp And _
            lr = .lr
    End Function

    /*Const*/ Function Operator ==(x As Message) As BOOL
        Return Equals(x)
    End Function

    /*Const*/ Function Operator <>(x As Message) As BOOL
        Return Not Equals(x)
    End Function

    Static Function Create(hwnd As HWND, msg As DWord, wp As WPARAM, lp As LPARAM) As Message
        Dim m As Message
        With m
            .hwnd = hwnd
            .msg = msg
            .wp = wp
            .lp = lp
        End With
        Return m
    End Function

Private
    hwnd As HWND
    msg As DWord
    wp As WPARAM
    lp As LPARAM
    lr As LRESULT
End Class

#endif '__SYSTEM_WINDOWS_FORMS_MESSAGE_AB__