FWString() : how to add "Keywords"

[Jimmy]

hi,

i have now use FWString() ... WOW

i CODE i found

Code: Select all | Expand

   FWString( "Please add it to FWH\source\function\strings.prg" )

so i need to build new LIB when add to "aStrings" how to build new LIB

Question : can i make my own "aStrings" and use a copy of FWString()

[Antonio Linares]

Dear Jimmy,

> Question : can i make my own "aStrings" and use a copy of FWString()

Yes, probably thats the easier

[nageswaragunupudi]

We need not make any new libs.
We can add new translates to the existing translates at runtime, preferably at the beginning of our program.

This is a sample.
Here the programmer is adding new translates for Spanish and German languages, so that his software can be used by English, Spanish and German users.

Code: Select all | Expand

// Add Tranlates for Spanish and German

#include "fivewin.ch"

function Main()

   AddTranslates()

   FWSetLanguage( 2 )  // Spanish
   ? FWString( "medium" )
   FWSetLanguage( 5 )  // German
   ? FWString( "large" )

return nil

static function AddTranslates()

   local aTranslates := { ;
      { "large", "grande", nil, nil, "groß" },  ;
      { "medium", "medio", nil, nil, "Mittel"}, ;
      { "small", "pequeño", nil, nil, "klein" }, ;
      { "tiny", "diminuto", nil, nil, "winzig" } ;
   }

   AEval( aTranslates, { |a| FWAddString( a ) } )

return nil
 

[nageswaragunupudi]

Notes:
By default FWH handles 6 languages and each of these languages has its own ID from 1 to 6.
1 English, 2 Spanish, 3 French, 4 Portugese, 5 German, 6 Italian

We can add more languages using FWAddLanguage(). We will not discuss this here.

At the beginning of the program we need to set our language to use FWString() capability.

[Jimmy]

hi,

We need not make any new libs.
We can add new translates to the existing translates at runtime, preferably at the beginning of our program.

This is a sample.
Here the programmer is adding new translates for Spanish and German languages, so that his software can be used by English, Spanish and German users.

GREAT

that way is much shorter

[Antonio Linares]

Mr. Rao is totally right. I missed that way

[Jimmy]

hi,

have create a App which does "translate" into other Language via Google


i also write Result into File

Code: Select all | Expand

LOCAL aTRANSLATE := {}
AADD(aTRANSLATE,{'soon here in the forum','pronto aqui en el foro','bientôt ici sur le forum','em breve aqui no forum','demnächst hier im Forum','presto qui nel forum'})

so i can easy add it into "my" Array for FWString()

while i use HMG Syntax in this Version i will release it on HMG Website
https://www.hmgforum.com/viewtopic.php?t=7414

[Antonio Linares]

Dear Jimmy,

Could we do the translations automatically ?

I mean, If the Word translation is not found then it automatically invoke google to translate it and feed the array

Enviado desde mi SM-M325FV mediante Tapatalk

[nageswaragunupudi]

We already have this built-in FWH function for the last six years:

Code: Select all | Expand

Function FW_TransLang( cTSource, cLSource, cLTarget, lUTf8 )

[nageswaragunupudi]

I just now tested our FWH built-in function:

Code: Select all | Expand

? FW_TransLang( "This is very nice", "en", "te", .t. )

Tried to translate into my mother tongue 'TELUGU', which is a Unicode language and got the correct result:
ఇది చాలా బాగుంది
Perfect translation.

[Jimmy]

hi,

We already have this built-in FWH function for the last six years:

oh, i didn´t know that

i found Sample c:\fwh\samples\TransFree.prg
but where do i find Function FW_TransLang()

[cnavarro]

https://forums.fivetechsupport.com/view ... +translang

[Jimmy]

hi Antonio,

Could we do the translations automatically ?
I mean, If the Word translation is not found then it automatically invoke google to translate it and feed the array

interesting Idea

i have learn about FW_TransLang()
i have to look at it how to get "right" Language which i saw in c:\fwh\samples\TransFree.prg

to get both path together would be nice

[Jimmy]

hi,

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=39139&start=0&hilit=fw+translang

thx for Link but there is no Source CODE of Function FW_TransLang()

i do not have \source\internal\FTRANSLATE.PRG which seem to include FW_TransLang()

[cnavarro]

Yes, I have not managed to publish the code