source: trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/ControlEvent.sbp@ 559

Public
    Sub AddPaintDC(h As PaintDCHandler)
        If IsNothing(paintDC) Then
            paintDC = h
        Else
            paintDC += h
        End If
    End Sub
    Sub RemovePaintDC(h As PaintDCHandler)
        If Not IsNothing(paintDC) Then
            paintDC -= h
        End If
    End Sub
Protected
    Sub OnPaintDC(e As PaintDCArgs)
        If Not IsNothing(paintDC) Then
            paintDC(This, e)
        End If
    End Sub
Private
    paintDC As PaintDCHandler

Public
    Sub AddClick(h As Handler)
        If IsNothing(click) Then
            click = h
        Else
            click += h
        End If
    End Sub
    Sub RemoveClick(h As Handler)
        If Not IsNothing(click) Then
            click -= h
        End If
    End Sub
Protected
    Sub OnClick(e As Args)
        If Not IsNothing(click) Then
            click(This, e)
        End If
    End Sub
Private
    click As Handler

Public
    Sub AddDoubleClick(h As Handler)
        If IsNothing(doubleClick) Then
            doubleClick = h
        Else
            doubleClick += h
        End If
    End Sub
    Sub RemoveDoubleClick(h As Handler)
        If Not IsNothing(doubleClick) Then
            doubleClick -= h
        End If
    End Sub
Protected
    Sub OnDoubleClick(e As Args)
        If Not IsNothing(doubleClick) Then
            doubleClick(This, e)
        End If
    End Sub
Private
    doubleClick As Handler

Public
    Sub AddMove(h As Handler)
        If IsNothing(move) Then
            move = h
        Else
            move += h
        End If
    End Sub
    Sub RemoveMove(h As Handler)
        If Not IsNothing(move) Then
            move -= h
        End If
    End Sub
Protected
    Sub OnMove(e As Args)
        If Not IsNothing(move) Then
            move(This, e)
        End If
    End Sub
Private
    move As Handler

Public
    Sub AddMouseEnter(h As MouseHandler)
        If IsNothing(mouseEnter) Then
            mouseEnter = h
        Else
            mouseEnter += h
        End If
    End Sub
    Sub RemoveMouseEnter(h As MouseHandler)
        If Not IsNothing(mouseEnter) Then
            mouseEnter -= h
        End If
    End Sub
Protected
    Sub OnMouseEnter(e As MouseArgs)
        If Not IsNothing(mouseEnter) Then
            mouseEnter(This, e)
        End If
    End Sub
Private
    mouseEnter As MouseHandler

Public
    Sub AddMouseMove(h As MouseHandler)
        If IsNothing(mouseMove) Then
            mouseMove = h
        Else
            mouseMove += h
        End If
    End Sub
    Sub RemoveMouseMove(h As MouseHandler)
        If Not IsNothing(mouseMove) Then
            mouseMove -= h
        End If
    End Sub
Protected
    Sub OnMouseMove(e As MouseArgs)
        If Not IsNothing(mouseMove) Then
            mouseMove(This, e)
        End If
    End Sub
Private
    mouseMove As MouseHandler

Public
    Sub AddMouseHover(h As MouseHandler)
        If IsNothing(mouseHover) Then
            mouseHover = h
        Else
            mouseHover += h
        End If
    End Sub
    Sub RemoveMouseHover(h As MouseHandler)
        If Not IsNothing(mouseHover) Then
            mouseHover -= h
        End If
    End Sub
Protected
    Sub OnMouseHover(e As MouseArgs)
        If Not IsNothing(mouseHover) Then
            mouseHover(This, e)
        End If
    End Sub
Private
    mouseHover As MouseHandler

Public
    Sub AddMouseLeave(h As MouseHandler)
        If IsNothing(mouseLeave) Then
            mouseLeave = h
        Else
            mouseLeave += h
        End If
    End Sub
    Sub RemoveMouseLeave(h As MouseHandler)
        If Not IsNothing(mouseLeave) Then
            mouseLeave -= h
        End If
    End Sub
Protected
    Sub OnMouseLeave(e As MouseArgs)
        If Not IsNothing(mouseLeave) Then
            mouseLeave(This, e)
        End If
    End Sub
Private
    mouseLeave As MouseHandler

Public
    Sub AddMouseDown(h As MouseHandler)
        If IsNothing(mouseDown) Then
            mouseDown = h
        Else
            mouseDown += h
        End If
    End Sub
    Sub RemoveMouseDown(h As MouseHandler)
        If Not IsNothing(mouseDown) Then
            mouseDown -= h
        End If
    End Sub
