New dialogs para VFP

[Cesar VfpImaging]

Hola amigos,

He desarollado una nueva forma de dialogos, que substitui el MESSAGEBOX.

Espero que les guste.

https://vfpimaging.blogspot.com/2020/05/messagebox-using-simple-vista-task.html  

Sample 1:

? NewDialog("Vista Task Dialog", "The main instruction text for the TaskDialog goes here", ;
 "The content text for the task dialog is shown here and the text will automatically wrap as needed." + CHR(13) + CHR(13) + ;
 "Any expanded content text for the task dialog is shown here and the text will automatically wrap as needed." + CHR(13) + CHR(13) + ;
    "Do you like it?", "OK2", ;
 "Yes!,Not really,I dunno")

Sample 2:

? NewDialog("Bad Username or Password", ;
      "Access Denied", ;
      "You have entered the wrong credentials for 3 times." + CHR(13) + CHR(13) + ;
             "Please wait for 30 minutes and try again, otherwise your account may be suspended.", ;
      "Lock", ;
      "Return")

Sample 3:

? NewDialog("Critical error", ;
     "Corrupted Data", ;
     "An unexpected error has occurred and the system needs to be restarted." + ;
         CHR(13) + CHR(13) + "What do you want to do ?", ;
     "X2", ;
     "Restart Now,Restart later,Keep working", ; && Button captions
     2) && Default button

Sample 4: Dialogs using simple timeout, with unicodes - everywhere, titles, contents and even buttons!

? NewDialog("Nice job!  <UC>2661 2665 2764</UC>", ;
    "Success! <UC>d83ddc4d</UC>", ;
    "Your account details have been updated successfully." + ;
    CHR(13) + CHR(13) + "You can proceed with the next step to get your cashback!", ;
    "OK2", ;
    "Ok*,Ok <UC>2714</UC>,Ok <UC>D83DDDF9</UC>", ; && Button captions
    1, ;  && Default button
    9000) && Timeout

Sample 5: Unicodes - Multilanguages

Unicode friendly means endless usages, really very easilly. The dialog below uses several languages from different character sets.
To get the Unicodes, first I used Google translator to translate the word "Welcome". The results were pasted to one among many Unicode translators, like Branah - https://www.branah.com/unicode-converter. Just paste your text and it will provides the unicodes. Make sure to check the "Remove \u", and when pasting, make sure to separate every character with a space. In general, for most languages you'll use 4 characters. For double byte languages, like Chinese, Japanese and Korean, or for some special characters, like the "thumbs up", you'll pass every 8 characters at a time.

? NewDialog("Nice job!  <UC>2661 2665 2764</UC>", ;
    "Success! <UC>d83ddc4d</UC>", ;
    "Your account details have been updated successfully." + ;
    CHR(13) + CHR(13) + "You can proceed with the next step to get your cashback!", ;
    "OK2", ;
    "Ok*,Ok <UC>2714</UC>,Ok <UC>D83DDDF9</UC>", ; && Button captions
    1, ;  && Default button
    9000) && Timeout

Sample 6: Timeout with special caption

? NewDialog("Covid-19 crazy warning - See the timer -->", ;
    "Please stay home!", ;
    " - Clean your hands often." + CHR(13) + ;
    " - Keep a safe distance from anyone who is coughing or sneezing." + CHR(13) + ;
    " - Don’t touch your eyes, nose or mouth." + CHR(13) + ;
    " - Cover your nose and mouth with your bent elbow or a tissue when you cough or sneeze." + CHR(13) + ;
    " - Avoid close contact with people who are sick." + CHR(13) + ;
    " - Stay at home as much as possible." + CHR(13) + ;
    " - Put distance between yourself and other people." + CHR(13) + ;
    " - If you have a fever, cough and difficulty breathing, seek medical attention." + CHR(13), ;
    "!2", ;
    "More Info,I agree,Leave me!", ; && Button captions
    2, ;  && Default button
    "8000,<SECS> secs.") && Timeout

Sample 7: Predefined unicode buttons:
For the basic captions: "Ok, Cancel, Print, Save and Search", add an "*", and the corresponding unicode icon will be added to the button, as below:

? NewDialog("Playing with Unicodes in buttons", ;
    "Predefined buttons", ;
 "There are currently 5 predefined buttons that will add a unicode icon automatically." + CHR(13) + CHR(13) + ;
 "Add an asterisk - '*' after the words below, and the corresponding icons will be added to the buttons:" + CHR(13) + CHR(13) + ;
 "     Ok*        <UC>27f6</UC>     Ok <UC>2713</UC>" + CHR(13) + ;
 "     Cancel*    <UC>27f6</UC>     Cancel <UC>d83dddd9</UC>" + CHR(13) + ;
 "     Print*     <UC>27f6</UC>     Print <UC>2399</UC>" + CHR(13) + ;
 "     Save*      <UC>27f6</UC>     Save <UC>d83dddab</UC>" + CHR(13) + ;
 "     Search*    <UC>27f6</UC>     Search <UC>d83ddd0e</UC>", ;
    "I", ;
    "Ok*,Cancel*,Print*,Save*,Search*")  && Button captions

Saludos,

Cesar

__________________________________________________________________

Por favor, no envíen emails o mensajes privados en los foros solicitando por soporte.

Como obtener soporte para FoxyPreviewer

[Rh Yac]

Aplausos !!!

________________________________

Rene Yacyna
Córdoba - Argentina.
C.P.C.I.P.C.2586
Cel.54 93517032948

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAFp9oeafJ9MPNPHcxAOATPa2M8%2B%3Dfi9Kq%2Bt%3D3eQKFTvhLy%2B%2BUQ%40mail.gmail.com.

