Desplegar oDlg:Say() en DIALOGO

[noe aburto]

Saludote.

Con una enorme duda sin saber que pasa... siguiente codigo

Code: Select all  Expand view

DEFINE DIALOG oDlg FROM 5, 5 TO 13, 45 TITLE cTitle FONT oFont
@ 1.5,0.5  METER oMeter VAR nVal TOTAL 10 SIZE 150, 10 OF oDlg
@ 2.5,10.5 SBUTTON oBtn PROMPT "&Cancelar" RESOURCE 'GOSEMR' OF oDlg ;
           ACTION ( lEnd:= .t., lCancel:= .t. ) SIZE 34, 11;
           XP NOBOXTR COLOR COLOR_CANCELA
oDlg:lHelpIcon:=.F.
oDlg:bStart:={||Eval( bAction, oMeter, oText, oDlg, @lEnd, oBtn ),;
                lEnd := .t., oDlg:End()}
ACTIVATE DIALOG oDlg CENTERED VALID lEnd ON INIT oDlg:Say(1,1,cMsg,COLOR_NEGRO,,NIL,.f.)
oFont:End()
 

Porque no me despliega el oDlg:Say()
Inclusive si lo pongo despues de definir el dialogo

Code: Select all  Expand view

DEFINE DIALOG oDlg FROM 5, 5 TO 13, 45 TITLE cTitle FONT oFont
oDlg:Say(1,1,cMsg,COLOR_NEGRO,,NIL,.f.)
@ 1.5,0.5  METER oMeter VAR nVal TOTAL 10 SIZE 150, 10 OF oDlg
@ 2.5,10.5 SBUTTON oBtn PROMPT "&Cancelar" RESOURCE 'GOSEMR' OF oDlg ;
           ACTION ( lEnd:= .t., lCancel:= .t. ) SIZE 34, 11;
           XP NOBOXTR COLOR COLOR_CANCELA
oDlg:lHelpIcon:=.F.
oDlg:bStart:={||Eval( bAction, oMeter, oText, oDlg, @lEnd, oBtn ),;
                lEnd := .t., oDlg:End()}
ACTIVATE DIALOG oDlg CENTERED VALID lEnd
oFont:End()
 

No me despliega el: cMsg = el mensaje a desplegar en el dialogo

Gracias.

[cuatecatl82]

Noe Prueba asi:

Code: Select all  Expand view

LOCAL oDlg,oFont,oSay,oBtn1,oBtn2
LOCAL cTitle:=  "Cambiando Texto"

DEFINE FONT   oFont NAME "TAHOMA" SIZE 0,-14
DEFINE DIALOG oDlg  FROM 5, 5 TO 13, 45 TITLE cTitle FONT oFont

@ 1,1 SAY oSay PROMPT  "Espere un momento..." SIZE 200,20 COLOR CLR_BLUE OF oDlg Pixel

@ 1.5,10.5 BUTTON oBtn1 PROMPT "&Cambiar Texto"  SIZE 50, 11 OF oDlg ACTION (oSay:VarPut("Hola Mundo..."), oSay:Refresh())
@ 1.5,1.5 BUTTON oBtn2 PROMPT "&Salir"  SIZE 20, 11 OF oDlg ACTION (oDlg:END())

           
oDlg:lHelpIcon:=.F.

ACTIVATE DIALOG oDlg CENTERED
oFont:END()
 

Con Varput(cVar) puedes cambiar el contenido del Objeto Say..

Espero te sirva.. Saludos.