topic-32246

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

Desplegar oDlg:Say() en DIALOGO

Posted: Sun Apr 10, 2016 01:48 AM

Saludote.

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

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 (fw): Select all Collapse

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.

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

cuatecatl82

Posts: 625

Joined: Wed Mar 14, 2007 06:49 PM

Re: Desplegar oDlg:Say() en DIALOGO

Posted: Sun Apr 10, 2016 02:33 AM

Noe Prueba asi:

Code (fw): Select all Collapse

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.

Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon

FiveTech Support Forums

Desplegar oDlg:Say() en DIALOGO

Re: Desplegar oDlg:Say() en DIALOGO

Continue the discussion