[Delvys Israel Rodriguez Quezada]

Te la comiste!!!! super...

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CANBa5Bqn8cyJbHrFsa_MCESjZq_f78k7z%2Ba1VxxKm7Te1FYGFA%40mail.gmail.com.

--

 "Solo la practica de aprendido,nos lleva a la obtención de buenos resultados"

 ******Ing.Delvys Rguez******

*809 427 7721*

[Oscar Bonet]

Muy bueno.y si Gusta.

Atentamente:

Oscar G. Bonet O.

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAFp9oeafJ9MPNPHcxAOATPa2M8%2B%3Dfi9Kq%2Bt%3D3eQKFTvhLy%2B%2BUQ%40mail.gmail.com.

De conformidad con el decreto 2242 de Noviembre de 2015, nuestra Compañía está implementando la Facturación Electrónica y según comunicado  100202211-410 del 29 de Junio de 2018 emitido por la DIAN, se nos fijó el 1 de diciembre de 2018 para la emisión de la factura electrónica.

En consecuencia, hemos destinado la cuenta de correo electrónico: 

e-fac...@cialta.com      para recepción y emisión de facturas electrónicas.

Habeas Data: La Compañía Internacional de Alimentos Agropecuarios CIALTA S.A.S. cumple con los requerimientos de la Superintendencia de Industria y Comercio de Colombia sobre el manejo de información de datos personales, lo cual implica tener políticas claras de tratamiento de Base de Datos que usted puede consultar: Politicas Habeas Data 

Si desea tener más información sobre el particular, puede escribirnos al correo habea...@cialta.com 

[Dsan]

Excelente  Cesar VfpImaging

Te agradezco mucho que comparta tus meritos con el grupo,  igual con lo que nos compartistes hace años aun lo uso el Foxypreviewer, veo que hay una versión 3 en desarrollo.

Saludes

DSanchez

[ZeRoberto]

Excelente gracias por compartir

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

[Irwin Rodriguez]

Que bueno que todavía contamos contigo Cesar! Muchas gracias por el esfuerzo y por compartir!

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAFp9oeafJ9MPNPHcxAOATPa2M8%2B%3Dfi9Kq%2Bt%3D3eQKFTvhLy%2B%2BUQ%40mail.gmail.com.

--

Irwin Rodríguez

ToolDeveloper

"A team is only pieces that you exchange until you finish the work, it is efficient, it works."

[Luis Maria Guayan]

Muy bueno Cesar, lo probaré, tienen muy buena pinta.

Saludos,

-- 

Luis María Guayán
Tucumán, Argentina
_______________________________

Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

[Esteban H]

Hola Cesar.

Muchas gracias!!! A probarlos.

 

Saludos

Esteban

--

[LUIS AGUADO]

Como estás Cesar.

Me gustó esos Messagebox, Gracias por el aporte una vez más.

Saludos al Grupo!

[Zarlu]

Buenos días !

Muchas gracias!

zarlu

Chetumal, Quintana Roo, México

[Zarlu]

Buenos días Maestro César !

El código de los ejemplos 4 y 5 son iguales por lo que la imagen del ejemplo 5 no corresponde al código.

Gracias

[Wagner Cevallos]

Muy buen trabajo, a ponerlo en práctica

[Walter Cordova]

Muy agradecido, estimado Cesar...

Saludos

Walter Cordova

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/!%26!AAAAAAAAAAAYAAAAAAAAAC5kKwmEVotDoQJNxhTfe5XCgAAAEAAAACZK0d3fS3pLqQvtU7Hu4hsBAAAAAA%3D%3D%40yahoo.com.ar.

[José Medina]

Buenos días,

Por favor, me ha salidos el mensaje "Cannon find entry point  TaskDialog in the DLL"

Incluí en prg en mi proyecto pero cada vez que ejecuto la función NewDialog() aparece el mismo error.

Gracias por la respuesta.

[Zarlu]

Buenos días José Medina!

Crea que debes revisas que tengas comctl32.dll  en tu pc y que esté registrada.

Igual y se daño

Suerte

[Irwin Rodriguez]

Qué versión de Windows tienes? La función TaskDialog solo está disponible a partir de Windows Vista o Windows Server 2008.

Saludos!

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/f9f3e4f5-fe4e-4186-8a6b-3cb03222cf62%40googlegroups.com.

[José Medina]

Gracias amigos por responder, tengo windows 10 Pro, Visual Fox Pro 9 SP2.

Saludos.

El domingo, 17 de mayo de 2020, 18:11:41 (UTC-5), Cesar VfpImaging escribió:

[Julian Garcia]

Muy buenos diálogos, Maestro

Gracias por compartir

Saludos

Julián García

[Zen Tes]

very Good !!!

El domingo, 17 de mayo de 2020, 18:11:41 (UTC-5), Cesar VfpImaging escribió:

[Kisko]

Tiene muy buena pinta! Lo probaré.

Gracias Cesar.

Saludos.

Francisco Lorente.

Murcia. España

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/c11d545f-bb65-40ae-877d-d2fffe5a01ac%40googlegroups.com.

[Conrado]

Excelente! Muchas gracias por el aporte!

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAFp9oeafJ9MPNPHcxAOATPa2M8%2B%3Dfi9Kq%2Bt%3D3eQKFTvhLy%2B%2BUQ%40mail.gmail.com.

[Francisco Lorente]

Lo acabo de probar y me fallan los botones. La instrucción:

