Cambiar de Idioma en Mensajes

[Martin del Angel[1]]

Hola, por fin compre Xailer!
Soy nuevo y tengo muchas dudas, he estado viendo ejemplos . tengo un
proyecto que esta delphi y tengo que cambiarlo a Xailer, ya que el
programador que me lo hizo ya no pudo seguir ayudando y ahora me decidi a
hacerlo yo mismo, se que va a ser dificil al principio, pero espero aprender
pronto.
Tengo muchas dudas..
aqui va la primera:
Mi computadora tiene Windows Xp Pro en Ingles y deseo que todos los mensajes
del sistema sean en Español:
Ejemplo
IF MsgYesNo('Desea Eliminar este registro?")
codigo...
ENDIF
Deseo que me pregunte "Si" en Vez de "Yes" y Asi en todas las demas
Funciones que mandan mensajes predetermindos. si el sistema operativo este
en el lenguaje que sea , que mis mensajes sean en Español
Gracias....

[jasm.nospam]

Dos opciones:
1.- Cambia el idioma de Windows.
2.- Haz tú tus propios mensajes.
Saludos
Jose A. Suarez
Martin del Angel escribió:
> Hola, por fin compre Xailer!
>
> Soy nuevo y tengo muchas dudas, he estado viendo ejemplos . tengo un
> proyecto que esta delphi y tengo que cambiarlo a Xailer, ya que el
> programador que me lo hizo ya no pudo seguir ayudando y ahora me decidi a
> hacerlo yo mismo, se que va a ser dificil al principio, pero espero aprender
> pronto.
>
> Tengo muchas dudas..
> aqui va la primera:
>
> Mi computadora tiene Windows Xp Pro en Ingles y deseo que todos los mensajes
> del sistema sean en Español:
>
> Ejemplo
> IF MsgYesNo('Desea Eliminar este registro?")
> codigo...
> ENDIF
>
> Deseo que me pregunte "Si" en Vez de "Yes" y Asi en todas las demas
> Funciones que mandan mensajes predetermindos. si el sistema operativo este
> en el lenguaje que sea , que mis mensajes sean en Español
>
>
> Gracias....
>
>

[jasm.nospam]

Martin,
Tembien te puedes mirar la funcion SetLanguage() de Xailer
Saludos
Jose A. Suarez
Martin del Angel escribió:
> Hola, por fin compre Xailer!
>
> Soy nuevo y tengo muchas dudas, he estado viendo ejemplos . tengo un
> proyecto que esta delphi y tengo que cambiarlo a Xailer, ya que el
> programador que me lo hizo ya no pudo seguir ayudando y ahora me decidi a
> hacerlo yo mismo, se que va a ser dificil al principio, pero espero aprender
> pronto.
>
> Tengo muchas dudas..
> aqui va la primera:
>
> Mi computadora tiene Windows Xp Pro en Ingles y deseo que todos los mensajes
> del sistema sean en Español:
>
> Ejemplo
> IF MsgYesNo('Desea Eliminar este registro?")
> codigo...
> ENDIF
>
> Deseo que me pregunte "Si" en Vez de "Yes" y Asi en todas las demas
> Funciones que mandan mensajes predetermindos. si el sistema operativo este
> en el lenguaje que sea , que mis mensajes sean en Español
>
>
> Gracias....
>
>

[Martin del Angel[1]]

si utilizo lo siguiente:
Idioma:= SetLanguage(10)
y despues cualquier funcion de Mensajes como por ejemplo: MsgYesNo()
me debe de desplegar en español aunque este en ingles el Sistema Operativo
porque ya lo hice y no funciono , no se si hay que hacer algo mas?
"Jose Alfonso Suárez Moreno" <jasm.nospam@chochurro.com> wrote in message
news:4481f75c$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Martin,
>
> Tembien te puedes mirar la funcion SetLanguage() de Xailer
>
> Saludos
>
> Jose A. Suarez
>
> Martin del Angel escribió:
>> Hola, por fin compre Xailer!
>>
>> Soy nuevo y tengo muchas dudas, he estado viendo ejemplos . tengo un
>> proyecto que esta delphi y tengo que cambiarlo a Xailer, ya que el
>> programador que me lo hizo ya no pudo seguir ayudando y ahora me decidi a
>> hacerlo yo mismo, se que va a ser dificil al principio, pero espero
>> aprender pronto.
>>
>> Tengo muchas dudas..
>> aqui va la primera:
>>
>> Mi computadora tiene Windows Xp Pro en Ingles y deseo que todos los
>> mensajes del sistema sean en Español:
>>
>> Ejemplo
>> IF MsgYesNo('Desea Eliminar este registro?")
>> codigo...
>> ENDIF
>>
>> Deseo que me pregunte "Si" en Vez de "Yes" y Asi en todas las demas
>> Funciones que mandan mensajes predetermindos. si el sistema operativo
>> este en el lenguaje que sea , que mis mensajes sean en Español
>>
>>
>> Gracias....

[jfgimenez]

Martín,
me temo que las funciones MsgXXXX() son wrappers a la función MessageBox()
de windows, y siempre sale en el idioma que tenga windows; ahí no puede
hacer nada Xailer.
La única solución que se me ocurre es que te hagas tus propias funciones
MsgXXXX() usando un componente TMessageBox. De esa forma sí podrías cambiar
el texto de los botones. P.ej.:
FUNCTION MsgYesNo( cText, cTitle )
WITH OBJECT TMessageBox():New( Application:oMainForm )
UPDATE :cTitle TO cTitle
UPDATE :cText TO cText
:nStyle := mbYESNO
:oIcon := IDI_QUESTION
:aButtons := { "Sí", "No" }
RETURN :Run() == mrYES
END
RETURN Nil
--
Un saludo,
José F. Giménez
http://www.xailer.com

[Martin del Angel[1]]

Gracias,
Donde encuentro Documentacion de esa clase?
TMessageBox
"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote in message
news:[email=4483e710@ozsrvnegro.ozlan.local...]4483e710@ozsrvnegro.ozlan.local...[/email]
> Martín,
>
> me temo que las funciones MsgXXXX() son wrappers a la función MessageBox()
> de windows, y siempre sale en el idioma que tenga windows; ahí no puede
> hacer nada Xailer.
>
> La única solución que se me ocurre es que te hagas tus propias funciones
> MsgXXXX() usando un componente TMessageBox. De esa forma sí podrías
> cambiar el texto de los botones. P.ej.:
>
> FUNCTION MsgYesNo( cText, cTitle )
>
> WITH OBJECT TMessageBox():New( Application:oMainForm )
> UPDATE :cTitle TO cTitle
> UPDATE :cText TO cText
> :nStyle := mbYESNO
> :oIcon := IDI_QUESTION
> :aButtons := { "Sí", "No" }
> RETURN :Run() == mrYES
> END
>
> RETURN Nil
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>

[ignacio]

Martín,
Es de las poquitas que no tenéis en el último pre-release, pero te la envío
con este Email.
Un saludo,
"Martin del Angel" <martindelangel@msn.com> escribió en el mensaje
news:[email=448447a8@ozsrvnegro.ozlan.local...]448447a8@ozsrvnegro.ozlan.local...[/email]
> Gracias,
>
> Donde encuentro Documentacion de esa clase?
>
> TMessageBox
>
>
>
> "Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote in message
> news:[email=4483e710@ozsrvnegro.ozlan.local...]4483e710@ozsrvnegro.ozlan.local...[/email]
>> Martín,
>>
>> me temo que las funciones MsgXXXX() son wrappers a la función
>> MessageBox()
>> de windows, y siempre sale en el idioma que tenga windows; ahí no puede
>> hacer nada Xailer.
>>
>> La única solución que se me ocurre es que te hagas tus propias funciones
>> MsgXXXX() usando un componente TMessageBox. De esa forma sí podrías
>> cambiar el texto de los botones. P.ej.:
>>
>> FUNCTION MsgYesNo( cText, cTitle )
>>
>> WITH OBJECT TMessageBox():New( Application:oMainForm )
>> UPDATE :cTitle TO cTitle
>> UPDATE :cText TO cText
>> :nStyle := mbYESNO
>> :oIcon := IDI_QUESTION
>> :aButtons := { "Sí", "No" }
>> RETURN :Run() == mrYES
>> END
>>
>> RETURN Nil
>>
>> --
>> Un saludo,
>>
>> José F. Giménez
>> http://www.xailer.com
>>
>
>


Attached files MessageBox.rar (23 KB)Â