Function NDW_WAIT_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)
		04/11/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 subroutine SRP_Show_Window

Begin 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  -----------------------------------------------------------------------------------------


Window.CREATE:
	Ctrl = @Window:".OLE_STATUS"
	Set_Property(Ctrl, "OLE.PaneCount",		 1)
	Set_Property(Ctrl, "OLE.Resizable",		 No$)
	Set_Property(Ctrl, "OLE.PaneBorder[1]",  No$)
	Set_Property(Ctrl, "OLE.PaneType[1]",    "Progress Caption")
	Set_Property(Ctrl, "OLE.PaneColors[1]",	 @VM:Black$:@FM:"XP":@FM:Black$:@FM:"XP")
	Set_Property(Ctrl, "OLE.PaneCaption[1]", "")
	
	Parent = Param1<3>
	If Parent EQ "" then Parent = "SYSTEM"
	
	If Param1 GT "" then
		Title = Param1<1>
		Text  = Param1<2>
		Pct   = Param1<4>
    end else
		Title = "IR / EPI"
		Text  = "Please wait..."
		Pct   = "100"
	end

    If Pct EQ "" then Pct = "100"
    Set_Property(Ctrl, "OLE.PanePercent[1]", Pct)
	Set_Property(@Window, "TEXT", Title)
	Set_Property(@Window:".STA_TEXT", "TEXT", Text)
	SRP_Show_Window(@Window, Parent, "C", "C", 1, Metrics$, Yes$)
return