? NewDialog('Primero', 'Aviso', 'Texto del mensaje.', 'Ok2', 'Yes,No,Cancel')

Me genera la imagen Captura1.png

Con el siguiente cambio me funciona bien y me genera la imagen Captura2.png:

Antes de la línea (línea 304 del archivo newdialog-source.prg que me he descargado):

FOR m.N = 1 TO m.lnBtnCount

agrego la instrucción:

m.lnButtonsA = 0
FOR m.N = 1 TO m.lnBtnCount

y en lugar de la instrucción (linea 324 de dicho prg):

m.lnButtonsA   = m.laButtonId(m.N)

coloco el siguiente código:

&&    m.lnButtonsA   = m.laButtonId(m.N)
lcBtnCaption = Lower(lcBtnCaption)
Do Case
    Case lcBtnCaption = 'ok'
        m.lnButtonsA = m.lnButtonsA + TDCBF_OK_BUTTON
    Case lcBtnCaption = 'yes'
        m.lnButtonsA = m.lnButtonsA + TDCBF_YES_BUTTON
    Case lcBtnCaption = 'no'
        m.lnButtonsA = m.lnButtonsA + TDCBF_NO_BUTTON
    Case lcBtnCaption = 'cancel'
        m.lnButtonsA = m.lnButtonsA + TDCBF_CANCEL_BUTTON
    Case lcBtnCaption = 'retry'
        m.lnButtonsA = m.lnButtonsA + TDCBF_RETRY_BUTTON
    OtherWise
        m.lnButtonsA = m.lnButtonsA + TDCBF_CLOSE_BUTTON
EndCase

Espero que el aporte sea útil.

[Francisco Lorente]

Perdón. Adjunto las capturas de pantallas. No se por qué no se ven en el mensaje anterior.

[Zarlu]

Buenas tardes Francisco Lorente!

Tu código:

? NewDialog('Primero', 'Aviso', 'Texto del mensaje.', 'Ok2', 'Yes,No,Cancel')




Me genera la imagen que adjunto. Osea para mi juicio funciona bien

Podrías confirmar tu código. Por favor. Ya que no veo en tus botones los caption "Yes","No" y "Cancel", en su lugar veo "Si","No" y "Cancelar" y conforme a las pruebas que he realizado

el valor que pones en "Yes","No","Cancel" son los caption de los botones.

Gracias

zarlu

Chetumal, Quintana Roo, México

 

[Oscar Díaz]

Mil gracias Maestro Cesar por el aporte.

Oscar Diaz

Bogota

[Euro Nava]

Excelente aporte Cesar muy vistoso y profesional muchas gracias

 

 

 

Saludos

 

 

 

 

 

No temas, porque yo estoy contigo; no desmayes, porque yo soy tu Dios que te esfuerzo; siempre te ayudaré, siempre te sustentaré con la diestra de mi justicia.

Isaías 41:10

 

De: publice...@googlegroups.com <publice...@googlegroups.com> En nombre de Cesar VfpImaging
Enviado el: domingo, 17 de mayo de 2020 7:11 p. m.
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>
Asunto: [vfp] New dialogs para VFP

 

Hola amigos,

 

He desarollado una nueva forma de dialogos, que substitui el MESSAGEBOX.

Espero que les guste.

 

https://vfpimaging.blogspot.com/2020/05/messagebox-using-simple-vista-task.html  

 

Sample 1:

 

? NewDialog("Vista Task Dialog", "The main instruction text for the TaskDialog goes here", ;

 "The content text for the task dialog is shown here and the text will automatically wrap as needed." + CHR(13) + CHR(13) + ;

 "Any expanded content text for the task dialog is shown here and the text will automatically wrap as needed." + CHR(13) + CHR(13) + ;

    "Do you like it?", "OK2", ;

 "Yes!,Not really,I dunno")

 

Sample 2:

? NewDialog("Bad Username or Password", ;

      "Access Denied", ;

      "You have entered the wrong credentials for 3 times." + CHR(13) + CHR(13) + ;

             "Please wait for 30 minutes and try again, otherwise your account may be suspended.", ;

      "Lock", ;

      "Return")

 

Sample 3:

? NewDialog("Critical error", ;

     "Corrupted Data", ;

     "An unexpected error has occurred and the system needs to be restarted." + ;

         CHR(13) + CHR(13) + "What do you want to do ?", ;

     "X2", ;

     "Restart Now,Restart later,Keep working", ; && Button captions

     2) && Default button

 

Sample 4: Dialogs using simple timeout, with unicodes - everywhere, titles, contents and even buttons!

? NewDialog("Nice job!  <UC>2661 2665 2764</UC>", ;

    "Success! <UC>d83ddc4d</UC>", ;

    "Your account details have been updated successfully." + ;

    CHR(13) + CHR(13) + "You can proceed with the next step to get your cashback!", ;

    "OK2", ;

    "Ok*,Ok <UC>2714</UC>,Ok <UC>D83DDDF9</UC>", ; && Button captions

    1, ;  && Default button

    9000) && Timeout

 

Sample 5: Unicodes - Multilanguages

Unicode friendly means endless usages, really very easilly. The dialog below uses several languages from different character sets.
To get the Unicodes, first I used Google translator to translate the word "Welcome". The results were pasted to one among many Unicode translators, like Branah - https://www.branah.com/unicode-converter. Just paste your text and it will provides the unicodes. Make sure to check the "Remove \u", and when pasting, make sure to separate every character with a space. In general, for most languages you'll use 4 characters. For double byte languages, like Chinese, Japanese and Korean, or for some special characters, like the "thumbs up", you'll pass every 8 characters at a time.

