Adding pop-up menu’s to 4D Agenda
There are two places in the 4D Agenda area where you can add a pop-up menu:
1 When the user control-clicks on an event tab
2 When the user control-clicks in an empty area within the 4D Agenda area
Both pop-up menus are created via the AG AGENDA EVENT HANDLER callback method.
The pop-up for the “user control-clicks on an event tab” is defined after the AG_MouseClickInEvent and the “user control-clicks in an empty area within the 4D Agenda area” is defined after the AG_MouseClickInAgenda event.
Example:
Method: AG_EventHandler
`$1 - The event that occurred in the 4D Agenda area
`$2 - The ID of the event tab, if available, otherwise 0
`$3 – The date location of the event
`$4 – The time location of the event
C_INTEGER ( $1 )
C_LONGINT ( $2 )
C_DATE ( $3 )
C_TIME ( $4 )
Case of
: ($1=AG_MouseClickInAgenda )
AG_DoPopUpInAgenda
: ($1=AG_MouseClickInEvent )
AG_DoPopUpInEvent
: ($1=AG_MouseDoubleClickInAgenda )
` Create a new event
: ($1=AG_MouseDoubleClickInEvent )
` Display a dialog box with the event info
: ($1=AG_MouseDragInAgenda )
: ($1=AG_MouseDragInEvent )
End case
Method for AG_DoPopUpInAgenda:
Method: AG_DoPopUpInAgenda
GET MOUSE ($vlMouseX;$vlMouseY;$vlButton)
If (Macintosh control down |($vlButton=2))
$vtItems:="4D Agenda options...<I;(-;!-Add event…;"
$vlUserChoice:= Pop up menu ($vtItems)
Case of
: ($vlUserChoice=1)
` Do agenda options
: ($vlUserChoice=2)
` Add an event
End case
End if
|