78 lines
2.3 KiB
Plaintext
78 lines
2.3 KiB
Plaintext
Function PE_CREATE(CtrlEntId,CtrlClassId,CreateParam)
|
|
/* -------------------------------------------------------------------------------------------------------------------------
|
|
Author : Automated Promoted Event Generator
|
|
Date : 28/10/2020
|
|
Purpose : Auto Generated Promoted event code for CREATE
|
|
|
|
Modification Info:
|
|
-------------------------------------------------------------------------------------------------------------------------
|
|
Date Who Notes
|
|
-------------------------------------------------------------------------------------------------------------------------
|
|
|
|
Parameters:
|
|
-------------------------------------------------------------------------------------------------------------------------
|
|
CtrlEntId - The name of the control to process
|
|
Event - The Event To process
|
|
Param1 ~ Param6 - Extra data depending On the control And event called.
|
|
|
|
Returns:
|
|
-------------------------------------------------------------------------------------------------------------------------
|
|
ReturnVal - True = processing successful
|
|
- False = processing failed
|
|
-------------------------------------------------------------------------------------------------------------------------*/
|
|
|
|
Declare Function Get_Property, Set_Property, Get_EventStatus
|
|
Declare Subroutine Forward_Event
|
|
|
|
$Insert Logical
|
|
|
|
Window = CtrlEntId[1,'.']
|
|
Ctrl = CtrlEntId[-1,'.']
|
|
ReturnVal = 1
|
|
|
|
|
|
Gosub PreEvent
|
|
Gosub SystemEvent
|
|
Gosub PostEvent
|
|
|
|
Return ReturnVal
|
|
|
|
*********************************************
|
|
* Internal Subroutines
|
|
*********************************************
|
|
|
|
*----------
|
|
PreEvent:
|
|
*----------
|
|
/* Pre Event Processing
|
|
Code added here will be performed before the system event */
|
|
|
|
Return
|
|
|
|
*----------
|
|
SystemEvent:
|
|
*----------
|
|
/* System Event Processing
|
|
Control is now passed on to the system default processing. */
|
|
|
|
Forward_Event(CreateParam)
|
|
|
|
Return
|
|
|
|
*----------
|
|
PostEvent:
|
|
*----------
|
|
/* Post Event Processing
|
|
Code added here will be performed after the system event */
|
|
|
|
* Check the event status after the system event processing
|
|
If Get_EventStatus(EventCode) Then
|
|
* An error occured in the system event processing
|
|
|
|
End Else
|
|
* No error, continue post processing
|
|
|
|
End
|
|
Return
|
|
End
|