73 lines
2.0 KiB
Plaintext
73 lines
2.0 KiB
Plaintext
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
|
|
|