Syntax

GefEventContext = CimGetEventContext ( )

Description

Returns the GefEventContext Automation object representing the event that caused this script to run.

Status

The extension can be used.

Example

Dim ev As GefObjectModel.GefEventContext

Dim x As Long

Dim y As Long

Dim flags As Long

Set ev = CimGetEventContext()

If ev.GetMouseEvent(x, y, flags) Then

 'Center Object on mouse coordinates

 x = x - ev.TriggerObject.Width / 2

 y = y + ev.TriggerObject.Height / 2

 ev.TriggerObject.Left = x

 ev.TriggerObject.Top = y

 ev.Parent.Refresh False

End If

Basic Extensions.