? NewDialog("Nice job!  <UC>2661 2665 2764</UC>", ;

    "Success! <UC>d83ddc4d</UC>", ;

    "Your account details have been updated successfully." + ;

    CHR(13) + CHR(13) + "You can proceed with the next step to get your cashback!", ;

    "OK2", ;

    "Ok*,Ok <UC>2714</UC>,Ok <UC>D83DDDF9</UC>", ; && Button captions

    1, ;  && Default button

    9000) && Timeout

 

Sample 6: Timeout with special caption

? NewDialog("Covid-19 crazy warning - See the timer -->", ;

    "Please stay home!", ;

    " - Clean your hands often." + CHR(13) + ;

    " - Keep a safe distance from anyone who is coughing or sneezing." + CHR(13) + ;

    " - Don’t touch your eyes, nose or mouth." + CHR(13) + ;

    " - Cover your nose and mouth with your bent elbow or a tissue when you cough or sneeze." + CHR(13) + ;

    " - Avoid close contact with people who are sick." + CHR(13) + ;

    " - Stay at home as much as possible." + CHR(13) + ;

    " - Put distance between yourself and other people." + CHR(13) + ;

    " - If you have a fever, cough and difficulty breathing, seek medical attention." + CHR(13), ;

    "!2", ;

    "More Info,I agree,Leave me!", ; && Button captions

    2, ;  && Default button

    "8000,<SECS> secs.") && Timeout

 

Sample 7: Predefined unicode buttons:
For the basic captions: "Ok, Cancel, Print, Save and Search", add an "*", and the corresponding unicode icon will be added to the button, as below:

? NewDialog("Playing with Unicodes in buttons", ;

    "Predefined buttons", ;

 "There are currently 5 predefined buttons that will add a unicode icon automatically." + CHR(13) + CHR(13) + ;

 "Add an asterisk - '*' after the words below, and the corresponding icons will be added to the buttons:" + CHR(13) + CHR(13) + ;

 "     Ok*        <UC>27f6</UC>     Ok <UC>2713</UC>" + CHR(13) + ;

 "     Cancel*    <UC>27f6</UC>     Cancel <UC>d83dddd9</UC>" + CHR(13) + ;

 "     Print*     <UC>27f6</UC>     Print <UC>2399</UC>" + CHR(13) + ;

 "     Save*      <UC>27f6</UC>     Save <UC>d83dddab</UC>" + CHR(13) + ;

 "     Search*    <UC>27f6</UC>     Search <UC>d83ddd0e</UC>", ;

    "I", ;

    "Ok*,Cancel*,Print*,Save*,Search*")  && Button captions

 

 

 

Saludos,

 

Cesar

__________________________________________________________________

Por favor, no envíen emails o mensajes privados en los foros solicitando por soporte.

Como obtener soporte para FoxyPreviewer

 

 

 

 

[Zarlu]

Maestro César/Colegas!

Tengo problemas con el ejemplo 7

Sólo se visualiza correctamente el código <UC>2713</UC>, los demás del ejemplo muestra carácteres basura.

Imagino que los mismo pasará con algunos otros.

Probé con VFP9 SP2, W 7 y W 10 y ya estuve indagando y no le encuentro.

Qué debo configurar o descargar para que funcione correctamente?

Adjunto imagen conteniendo lo correcto e incorrecto

[Zarlu]

Ejemplos en español!

Lo consideré importante porque algunos traen comentarios del autor.

Disculpen alguna omisión en la traducción.

En algunos casos ajuste el captoón por tamaños de los botones.

Los ejemplos 4 y 5 son iguales.

*-Ejemplo 1
? NewDialog ("Vista Task Dialog", "El texto principal de instrucciones para TaskDialog va aquí",;
 "El texto del contenido para el diálogo de la tarea se muestra aquí y el texto se ajustará automáticamente según sea necesario." + CHR (13) + CHR (13) +;
 "Aquí se muestra cualquier texto de contenido expandido para el diálogo de la tarea y el texto se ajustará automáticamente según sea necesario." + CHR (13) + CHR (13) +;
 "¿Te gusta?", "OK2",;
 "Sí, No, No sé")
 *-Ejemplo 2     
? NewDialog ("Nombre de usuario o contraseña incorrectos",;
      "Acceso denegado", ;
      "Has ingresado las credenciales incorrectas 3 veces." + CHR (13) + CHR (13) +;
             "Espere 30 minutos e intente nuevamente; de lo contrario; su cuenta podría suspenderse.",;
      "Lock",;
      "Aceptar")
*-Ejemplo 3     
? NewDialog ("Error crítico",;
     "Datos corrompidos", ;
     "Se produjo un error inesperado y el sistema debe reiniciarse." +;
         CHR (13) + CHR (13) + "¿Qué quieres hacer?",;
     "X2",;
     "Reiniciar, Más tarde, No reiniciar",; && Subtítulos de los botones
     2) && Botón predeterminado
 *-Ejemplo 4
 NewDialog ("¡Buen trabajo! <UC> 2661 2665 2764 </UC>",;
    "¡Éxito! <UC> d83ddc4d </UC>",;
    "Los detalles de su cuenta se han actualizado correctamente." +;
    CHR (13) + CHR (13) + "¡Puede continuar con el siguiente paso para obtener su reembolso!",;
    "OK2",;
    "Ok *, Ok <UC> 2714 </UC>, Ok <UC> D83DDDF9 </UC>",;&& Títulos de los botones
    1,; && Botón predeterminado
    9000) && Tiempo de espera
 *-Ejemplo 5
 *-Ejemplo 6
