78 lines
1.7 KiB
Plaintext
78 lines
1.7 KiB
Plaintext
Function SRP_WAIT(Method, Params)
|
|
|
|
/********************************************************************************************************
|
|
|
|
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 :
|
|
|
|
Description :
|
|
|
|
Notes :
|
|
|
|
Parameters :
|
|
|
|
History (Date, Initials, Notes)
|
|
02/05/2007 fjt Initial development
|
|
|
|
********************************************************************************************************/
|
|
|
|
$insert SRP_APP_INSERTS
|
|
$insert SRP_OBJ_INSERTS
|
|
|
|
Declare function Create_Dialog
|
|
|
|
Begin Case
|
|
Case Method _EQC "Init" ; Gosub Init
|
|
Case Method _EQC "Update" ; GoSub Update
|
|
Case Method _EQC "Term" ; GoSub Term
|
|
End Case
|
|
|
|
If Assigned(Ans) else Ans = ""
|
|
Return Ans
|
|
|
|
|
|
!----- METHODS ------------------------------------------------------------------------------------------
|
|
|
|
|
|
Init:
|
|
Transfer Param1 to Title
|
|
Transfer Param2 to Text
|
|
Transfer Param3 to Win
|
|
Transfer Param4 to Pct
|
|
|
|
Ans = Create_Dialog("NDW_WAIT", @Window, Yes$, Title:@FM:Text:@FM:Win:@FM:Pct)
|
|
return
|
|
|
|
|
|
Update:
|
|
Transfer Param1 to Win
|
|
Transfer Param2 to Pct
|
|
Transfer Param3 to Text
|
|
|
|
Text.C = Param4
|
|
StatusBar = Win:".OLE_STATUS"
|
|
Static = Win:".STA_TEXT"
|
|
|
|
// Pane percent
|
|
If Pct GT "" then
|
|
If Index(Pct, ".", 1) then Pct = Iconv(Pct, "MD2")
|
|
Set_Property(StatusBar, "OLE.PanePercent[1]", Pct)
|
|
end
|
|
|
|
// Pane caption
|
|
Set_Property(StatusBar, "OLE.PaneCaption[1]", Text.C)
|
|
|
|
// Text within the group box
|
|
If Text GT "" then
|
|
Set_Property(Static, "TEXT", Text)
|
|
end
|
|
return
|
|
|
|
|
|
Term:
|
|
End_Dialog(Param1)
|
|
return
|
|
|