- Code: Select all Expand view
cCaption:= "Cargando información de la Planilla "+ALLTRIM(STR(oDbf:numero))
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0,-14 bold
DEFINE DIALOG oDlg RESOURCE "MSGWAIT"
REDEFINE SAY oSay PROMPT cCaption ID 101 FONT oFont UPDATE //
ACTIVATE DIALOG oDlg NOWAIT
..... otro codigo
oDlg:End()
oFont:End()
el .rc
- Code: Select all Expand view
MSGWAIT DIALOG DISCARDABLE 34, 33, 342, 15
STYLE WS_CHILD|DS_3DLOOK|DS_CENTER|WS_CAPTION|WS_VISIBLE
CAPTION "Espere, por favor..."
CLASS "bordlg"
FONT 12, "MS Sans Serif"
BEGIN
CONTROL "Text", 101, "Static", SS_CENTER|WS_GROUP, 3, 3, 336, 8
END
salu2.