? NewDialog ("Advertencia loca Covid-19 - Vea el temporizador ->",;
    "¡Por favor, quédate en casa!",;
    "- Lávate las manos con frecuencia." + CHR (13) +;
    "- Mantenga una distancia segura de cualquier persona que esté tosiendo o estornudando." + CHR (13) +;
    "- No te toques los ojos, la nariz o la boca." + CHR (13) +;
    "- Cúbrase la nariz y la boca con el codo doblado o un pañuelo de papel cuando tosa o estornude." + CHR (13) +;
    "- Evitar el contacto cercano con personas que están enfermas." + CHR (13) +;
    "- Quédese en casa tanto como sea posible." + CHR (13) +;
    "- Ponga distancia entre usted y otras personas." + CHR (13) +;
    "- Si tiene fiebre, tos y dificultad para respirar, busque atención médica." + CHR (13),;
    "!2",;
    "Leer más, De acuerdo, ¡Déjame!", ; && Títulos de los botones
    2, ; && Botón predeterminado
   "8000,<SECS> seg.") && Tiempo de espera   
*-Ejemplo 7
? NewDialog ("Jugar con Unicodes en botones",;
    "Botones predefinidos",;
 "Actualmente hay 5 botones predefinidos que agregan un ícono Unicode automáticamente." + CHR (13) + CHR (13) +;
 "Agregue un asterisco - '*' después de las palabras a continuación, y los iconos correspondientes se agregarán a los botones:" + CHR (13) + CHR (13) +;

 "    Ok*         <UC>27f6</UC>    Ok <UC>2713</UC>" + CHR (13) +;

 "    Cancelar*     <UC>27f6</UC>    Cancelar <UC>d83dddd9</UC>" + CHR (13) +;
 "    Imprimir*     <UC>27f6</UC>    Imprimir <UC> 2399 </UC>" + CHR (13) +;
 "    Guardar*    <UC>27f6</UC>    Guardar <UC> d83dddab </UC>" + CHR (13) +;
 "    Buscar*        <UC>27f6</UC>    Buscar <UC> d83ddd0e </UC>",;
    "YO", ;
    "Ok*, Cancelar*, Imprimir*, Guardar*, Buscar*") && Títulos de los botones

[Kisko]

Zarlu.

Mira las imágenes que he subido en mis mensajes. A mí los botones si me aparecen en Español. Yo trabajo con VFP9 y SP2 sin traducción a Español.

Saludos.

Francisco Lorente.

Murcia. España.

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/e3d6e1b7-0d5a-4316-b977-4f9859ec6a5b%40googlegroups.com.

[Zarlu]

Qué tal Francisco Lorente!

Ya las vi. Por eso mis dudas

Te repito..el código que subiste y dices que te da error en los botones a mi me funciona bien sin cambiar nada del procedimiento original descargado.

Y me arrojó la imagen que adjunté. Por eso te comentaba que confirmarás el código que subiste.

Y con lo que me dices ahora me sorprende más porque de acuerdo a la documentación los caption se muestran tal cual se pasan. No se traducen.

NEWDIALOG(tcTitle, tcMainInstruction, tcContent, tcnIcon, tcButtons, tnDefault, tnTimeout)

tcButtons - Specifies the push buttons displayed in the dialog box. A single string containing comma separated captions. If you wish to show a disabled button, add a "\" before the caption.

A ver que comenta el maestro César si lee los comentarios.

[Cesar VfpImaging]

Hola Francisco,

Gracias por testar. Si, tenia un pequeño bug, una linea de comando que havia borrado. Ya esta arreglado, por favor download la nueva version!

Saludos,

Cesar

__________________________________________________________________

Por favor, no envíen emails o mensajes privados en los foros solicitando por soporte.

Como obtener soporte para FoxyPreviewer

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/685ca833-2112-4ce4-969d-82e8e44b8e31%40googlegroups.com.

[ZeRoberto]

Estoy usando Windows 7 64bits y me sale este error

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAFp9oeYqTMmN4-5CD-bARxRgQ%3DTmag%2Be6ZZLOqdOVvM8W8ih%2Bg%40mail.gmail.com.

[Cesar VfpImaging]

Hola Ze Roberto,

Algunas informaciones, extraidas del libro: "Expert Access™ 2007 Programming" de Rob Cooper and Michael Tucker

"The task dialog API functions are defined in comctl32.dll. The functions, however, are not available to
Access by default because Windows Vista actually includes two different versions of comctl32.dll — a
version 5 library for legacy applications, and the new shiny version 6 for newer applications.
Modify the Access Manifest File
In order to use the new version of comctl32.dll, you must create a manifest file for your application.
A manifest file is a special XML file that you use to tell Windows to include the newer versions of the
common controls. The newer version of the common controls also includes the visual styles that provide
Windows theming of form controls in Access."

Here’s how:
1. Locate the vfp9.exe.manifest file. This is in the same directory as vfp9.exe
2. Make a backup of the manifest file in case you run into problems.
3. Open the manifest file in your favorite text editor.
4. Add the following dependency entry to the manifest file, following the last dependency node
in the file.

<dependency>
<dependentAssembly>
<assemblyIdentity
type=”win32”
name=”Microsoft.Windows.Common-Controls”
version=”6.0.0.0”
processorArchitecture=”X86”
publicKeyToken=”6595b64144ccf1df”
language=”*“
/>
</dependentAssembly>
</dependency>