Protected
    Sub OnMouseDown(e As MouseArgs)
        If Not IsNothing(mouseDown) Then
            mouseDown(This, e)
        End If
    End Sub
Private
    mouseDown As MouseHandler

Public
    Sub AddMouseClick(h As MouseHandler)
        If IsNothing(mouseClick) Then
            mouseClick = h
        Else
            mouseClick += h
        End If
    End Sub
    Sub RemoveMouseClick(h As MouseHandler)
        If Not IsNothing(mouseClick) Then
            mouseClick -= h
        End If
    End Sub
Protected
    Sub OnMouseClick(e As MouseArgs)
        If Not IsNothing(mouseClick) Then
            mouseClick(This, e)
        End If
    End Sub
Private
    mouseClick As MouseHandler

Public
    Sub AddMouseDoubleClick(h As MouseHandler)
        If IsNothing(mouseDoubleClick) Then
            mouseDoubleClick = h
        Else
            mouseDoubleClick += h
        End If
    End Sub
    Sub RemoveMouseDoubleClick(h As MouseHandler)
        If Not IsNothing(mouseDoubleClick) Then
            mouseDoubleClick -= h
        End If
    End Sub
Protected
    Sub OnMouseDoubleClick(e As MouseArgs)
        If Not IsNothing(mouseDoubleClick) Then
            mouseDoubleClick(This, e)
        End If
    End Sub
Private
    mouseDoubleClick As MouseHandler

Public
    Sub AddMouseUp(h As MouseHandler)
        If IsNothing(mouseUp) Then
            mouseUp = h
        Else
            mouseUp += h
        End If
    End Sub
    Sub RemoveMouseUp(h As MouseHandler)
        If Not IsNothing(mouseUp) Then
            mouseUp -= h
        End If
    End Sub
Protected
    Sub OnMouseUp(e As MouseArgs)
        If Not IsNothing(mouseUp) Then
            mouseUp(This, e)
        End If
    End Sub
Private
    mouseUp As MouseHandler

Public
    Sub AddKeyDown(h As KeyHandler)
        If IsNothing(keyDown) Then
            keyDown = h
        Else
            keyDown += h
        End If
    End Sub
    Sub RemoveKeyDown(h As KeyHandler)
        If Not IsNothing(keyDown) Then
            keyDown -= h
        End If
    End Sub
Protected
    Sub OnKeyDown(e As KeyArgs)
        If Not IsNothing(keyDown) Then
            keyDown(This, e)
        End If
    End Sub
Private
    keyDown As KeyHandler

Public
    Sub AddKeyUp(h As KeyHandler)
        If IsNothing(keyUp) Then
            keyUp = h
        Else
            keyUp += h
        End If
    End Sub
    Sub RemoveKeyUp(h As KeyHandler)
        If Not IsNothing(keyUp) Then
            keyUp -= h
        End If
    End Sub
Protected
    Sub OnKeyUp(e As KeyArgs)
        If Not IsNothing(keyUp) Then
            keyUp(This, e)
        End If
    End Sub
Private
    keyUp As KeyHandler

Public
    Sub AddKeyPress(h As KeyPressHandler)
        If IsNothing(keyPress) Then
            keyPress = h
        Else
            keyPress += h
        End If
    End Sub
    Sub RemoveKeyPress(h As KeyPressHandler)
        If Not IsNothing(keyPress) Then
            keyPress -= h
        End If
    End Sub
Protected
    Sub OnKeyPress(e As KeyPressArgs)
        If Not IsNothing(keyPress) Then
            keyPress(This, e)
        End If
    End Sub
Private
    keyPress As KeyPressHandler

Public
    Sub AddCreate(h As CreateHandler)
        If IsNothing(create) Then
            create = h
        Else
            create += h
        End If
    End Sub
    Sub RemoveCreate(h As CreateHandler)
        If Not IsNothing(create) Then
            create -= h
        End If
    End Sub
Protected
    Sub OnCreate(e As CreateArgs)
        If Not IsNothing(create) Then
            create(This, e)
        End If
    End Sub
Private
    create As CreateHandler

Public
    Sub AddDestroy(h As Handler)
        If IsNothing(destroy) Then
            destroy = h
        Else
            destroy += h
        End If
    End Sub
    Sub RemoveDestroy(h As Handler)
        If Not IsNothing(destroy) Then
            destroy -= h
        End If
    End Sub
Protected
    Sub OnDestroy(e As Args)
        If Not IsNothing(destroy) Then
            destroy(This, e)
        End If
    End Sub
Private
    destroy As Handler