ASK ROY JIMENEZ

[rudyboy]

Thanks Roy for the information. Another question, I have talked to a tech support in sybase and they told me that i can use the script that i have written in english in implementing to another country. Example, in Thailand, theres no need for me to change the language of my script all i have to do is to change the language of ny interface. Is this true?.

2. How can I translate the messages in runtime?

3. I tried to change the regional settings of my computer to another country so that I can test if I can input data in the selected language. I changed the font of the control to the country's font but when I run it, it's still written in English, did I miss something or my understanding on this feature is wrong?

Please advice..

Thanks Roy.

 

[royjimenez]

Sorry for the delay, but i just signed in.

1. I have spanish DLLs, i downloaded from sybase. I think that it can help u, 'cause all the pb messages will be traslated. But, u will have problems with your MessageBoxs.


2. Runtime

U can use PowerObject / GraphicObject for traslatting your application. I will write you an example ( I have used this reasoning to apply the security / translation in runtime ) :


f_go_through( ago_object : graphicobject )

window lw_object
tab ltab_object
userobject luo_object
commandbutton lcb_object


choose case ago_object.typeof()
case window!
lw_object = ago_object
ll_total = upperbound( ago_object.
for i = 1 to ll_total
f_go_through( ago_object.Control(i) )
next
case userobject!
... the same 'cause it has childen
case tab!
... the same
case commandbutton! // there aren't children, u won't need a loop
lcb_object = ago_object
messagebox("", lcb_object.text)
end choose



U can go through all the objects in the windows using GraphicObject.U can do the same for applying security to menues.


3. See 1.

Regards

 

[royjimenez]

sorry i missed a few letters

choose case ago_object.typeof()
case window!
lw_object = ago_object
ll_total = upperbound( ago_object.Control[] )
for i = 1 to ll_total
f_go_through( ago_object.Control )
next