This XML tells Windows to use the newer version of comctl32.dll, which will provide the TaskDialog
API function. If you do not modify the manifest file, you will see the error message displayed in Figure 2-6
when calling the API because the function is not defined in the older version of the DLL that is loaded.

Acá también:

https://www.grapecity.com/forums/winforms-edition/exception-when-invoking-sh_1  

I found this on the internet and seems to have solved my issue. I added the following into my application's manifest file:

<!-- Enable themes for Windows common controls and dialogs (Windows XP and later) -->
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMkTt8p5o9EMVtqz_fHQEive8KBd47LM8VbmDX_dHhpLLfDn8w%40mail.gmail.com.

[ZeRoberto]

Gracias funciona!!, pero no afectara el activex llamado comctl32.ocx??

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAFp9oea3Ux6Cfc%3DpKBLNm56L-BrFELyOa6nZNVLzUhzYr2SfBQ%40mail.gmail.com.

[Cesar VfpImaging]

Supongo que ningún problema, pero vale la pena testar. Saludos

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMkTt8qa%3DXJr40kkB0WbpP3b%2B7EsxXd-7nQWA%3Doe_zysF2c%3DoA%40mail.gmail.com.

[Kisko]

Gracias Cesar y Zarlu.

Efectivamente con la nueva versión descargada ya funciona bien y pone los títulos en los botones según se pasan los nombre en el quinto parámetro (tcButtons). Si el parámetro lo paso con "Yes,No,Cancel' muestra tres botones con sus Captions "Yes", "No", "Cancel". Si el parámetro es "Sí,No,Cancelar', sus Captions quedan "Sí", "No" y "Cancelar". Con la otra versión salía la pantalla que mostré.

Reitero las gracias a los dos por vuestras molestias.

Saludos.

Francisco Lorente.

Murcia. España

Libre de virus. www.avg.com

[HernanCano]

Muy bien, César....

Muchísimas gracias.

[ZeRoberto]

Se que no es un problema grave, pero lo botones no me salen del mismo tamaño, porque?

Saludos

Ze

[ZeRoberto]

Otra cosa también que me estoy dando cuenta es que el ancho del DialogBox es mas angosta que el MessageBox

MessageBox

DialogBox

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

[Cesar VfpImaging]

Hola Ze,

Se puede arreglar el tamaño de los botones. Después en la noche vou te enviar una mensaje en privado, necesito de unas pocas informaciones para adaptar para los que tienen español como lengua de la computadora

De toda manera, ya estoy trabajando en un proyecto muy mas grande con los "taskDialogs", donde casi todo se podrá cambiar.

Saludos,

Cesar

__________________________________________________________________

Por favor, no envíen emails o mensajes privados en los foros solicitando por soporte.

Como obtener soporte para FoxyPreviewer

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMkTt8pK1H0GqbpmcqZDQ-gb89YBpV8rj%2Bofxo1UY81EYaScbw%40mail.gmail.com.

[ZeRoberto]

La función EVL() solo funciona a partir de la versión 8

Saludos 

Ze

El mar., 26 de may. de 2020 6:46 AM, NY <ny....@gmail.com> escribió:

Se ve muy bueno, en mi caso da error en VFP 7 y VFP 9, tengo las DLL que indicas y estan registradas, Mi S.O. es Windows 10 (2004 de Mayo del 2020)

en ambas versiones me sale el mismo error

Alguien mepuede indiar que me esta faltando

Gracias

El lunes, 18 de mayo de 2020, 1:11:41 (UTC+2), Cesar VfpImaging escribió:

Hola amigos,

He desarollado una nueva forma de dialogos, que substitui el MESSAGEBOX.

Espero que les guste.

https://vfpimaging.blogspot.com/2020/05/messagebox-using-simple-vista-task.html  

Sample 1:

? NewDialog("Vista Task Dialog", "The main instruction text for the TaskDialog goes here", ;
 "The content text for the task dialog is shown here and the text will automatically wrap as needed." + CHR(13) + CHR(13) + ;
 "Any expanded content text for the task dialog is shown here and the text will automatically wrap as needed." + CHR(13) + CHR(13) + ;
    "Do you like it?", "OK2", ;
 "Yes!,Not really,I dunno")

Sample 2:

? NewDialog("Bad Username or Password", ;
      "Access Denied", ;
      "You have entered the wrong credentials for 3 times." + CHR(13) + CHR(13) + ;
             "Please wait for 30 minutes and try again, otherwise your account may be suspended.", ;
      "Lock", ;
      "Return")

Sample 3:

? NewDialog("Critical error", ;
     "Corrupted Data", ;
     "An unexpected error has occurred and the system needs to be restarted." + ;
         CHR(13) + CHR(13) + "What do you want to do ?", ;
     "X2", ;
     "Restart Now,Restart later,Keep working", ; && Button captions
     2) && Default button

Sample 4: Dialogs using simple timeout, with unicodes - everywhere, titles, contents and even buttons!

? NewDialog("Nice job!  <UC>2661 2665 2764</UC>", ;
    "Success! <UC>d83ddc4d</UC>", ;
    "Your account details have been updated successfully." + ;
    CHR(13) + CHR(13) + "You can proceed with the next step to get your cashback!", ;
    "OK2", ;
    "Ok*,Ok <UC>2714</UC>,Ok <UC>D83DDDF9</UC>", ; && Button captions

    1, ;  && Default button
    9000) && Timeout

Sample 5: Unicodes - Multilanguages

