Wait for prompt window

*//use:
*//Waitwindows ("This is a hint")
*//can be called repeatedly, such as waitwindows ("This is hint 1"), Waitwindows ("This is Tip 2")

*//clear:
*//Waitwindows ()


*//------------------------------
*//to the window
*//------------------------------
FUNCTION waitwindows
PARAMETERS Pp_info

IF EMPTY (Pp_info)
Release sys_message_wait
Return
ENDIF

Public Lp_inifo
Lp_info = Pp_info

Public sys_message_wait
Sys_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 con as container with;
top = 0,;
left = 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,;
BorderStyle = 0,;
Caption = "",;
Height = 19,;
left = 104,;
top = 24,;
Width = 322,;
Name = "Label1"

PROCEDURE Init
Lc_info = "Hint info!"
IF! EMPTY (Lp_info)
Lc_info = Lp_info
ENDIF
Thisform. CON. WIDTH = Thisform. TEXTWIDTH (Lc_info) +140
Thisform. WIDTH = Thisform. TEXTWIDTH (Lc_info) +140
Thisform. AUTOCENTER =. T.
Thisform. LABEL1. CAPTION = Lc_info
Thisform. IMAGE1. Picture = ' Wait. BMP "
Thisform. REFRESH ()
Endproc
Enddefine