63 lines
1.6 KiB
Plaintext
63 lines
1.6 KiB
Plaintext
Function NDW_TEST_EVENTS(CtrlEntId, Event, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8, Param9, Param10, Param11, Param12, Param13, Param14, Param15)
|
|
|
|
/********************************************************************************************************
|
|
|
|
This program is proprietary and is not to be used by or disclosed to others, nor is it to
|
|
be copied without written permission from SRP Computer Solutions, Inc.
|
|
|
|
Name : NDW Wait Events
|
|
|
|
Description :
|
|
|
|
Tags : [SRP]
|
|
|
|
Parameters :
|
|
|
|
History (Date, Initials, Notes)
|
|
02/18/2006 fjt Initial development
|
|
|
|
********************************************************************************************************/
|
|
|
|
$insert SRP_APP_INSERTS
|
|
$insert SRP_EVENT_SETUP
|
|
|
|
Equ Metrics$ to 26:@FM:20:@FM:3:@FM:3:@FM:4:@FM:4
|
|
|
|
Declare function SVC_Ext_Summary_Popup, Get_lParam
|
|
Declare subroutine SRP_Show_Window
|
|
|
|
Begin Case
|
|
|
|
Case Event EQ "CLICK"
|
|
Begin Case
|
|
Case Control EQ "PUB_SHOW_POP" ; GoSub Click.PUB_SHOW_POP
|
|
End Case
|
|
|
|
Case Control EQ Window
|
|
Begin Case
|
|
Case Event EQ "CREATE" ; GoSub Window.CREATE
|
|
End Case
|
|
|
|
End Case
|
|
|
|
If Assigned(Ans) else Ans = 1
|
|
Return Ans
|
|
|
|
|
|
!----- EVENTS -----------------------------------------------------------------------------------------
|
|
|
|
|
|
Click.PUB_SHOW_POP:
|
|
*debug
|
|
lParam = Get_lParam(CtrlEntID, Point, Point.W)
|
|
|
|
rv = SVC_Ext_Summary_Popup("Show", "", Point.W)
|
|
return
|
|
|
|
|
|
Window.CREATE:
|
|
rv = SVC_Ext_Summary_Popup("Init")
|
|
SRP_Show_Window(@Window, Parent, "C", "C", 1, Metrics$, Yes$)
|
|
return
|
|
|