Unicode friendly means endless usages, really very easilly. The dialog below uses several languages from different character sets.
To get the Unicodes, first I used Google translator to translate the word "Welcome". The results were pasted to one among many Unicode translators, like Branah - https://www.branah.com/unicode-converter. Just paste your text and it will provides the unicodes. Make sure to check the "Remove \u", and when pasting, make sure to separate every character with a space. In general, for most languages you'll use 4 characters. For double byte languages, like Chinese, Japanese and Korean, or for some special characters, like the "thumbs up", you'll pass every 8 characters at a time.

? NewDialog("Nice job!  <UC>2661 2665 2764</UC>", ;
    "Success! <UC>d83ddc4d</UC>", ;
    "Your account details have been updated successfully." + ;
    CHR(13) + CHR(13) + "You can proceed with the next step to get your cashback!", ;
    "OK2", ;
    "Ok*,Ok <UC>2714</UC>,Ok <UC>D83DDDF9</UC>", ; && Button captions

    1, ;  && Default button
    9000) && Timeout

Sample 6: Timeout with special caption

? NewDialog("Covid-19 crazy warning - See the timer -->", ;
    "Please stay home!", ;
    " - Clean your hands often." + CHR(13) + ;
    " - Keep a safe distance from anyone who is coughing or sneezing." + CHR(13) + ;
    " - Don’t touch your eyes, nose or mouth." + CHR(13) + ;
    " - Cover your nose and mouth with your bent elbow or a tissue when you cough or sneeze." + CHR(13) + ;
    " - Avoid close contact with people who are sick." + CHR(13) + ;
    " - Stay at home as much as possible." + CHR(13) + ;
    " - Put distance between yourself and other people." + CHR(13) + ;
    " - If you have a fever, cough and difficulty breathing, seek medical attention." + CHR(13), ;
    "!2", ;
    "More Info,I agree,Leave me!", ; && Button captions
    2, ;  && Default button
    "8000,<SECS> secs.") && Timeout

Sample 7: Predefined unicode buttons:
For the basic captions: "Ok, Cancel, Print, Save and Search", add an "*", and the corresponding unicode icon will be added to the button, as below:

? NewDialog("Playing with Unicodes in buttons", ;
    "Predefined buttons", ;
 "There are currently 5 predefined buttons that will add a unicode icon automatically." + CHR(13) + CHR

(13) + ;
 "Add an asterisk - '*' after the words below, and the corresponding icons will be added to the buttons:" + CHR(13) + CHR(13) + ;
 "     Ok*        <UC>27f6</UC>     Ok <UC>2713</UC>" + CHR(13) + ;
 "     Cancel*    <UC>27f6</UC>     Cancel <UC>d83dddd9</UC>" + CHR(13) + ;
 "     Print*     <UC>27f6</UC>     Print <UC>2399</UC>" + CHR(13) + ;
 "     Save*      <UC>27f6</UC>     Save <UC>d83dddab</UC>" + CHR(13) + ;
 "     Search*    <UC>27f6</UC>     Search <UC>d83ddd0e</UC>", ;
    "I", ;
    "Ok*,Cancel*,Print*,Save*,Search*")  && Button captions

Saludos,

Cesar

__________________________________________________________________

Por favor, no envíen emails o mensajes privados en los foros solicitando por soporte.

Como obtener soporte para FoxyPreviewer

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/2d044202-82fd-4c2a-8c03-f7bf8f5bbc80%40googlegroups.com.

[Irwin Rodriguez]

Puedes emular la función EVL(): una manera rápida e informal sería:

&& ======================================================================== &&
&& Function Evl
&& ======================================================================== &&
Function Evl(tcExpr As Variant, tcDefault As Variant) As Variant
	Return Iif(Empty(tcExpr), tcDefault, tcExpr)
EndFunc

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMkTt8oBeg3-dYjeH0G%3Dwnw%2BNyz84H6zL-6W%2B8NfBW9dPOUWag%40mail.gmail.com.

--

Irwin Rodríguez

ToolDeveloper

"A team is only pieces that you exchange until you finish the work, it is efficient, it works."

[Francisco]

Buenas tengo problemas en los diálogos paso muestra (no salen los iconos) tengo la versión 2.2 de la funcion.

? NewDialog("Atención","La ruta no existe ","ruta: la que sea",'X2,G','Continuar')

Sale esto:

? NewDialog("Atención","La ruta no existe ","ruta: la que sea",'X2,G','Continuar')

Sale esto:

He mirado un poco el código y no me cuadra esta instruccion

ELSE 

lnIconBack = ICON_EMPTY

ENDIF 

con esta otra

m.lnIcontoSend = IIF(NOT EMPTY(lnIconBack), lnIconBack, lnIconMain)

Pero no quiero tocar nada no sea fallo mio ... o de versión...

[Zarlu]

Buenos días Francisco!

Prueba sin la "G"

? NewDialog("Atención","La ruta no existe ","ruta: la que sea",'X2','Continuar')

(Probado)

Suerte

[Francisco]

Perdón el primer ejemplo es sin la G. 

? NewDialog("Atención","La ruta no existe ","ruta: la que sea",'X2','Continuar')  

Me sale esto 

[Francisco]

Creo que el problema está en la defincion de ICON_EMPTY que esta a 14 y debería de ser 0 a ver si alguno lo puede comprobar.

[Zarlu]

Buenos días Francisco!

Ayer probé con la versión anterior y funcionó

Bajé la última y ahora probé sin problemas. Te adjunto imagen.

En un mensaje anterior de éste hilo manifesté problemas con algunos códigos que no me aparecen. No obtuve respuesta.

No sé si eso mismo te esté afectando. Pero el código jala bien.

zarlu

Chetumal, Quintana Roo, México

