* // Use: * // WaitWindows ("This is a prompt") * // can be repeatedly called, such as WaitWindows ("This is prompt 1"), WaitWindows ("This is a prompt 2")
* // Clear: * // WaitWindows ()
* // ---------------------------- * // Determine window * // ------ ---------------------- Function WaitwindowsParameters PP_INFO
IF EMPTY (PP_INFO) RELEASE SYS_MESSAGE_WAIT RETURNENDIF
Public LP_INIFOLP_INFO = PP_INFO
Public Sys_Message_Waitsys_Message_Wait = CreateObject ("Mess_Form") SYS_MESSAGE_WAIT.SHOW ()
INKEY (0.1, "h") Return ************************************************** ********* DEFINE Class Mess_Form As Form Height = 64 width = 480 docreate = .t. Caption = "" "ControlBox = .f. Closable = .f. Fontsize = 11 maxbutton = .f. Minbutton =. F. Movable = .f. BorderStyle = 2 Backcolor = RGB (255, 255, 240) Name = "mess_form"
Add Object Cona Container with; TOP = 0,; Width = 480,; Height = 64,; Specialeffect = 1,; BackColor = RGB (255, 255, 240),; Name = "con"
Add Object Image1 as Image with; backstyle = 0, Height = 39,; Left = 31,; TOP = 14,; width = 47,; Name = "image1"
Add Object Label1 as label with; autosize = .t.,; Fontsize = 11,; backstyle = 0,; bordersty = 0,; caption = ",; height = 19,; left = 104,; TOP = 24, Width = 322,; Name = "label1"