[Francisco]

Ese no es el X2... pq X2 sería igual que poner -8 y si ves no es lo mismo ¿puedes tu probar a cambiar el X2 por -8 y ver que sale?

[Francisco]

Perdon x2 es -7

                 CASE m.tnIcon = "X2" && Error

                    m.lnIconMain = -7

[Zarlu]

Qué tal Francisco!

Ok. Ahora lo probaré.

Sube el código que quieres probar e igual lo ejecuto tal cual lo mandes y te digo que pasa

[Francisco Lorente]

Hola tocayo,

Yo tengo la version 2.1 y parece que me funciona bien. Tanto con X2 como con -7

Aquí dejo las imágenes de los dialogos obtenidos.

[J. Enrique Ramos Menchaca]

 A mi me da el mismo error en VFP 9 SP2, VFPA 10 x32 y 10 x64. Pero si utilizo el -7 si funciona bien. Windows 10.2004 Pro x64 

[Zarlu]

Francisco!

Pues si. Mismo código, diferente resultado dependiendo de la versión

Adjunto imagenes

[J. Enrique Ramos Menchaca]

He encontrado que es al no pasar el en el tercer parámetro, segundo de las variables en el icono es cuando manda en blanco, ya que toma el valor de ICON_EMPTY = 14.

NewDialog("Atención","La ruta no existe ruta:"," la que sea",'X2,Y',"Continuar") 

NewDialog("Atención","La ruta no existe ruta:"," la que sea",'X2,-',"Continuar")

[ZeRoberto]

Este Taskdialog no es tan confiable cambia de iconos en otros SO lo mejor es crear tu propio formulario taskdialog.

Saludos 

Ze

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/501cde1c-4662-42f7-905d-f986d4648ce0o%40googlegroups.com.

[Francisco]

Es lo que veo... ¿Tienes algún ejemplo? Estoy viendo la posibilidad de cambiar esos messagebox pero aún no he encontrado nada que funcione al 100% en todos los s.o correctamente.

Saludos.

El jueves, 11 de junio de 2020 a las 2:19:21 UTC+2, ZeRoberto escribió:

Este Taskdialog no es tan confiable cambia de iconos en otros SO lo mejor es crear tu propio formulario taskdialog.

Saludos 

Ze

El mié., 10 de jun. de 2020 6:27 PM, J. Enrique Ramos Menchaca <jera...@gmail.com> escribió:

He encontrado que es al no pasar el en el tercer parámetro, segundo de las variables en el icono es cuando manda en blanco, ya que toma el valor de ICON_EMPTY = 14.

NewDialog("Atención","La ruta no existe ruta:"," la que sea",'X2,Y',"Continuar") 

NewDialog("Atención","La ruta no existe ruta:"," la que sea",'X2,-',"Continuar")

El miércoles, 10 de junio de 2020, 14:52:58 (UTC-5), Zarlu escribió:

Francisco!

Pues si. Mismo código, diferente resultado dependiendo de la versión

Adjunto imagenes

zarlu

Chetumal, Quintana Roo, México

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxpro+unsubscribe@googlegroups.com.

[Cesar VfpImaging]

Hola ZeRoberto,

El problema viene desde ImageRes.Dll, porque Windows hace cambios en cada version.

He desarollado una nueva version, que permite anadir iconos externos, pretendo publicar hasta mañana.

Saludos,

Cesar

__________________________________________________________________

Por favor, no envíen emails o mensajes privados en los foros solicitando por soporte.

Como obtener soporte para FoxyPreviewer

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMkTt8p77EJ2MnX2v9EftEZmQUpbiu7fhZik77CJZJHp0DpnLw%40mail.gmail.com.

[ZeRoberto]

Aca hice un TaskDialog 100% con código VFP usando formularios

https://www.youtube.com/watch?v=gS5ig_jPdSk

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

El jue., 11 de jun. de 2020 a la(s) 01:48, Francisco (dire...@informatica-apliges.com) escribió:

Es lo que veo... ¿Tienes algún ejemplo? Estoy viendo la posibilidad de cambiar esos messagebox pero aún no he encontrado nada que funcione al 100% en todos los s.o correctamente.

Saludos.

El jueves, 11 de junio de 2020 a las 2:19:21 UTC+2, ZeRoberto escribió:

Este Taskdialog no es tan confiable cambia de iconos en otros SO lo mejor es crear tu propio formulario taskdialog.

Saludos 

Ze

El mié., 10 de jun. de 2020 6:27 PM, J. Enrique Ramos Menchaca <jera...@gmail.com> escribió:

He encontrado que es al no pasar el en el tercer parámetro, segundo de las variables en el icono es cuando manda en blanco, ya que toma el valor de ICON_EMPTY = 14.

NewDialog("Atención","La ruta no existe ruta:"," la que sea",'X2,Y',"Continuar") 

NewDialog("Atención","La ruta no existe ruta:"," la que sea",'X2,-',"Continuar")

El miércoles, 10 de junio de 2020, 14:52:58 (UTC-5), Zarlu escribió:

Francisco!

Pues si. Mismo código, diferente resultado dependiendo de la versión

Adjunto imagenes

zarlu

Chetumal, Quintana Roo, México

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/501cde1c-4662-42f7-905d-f986d4648ce0o%40googlegroups.com.

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/1a75c102-9380-4288-96a1-89de377c6162n%40googlegroups.com.

[Edwin Duran]

Gracias

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publice...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/501cde1c-4662-42f7-905d-f986d4648ce0o%40googlegroups.com.

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publice...@googlegroups.com.